reall.asp

it is a good thing i think you will like it

<%if session("jypxadmin")<>"ok" then
response.redirect "login.asp"
response.end
end if%>
<!--#include file="dbpath.asp"-->
<%sql="select * from link"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,3
do while not rs.eof
rs("incount")="0"
rs("outcount")="0"
rs.update
rs.movenext
loop
sql="select * from admin"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,3
rs("update")=Now()
rs.update
response.write"<p align=center>成功将所有点进/点出数复位成0.<br>现在的时间是:"&Now()&"</p>"
rsu.close
set rsu=nothing
conn.close
set conn=nothing
%>