ddd

最新推荐文章于 2025-02-24 16:18:44 发布

netlynx2000

最新推荐文章于 2025-02-24 16:18:44 发布

阅读量134

点赞数

文章标签： ASP VBScript

本文介绍了一种使用VBScript在ASP环境中动态获取并显示特定类别文章的最新回复日期的方法。通过连接数据库，筛选指定文件夹ID的文章，并按发布时间逆序排列来实现。涉及CommonCls类的使用及数据库操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>

<% if isEmpty(Application("lastReplyDate")) then
         Application("lastReplyDate")=Now
   end if

Dim KSCMS:set KSCMS=New CommonCls
Dim DomainStr:DomainStr=KSCMS.GetDomain
Dim rs:set rs=conn.execute("select id,FolderName from ks_class where Tn in( select Id from ks_class where Tn='20064060288270')")
Dim resultStr
while not rs.eof
        resultStr=resultStr&"'"&rs("id")&"',"
        Rs.moveNext
Wend
resultStr=left(resultStr,len(resultStr)-1)
rs.close
set rs=conn.execute( "select id from ks_Article where AddDate >'"&Application("lastReplyDate")&"' and tid in ( "&resultStr&" ) order by id desc ")
Response.Write    rs(0)
   '******************************
   此处是处理代码
rs.close
set rs=nothing
Call KSCMS.CloseConn()
Set KSCMS=Nothing

%>