 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% "一个从数据库中随机读取纪录的例子 Set Rs1=server.CreateObject ("adodb.recordset") Set Rs=server.CreateObject ("ADODB.RECORDSET") SQL="Select id from Article order by id desc" rs.Open sql,dataconn,3,3 If not rs.EOF then total=rs("id") "取最大的ID rs.Close Randomize R=Int((total - 1+ 1) * Rnd + 1) SQL="Select id,content from Article where id="& R rs.Open sql,dataconn,3,3 if not rs.EOF then content=RS("content") content=replace(content,chr(10),"<br>") content=replace(content,chr(13),"<br>") content=replace(content,"<br><br>","<br>") Response.Write content else sql1="select content from Article" rs1.Open sql1,dataconn,3,3 if not eof then "取第一条纪录作为默认的显示纪录 content=RS1("content") content=replace(content,chr(10),"<br>") content=replace(content,chr(13),"<br>") content=replace(content,"<br><br>","<br>") Response.Write content else "数据库为空 Response.Write "不存在" end if rs1.Close end if Rs.Close end if set Rs=nothing %> 返回类别: 教程 上一教程: 正则表达式简介(13) 下一教程: COOKIE读写例子 您可以阅读与"ASP实现随机提取数据库记录例程"相关的教程: · 在ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP中利用数组实现数据库记录的批量录入方式 · ASP中查询数据库记录写入XML文件示例 · ASP应用中数据库记录的选取与过滤 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
