不过还要看一下出错在什么地方?
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "kaoshi.mdb" )
' 连接数据库
conn.Open Provider & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
' 打开信息源,参数二为Connection对象
rs.Open "internet", conn, 2, 2
%>
sql="select * from internet"
set rs=conn.execute(sql)
if not rs.eof then
%>
<%do while not rs.eof%>
<%
rs.movenext
loop%>
姓名 | 选择 | 操作 | 小测 | 总成绩 |
<%=rs("Name")%> | <%=rs("xzsum")%> | <%=rs("caozuo")%> | <%=(rs("ceshi1")+rs("ceshi2")+rs("ceshi3")+rs("ceshi4")+rs("ceshi5"))%> | <%=(rs("xzsum")+(rs("caozuo")+(rs("ceshi1")+(rs("ceshi2")+(rs("ceshi3")+(rs("ceshi4")+(rs("ceshi5"))%> |
<%else
response.write "暂无相关记录"
end if
conn.close
set conn=nothing
set rs=nothing%>