reset.asp

一个简单的计数器

<!--
┌[e-mail]──────-─┐
│林子站点计数器 Ver1.0 精简版 │
└───────linzi.cnzzz.com┘
-->
<%
'-----------------------------------------------------------------
'林子站点计数器 Ver1.0 精简版 设计制作：林子                     | 
'程序版权归林子所有，任何人可以发布修改本系统，请注明出处，谢谢！|
'E-mail:[e-mail] linzi.cnzzz.com                           |
'-----------------------------------------------------------------
%>
<%
if Request("linzi")="del" then
	Response.Write "<br><ul>"
	On Error Resume Next
	Dim ObjFSO
	Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
	ObjFSO.DeleteFile(Server.MapPath("Reset.asp"))
	If Err.Number<>"0" Then
		Response.Write "<li>删除失败！"
		Response.Write "<li>系统提示：" & Err.Description
		Response.Write "<li>请手动在FTP中删除此文件！"
		Response.Write "<Li><a href=" & Request.ServerVariables("HTTP_REFERER") & "><font color=white><<返回上一页</font></a></font>"
	Else
		Response.Write "<li>删除初使化文件Reset.Asp成功！"
		Response.Write "<Li><a href=Count.asp?linzi=3>返回统计页面</a></font>"
	End If
	Set ObjFSO = Nothing

Else

 Dim Connstr,db
 db="linzi.mdb"
 Connstr = "DBQ=" + Server.MapPath(db) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
 Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open connstr

   Set rs=Server.CreateObject("ADODB.Recordset")
   Sql="select * from [计数器]"
   Rs.open Sql,Conn,1,3
      rs(0)=1
      rs(1)=1
      rs(2)=1
      rs(3)=date()
      rs(4)=date()
      rs.update
   rs.close
   set rs=Nothing
   Conn.close
   Set Conn=Nothing
   Response.Write("<div align=center>系统已经初始化，是否删除当前文件<span style='font-size: 12px'>？<br>[请确认您的空间是否支持FSO]</span><br><br><a href=?linzi=del>是</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=Count.asp?linzi=3>否</a>")
End if
%>