| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 511 人关注过本帖
标题:请高手帮我看一下一个asp网站的内部链接小循环搞
取消只看楼主 加入收藏
sheng8366
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-7-30
结帖率:0
收藏
已结贴  问题点数:20 回复次数:0 
请高手帮我看一下一个asp网站的内部链接小循环搞
<%
Response.Buffer = True
Dim Conn
Sub OpenConn()
    Dim DataURL
     set Conn=server.createobject("ADODB.CONNECTION")
     DataURL=server.mappath("db.mdb")
     Conn.open"provider=microsoft.jet.oledb.4.0;data source="&DataURL
     if err then
         Response.Write "conn error!"
         Response.End()
     end if
End Sub

Sub CloseConn()
    Conn.Close
    Set Conn = Nothing
End Sub
Function Randsub(numtotal) '==随机函数得ID
    Randomize
    Randsub = int((numtotal-1+1)*rnd+1)
end Function
openconn
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from news order by id desc "
rs.open sql,conn,1,1
do while not rs.eof
%>|<a href="http://www.<%=rs("url")%>"><%=rs("title")%><%
rs.movenext
loop
rs.close
set rs=nothing
%>


这是我的一个asp网页,现在我的问题是我那些内容加到数据库是按ID的顺序显示,我想实际随机显示,这个代码要改什么地方呢?谢谢
搜索更多相关主题的帖子: 链接 网站 source 
2012-07-30 17:23
快速回复:请高手帮我看一下一个asp网站的内部链接小循环搞
数据加载中...
 
   



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

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