ddd

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include virtual="Conn.asp"-->
<!--#include virtual="KS_Cls/KS_CommonCls.asp"-->

<% 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
 
 
 %>