Private Sub showmain()
Dim totalnumber, Pcount, CurrentPage
Dim i, stylestr
With Response
.Write "<script language=""JavaScript"" src=""include/showpage.js""></script>" & vbNewLine
totalnumber = MyConn.Execute("SELECT COUNT(ItemID) FROM NC_SoftItem WHERE ChannelID=" & ChannelID)(0)
Set Rs = CreateObject("ADODB.Recordset")
SQL = "SELECT ItemID,ItemName,SiteUrl,ChannelID,ClassID,SpecialID,StopItem,lastime,RemoteListUrl FROM [NC_SoftItem] WHERE ChannelID=" & ChannelID & " ORDER BY lastime DESC,ItemID DESC"
Rs.Open SQL, MyConn, 1, 1
If Rs.BOF And Rs.EOF Then
.Write "<tr><td align=center colspan=9 class=TableRow2>还没有找到任何项目！</td></tr>"
Else

i = 0
Do While Not Rs.EOF And i < totalnumber

自动连接到这个地方<a href='?action=begin&ItemID=" & Rs("ItemID") & "&ChannelID=" & ChannelID & "'> 问下大家这个效果怎么处理 (注意是自动执行效果,不是用鼠标点击的效果)

Rs.MoveNext
i = i + 1
If i >= maxperpage Then Exit Do
Loop

谢谢
不过问题又来了,处理完第一个之后,不会再执行

Rs.MoveNext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
这个代码了,也就是不回进行循环