resta.asp 黑鹰自助链管理系统 1.1 商业版码程序 - ASP源码程序

www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/resta.asp

    <!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<%
Set ViewRs = Server.CreateObject("ADODB.RecordSet")
StrSql="select * from detail"       
ViewRs.open StrSql,conn,1,1			
i=1                    
Do While Not ViewRs.Eof
upsql="update detail set yl_yesterin=yl_yesterin+yl_dayin,yl_dayin=0,yl_10in=0 where id="&ViewRs("id")&""
conn.execute upsql
response.write ViewRs("id")&"重置统计数据成功<br>"
i=i+1
ViewRs.movenext
loop
ViewRs.close
%>
</BODY></HTML>