<%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 %> 测试时代 - 软件测试精品文章
 
 测试精品文章  
单元和集成测试 | 系统测试 | 测试用例技术 | 性能测试 | 自动化测试 | 安全测试 | Web测试 | 嵌入式测试 | 游戏测试
软件测试管理 | 软件质量管理 | 软件需求管理 | 软件缺陷管理 | 软件配置管理 | 其它类测试工具 | 本地化测试
Rational自动化测试 | Rational测试管理 | Mercury自动化测试 | Mercury性能测试 | Mercury测试管理 | 开源测试工具
<% 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") & "
") %>

解多软件测试精华文章,请访问测试时代论坛
 
测试时代首页 | 测试时代论坛 | 测试交流会 | Blog社区 | 测试时代工作室 | 测试时代刊物 | 软件测试资料