又出事了，大家帮我来看看哈 - ASP技术论坛

问题点数：0 回复次数：6

又出事了，大家帮我来看看哈

我是看不出来错在哪了，本人快吐血了。我连数据库的方法确实怪了点，大家不要再对它感兴趣了。问题出在他说我缺少END，我该加的地方都加了啊，郁闷~~~~~~啊。偶像们，我能不能少吐一口血全看你们了。我先吐一会，马上回来在线等，谢谢啊。
错误显示：

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/wyx/abc.asp，行44

代码：

<%dim con
set con=server.CreateObject("adodb.connection")
con.connectionstring="provider=microsoft.jet.oledb.4.0;" & "data source=" & "C:\TDDOWNLOAD\db.mdb"
con.open
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "biao",con,3,2,2
sub showpage(rsd,pn)
for i=0 to rsd.fields.count-1
response.write(rsd.fields(i).name & " ")
next
response.write " "
rsd.absolutepage=pn
for i=1to rsd.pagesize
for j=0 to rsd.fields.count-1
response.write(res.fields(j) & "")
next
response.write (" ")
rsd.movenext
if rds.eof then
exit for
end if
next
%>
</head>

<body>
<%
rs.pagesize=2
for i= 1 to rs.pagecount
response.write("<a href='abc.asp?page=" & i & "'>"&i&"</a> ")
next

pageno=request("page")
if page<>"" then
showpage rs,pageno
end if
%>
</body>
</html>

搜索更多相关主题的帖子: face　数据库　 Microsoft　common　编译器　

第 2 楼

得分:0

sub showpage(rsd,pn)
for i=0 to rsd.fields.count-1
response.write(rsd.fields(i).name & " ")
next
response.write " "
rsd.absolutepage=pn
for i=1to rsd.pagesize
for j=0 to rsd.fields.count-1
response.write(res.fields(j) & "")
next
response.write (" ")
rsd.movenext
if rds.eof then
exit for
end if
next

少了 End Sub