upd.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<!--#include file="conn.asp" -->
<!--#include file="log_lib.asp" -->
靠！不会吧？？？！！！！！
<%
dim sql,last_r,sql_r,sql_s
sql="select * from log"
set rs=conn.execute(sql)

while not rs.eof or rs.bof
log_id=rs("log_id")
last_r=rs("written_time")
lr_count=rs("lr_count")
response.write log_id&" | "&last_r&" >>>>>>>>> "
'if lr_count>0 then
   'sql_r="select top 1 * from log_r where log_id="& log_id &" order by r_written_time" 
   'set rsr=conn.execute(sql_r)
   'if not (rsr.eof or rsr.bof) then
      'last_r=rsr("r_written_time")
   'end if
   'set rsr=nothing
'end if

rs("last_r_time")=last_r
rs.update
response.write last_r&"<br>"

rs.movenext
wend


rs.close
set rs=nothing

%>