ASP脚本出错:变量类型不正确,或者在不可接受的范围之内,要不与其它数据冲突。
我查过,数据库里数据没有超过数据范围的,可能会有别的什么问题。代码:
<%
Sub ShowOnePage( rs, Page )
num=1
rs.AbsolutePage = Page
' Response.Write "<TR align=center>"
'For i=0 to rs.Fields.Count-2
' Response.WRITE "<TD bgcolor=#F3F3FF><FONT size=2 align=center><b>" & rs.Fields(i).name & " " & "</b></font></TD>"
'
'Next
'Response.Write "</TR>"
For iPage = 1 To rs.PageSize
dim str1
if num mod 2=1 then
Response.Write "<tr align=center valign=bottom bgcolor=#ffffff> "
else
Response.Write "<tr align=center valign=bottom bgcolor=#eeeeee> "
end if
RecNo = (Page - 1) * rs.PageSize + iPage
str1=cstr(rs.Fields("id"))
Response.Write ("<TD>" )%>
<!--<INPUT type=radio id=radio11 name="aa" value="<%=str1%>">-->
<body background="images/image001.jpg">
<INPUT type=checkbox id=checkbox1 name="aa" value="<%=str1%>">
<%Response.Write("</TD>")
Response.Write "<h2>"
For i=1 to rs.Fields.Count-3
if i=1 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(1).Value & " " & "</font></font></TD>"
end if
if i=2 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(2).Value & " " & "</font></TD>"
end if
if i=3 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(3).Value & " " & "</font></TD>"
end if
if i=4 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(4).Value & " " & "</font></TD>"
end if
if i=5 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(5).Value & " " & "</font></TD>"
end if
if i=6 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(6).Value & " " & "</font></TD>"
end if
if i=7 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(7).Value & " " & "</font></TD>"
end if
if i=8 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(8).Value & " " & "</font></TD>"
end if
if i=9 then
Response.WRITE "<TD valign=middle ><font size=2>" & rs.Fields(9).Value & " " & "</font></TD>"
end if
Next
Response.Write "</TR>"
rs.MoveNext
If rs.EOF Then Exit For
Response.Write "</h2>"
num=num+1
'Response.Write num
Next
End Sub
%>
<%
sql="select top 100 * from product where 状态='0' order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,3
%>
帮我看看,感激不尽!!