測試時代 - 軟件測試精品文章

<%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") & "
") %>

解多軟件測試精華文章，請訪問測試時代論壇。

国产97人人超碰caoprom_尤物国产在线一区手机播放_精品国产一区二区三_色天使久久综合给合久久97