短文阅读晨雾:大家好,我是新来的,我刚学做的ASP网页出了问题,请高手帮忙

来源:百度文库 编辑:中科新闻网 时间:2024/05/10 13:55:11
网页的错误信息和内容是这样的
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/xs.asp, 第 19 行

浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Maxthon; SV1)

网页:
GET /xs.asp

内容:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>无标题文档</title>
</head>

<body>

Dim cn,rs,Ssql,i
Set cn=Server.CreateObject(ADODB.Connection)
cn.connectionString="PROVIDER=Microsoft.Jet.OLEEDB.4.0;DATA SOURCE="&server.Mappath(book.mdb)
cn.open
Set rs=Server.CreateObject(ADODB.Recordset)
Ssql="SELECT * FROM smb"
rs.open Ssql,cn
<table align="cneter" border="1">
<tr><td>书目信息</td></tr>
<% if rs.RecordCount<>0 Then %>
<tr>
<% for i=0 to rs.Fields.Count-1 %>
<td><%=rs(i).Name%></td>
<%Next%>
</tr>
<% if Not rs.Eof Then %>
<tr>
<% For i=0 To rs.Fields.Count-1 %>
<td><%=rs(i)%></td>
<%next%>
<% rs.MoveNext %>
</tr>
<% end if %>
<% end if %>

</table>
<% rs.Close
set rs=Nothing
cn.Close
set cn=Nothing
%>

</body>
</html>

要换浏览器5。0

rs.open Ssql,cn,1,1