小妹再次请求各大虾的帮忙!!asp中的问题

[kaixin132]

在表单中，定义隐藏域send,其值为ok
send要在哪里定义啊？不明白
还有就是帮忙看看下面的程序：
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from note_comment",conn,1,3
if rs.eof and rs.bof then
response.redirect"2.asp"
else
if counts=0 or counts="" then counts=10
rs.pagesize=counts
allpages=rs.pagecount
page=request("page")
if not isnumeric(page)then page=1
if isempty(page) or cint(page)<1 then
page=1
elseif cint(page)>=allpages then page=allpages
end if
rs.absolutepage=page
do while not rs.eof
username=rs("name")
comments=rs("comment")
reply=rs("reply")
usermail=rs("email")
url=rs("url")
replyname=rs("replyname")
i=i+1
temp=rs.recordcount-(page-1)*rs.pagesize-i+1
%>
缺少loop语句 应该在哪里填呀 小妹先道谢了！！！

[Atai-Lu]

send在哪里定义都差不多,只要调用的时候能调用就可以了...
loop写到最后就行...
不过你最好还是在loop前面加一个
rs.movenext

[mackson]

rs.movenext
loop
rs.close

[learsu]

不要老是小妹小妹的，怎么感觉像十面埋伏里一样，可惜没找到随风呀！do while 只是循环的开始，没有movenext和loop是不行的。建议还是多看看vbscript教程。

[craft001wen]

ASP中一般可以不用定义，一样能使用。
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from note_comment",conn,1,3
if rs.eof and rs.bof then
response.redirect"2.asp"
else
if counts=0 or counts="" then counts=10
rs.pagesize=counts
allpages=rs.pagecount
page=request("page")
if not isnumeric(page)then page=1
if isempty(page) or cint(page)<1 then
page=1
elseif cint(page)>=allpages then page=allpages
end if
rs.absolutepage=page
do while not rs.eof
username=rs("name")
comments=rs("comment")
reply=rs("reply")
usermail=rs("email")
url=rs("url")
replyname=rs("replyname")
i=i+1
temp=rs.recordcount-(page-1)*rs.pagesize-i+1
rs.movenext'在这里添加就行了
loop
%>

[kaixin132]

加了以后还是不行 着急！！！

错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/111.asp, 第 29 行

[wangwm]

<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from note_comment",conn,1,3
if rs.eof and rs.bof then
response.redirect"2.asp"
else
if counts=0 or counts="" then counts=10
rs.pagesize=counts
allpages=rs.pagecount
page=request("page")
if not isnumeric(page) then page=1
if isempty(page) or cint(page)<1 then
page=1
elseif cint(page)>=allpages then
page=allpages
end if
rs.absolutepage=page
do while not rs.eof
username=rs("name")
comments=rs("comment")
reply=rs("reply")
usermail=rs("email")
url=rs("url")
replyname=rs("replyname")
i=i+1
temp=rs.recordcount-(page-1)*rs.pagesize-i+1
rs.movenext'
loop
End if
%>