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

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

    <!--#include file="mdb.asp"-->
<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_in=0 where id="&ViewRs("id")&""
conn.execute upsql
response.write ViewRs("id")&"统计数据清零成功<br>"
i=i+1
ViewRs.movenext
loop
ViewRs.close
%>
</BODY></HTML>