 |
|
|
|
|
|
ASP教程:applicaton对象的使用集合
<%
’’下面的function用来从动网论坛数据库中提出数据更新缓存 很简单的 提出最新发表的十个帖子 function refreshrecords() Dim sql, conn, rs sql = "select top 10 * FROM Dv_Topic order by DateAndTime desc" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&server.mappath("dv.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn, 1, 1 If Not rs.EOF Then Dim temp temp="<ul>" for i=1 to 10 temp = temp&"<li><a href=""http:*/bbs.sfte.net/disPBbs.ASP? boardID="&rs("Boardid")&"&ID="&rs ("topicid")&"&page=1"">"&rs("Title")&"("&rs("PostUserName") &")</a></li>" ’’这个地方各有所好了,显然和一个用table,td,tr,tbody来写前台的人合作,是一件很痛苦的事情. rs.MoveNext i=i+1 next temp = temp & "</ul>" refreshrecords = temp Else refreshrecords = "数据调用失败." End If rs.Close conn.Close 第 页 责任编辑:qwer19871212
相关文章
|
|
