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