| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 407 人关注过本帖
标题:asp 中的一个技术问题请教
取消只看楼主 加入收藏
dlicheng
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-1-27
收藏
 问题点数:0 回复次数:1 
asp 中的一个技术问题请教


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

搜索更多相关主题的帖子: language asp include 
2007-01-27 00:31
dlicheng
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-1-27
收藏
得分:0 
谢谢
不过问题又来了,处理完第一个之后,不会再执行

Rs.MoveNext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
这个代码了,也就是不回进行循环
2007-01-27 12:56
快速回复:asp 中的一个技术问题请教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016360 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved