<% Dim strArticleSql Set RsArticle=Server.CreateObject("ADODB.Recordset") strArticleSql="select * from Soft where Deleted=False and Passed=True and ClassID=46 ORDER BY UpdateTime Desc " RsArticle.Open strArticleSql,Conn,1,3 do while not RsArticle.eof Response.Write "" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " RsArticle.Movenext Loop RsArticle.Close Set RsArticle=Nothing %>

名称	类型	大小	说明	下载次数	发布日期
" Response.Write " "&RsArticle("SoftName")&"	"&RsArticle("SoftIntr")&"	"&RsArticle("SoftSize")&"	"&RsArticle("SoftIntr")&"	362	"&RsArticle("UpdateTime")&"