当前位置:首页 > 网站维护 > 列表

用ASP随机读取新闻数据的方法

来源:浦一科技点击:时间:2016-10-8 关键词:asp 随机新闻
第一种方法是:<%DimDb,ConnDb="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("date/shop.mdb")SetConn=Server.CreateOb

第一种方法是:
<% 
Dim Db,Conn 
Db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("date/shop.mdb") 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open Db 
’上面的代码是用来连接数据库的,当然一般的网页都是从外部文件引用。可以不需要重新打开。
Randomize(Timer()) 
SQL = "SELECT top 18 * FROM snews WHERE iclass=10 ORDER BY Rnd(-(ID + " & Int((10000 * Rnd) + 1) & "))" 
Set RS = Server.CreateObject("ADODB.RecordSet") 
RS.Open SQL,Conn,1,1 
If Not RS.EOF Then 
RS.MoveFirst 
For I = 1 To RS.RecordCount 
%>
Response.Write rs("title")&"
"
<%
RS.MoveNext 
Next 
End If 
RS.Close 
Set RS = Nothing
%>

方法二:

set rsn=server.createobject("adodb.recordset")

randomize

sql="select top 20 * from news order by rnd(-id-" & rnd & ")"

rsn.open sql,conn,1,1



介绍另外一种ASP随机读取数据的方法:
’--- 连接数据库的代码上面已经有了
’--- ASP&Access随机读取某段数据 
Randomize 
’--- 得到总得记录数 
dim countid 
countid=conn.execute("select count(id) from product")(0) 
’--- 获得随机数 
dim rndid 
rndid=int(rnd*countid) 
rndid=rndid+5 
dim rs,sql 
’--- SQL查询 
sql="select top 5 id,name from product where id in (select top "&rndid&" id from product) order by id desc" 
’Response.Write(sql) 
set rs=conn.execute(sql) 
if not rs.eof then 
do while not rs.eof 
response.Write(rs(0)&" - "&rs(1)&"
") 
rs.movenext 
loop 
end if 
set rs=nothing


服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词