测试时代 - 软件测试精品文章

<%Option Explicit '******************************************** ' 功能：显示所有的论坛精华贴 ' 编写：aken ' 时间：2005-1-6 '******************************************** Dim objConn,strConn,strDbDir,objRs,strSql,strRs strDbDir="bbs/db/testage/tadb.asp" Set objConn=Server.CreateObject("Adodb.Connection") strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDbDir) objConn.Open strConn Set objRs=Server.CreateObject("Adodb.Recordset") strSql="SELECT Top 60 * FROM besttopic WHERE Boardid=5 ORDER BY dateandtime DESC" objRs.Open strSql,objConn,1,1 %> 测试时代 - 软件测试精品文章

　测试精品文章

<% objRs.Close objConn.Close Set objRs=Nothing Set objConn=Nothing %>

<% Dim i i=1 Do While Not objRs.EOF If i<=30 Then %> <% Else Exit Do End If objRs.MoveNext i=i+1 Loop %>

<% Response.Write("" & _ "" & objRs("title") & "
") %>

<% Do While Not objRs.EOF %> <% objRs.MoveNext Loop %>

<% Response.Write("" & _ "" & objRs("title") & "
") %>

解多软件测试精华文章，请访问测试时代论坛。