开心超人图片:MicrosoftVBScript语*错误(0x800A0401)--＞语句未结束

来源：百度文库编辑：高校问答时间：2024/05/04 19:54:13

<table width="100%" border="0" cellspacing="0" cellpadding="0" style="BORDER-LEFT: 1px solid #CCCCCC;">
<%Scriptname="Info.asp?InfoID="&InfoID&"&"
Set ProRs= Server.CreateObject("ADODB.Recordset")
SetSql = "Select * From DF_Support_Info where zj138_userid="&UserID&" and f001='卖'"
ProRs.Open SetSql,adocon,1,1
If ProRs.Eof and ProRs.Bof then
Response.Write "<strong>暂没信息</strong>"
Response.End()
Else
PageNo=REQUEST("Page")
recordcount=ProRs.recordcount
if PageNo="" or PageNo=0 then PageNo=1
ProRs.AbsolutePage=PageNo
TSum=ProRs.pagecount
RowCount=MyPageSize
PageNo=PageNo+1
PageNo=PageNo-1
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
end if
end if
if PageNo<0 then
response.Write("没有这一页!")
Response.End
End if
For i=1 to 5
if aa=1 then
bgcolor="#f6f6f6"
aa=2
else
bgcolor="#ffffff"
aa=1
end if%>
<tr align="CENTER" bgcolor="<%=bgcolor%>">
<%For j= 1 To 2
if ProRs.eof then Response.Write("<td> </td>")'////提示这里错误 Exit for%>
<td>
<table width="100%" border="0" cellpadding="5" cellspacing="5" style="BORDER-Right: 1px solid #cccccc;BORDER-BOTTOM: 1px solid #cccccc;">
<tr>
<td width="137" height="70" align=center valign="top" class=M style="word-break:break-all;line-height:140%">
</td>
<td width="825" height="70" align=left valign="top"><a href="/Buyer/Info.asp?InfoID=<%=ProRs("ID")%>" class=Font_14>
</a></td>
</tr>
</table>
</td>
<%
ProRs.Movenext
Next
%>
</tr>
<%If i=5 or ProRs.Eof Then Response.Write("<td> </td>")'////提示这里错误 Exit For
Next
End if%>
</table>

MicrosoftVBScript语*错误(0x800A0401)--＞语句未结束真三国无双3解压缩错语电脑出问题了！IE弹出错语提示！请高手帮忙看一下这个C语方哪里错了(只有这么多分了) 请大家使用树语的护肤品吧我使用了好读多效果很不错为什么我的天语B812不能下载视频？格式都是错的！该怎么办？一打开电脑提示windows错语网络上有重名请问"对不起,我错了,原谅我吧"用法语怎么说? 错错错错!错!错?