如何完整纪录站内所有网页点选次数(转)

站管理者
  ''*********************************************
  
  Function EmailTo(txtSubject)
  
  Set JMail = Server.CreateObject("JMail.SMTPMail")
  
  
  JMail.ServerAddress = "pcnet.pc-net.com.tw"
  
  ''*********************************************************
  
  ''*********************************************************
  JMail.Sender = "PC-NET服务器"
  
  JMail.Subject = MonthName(month(date())) & " 统计表"
  
  
  JMail.AddRecipient "Jackie@pcnet.pc-net.com.tw"
  
  JMail.AddRecipient "pcnet@pcnet.pc-net.com.tw"
  
  JMail.Body = txtSubject
  
  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
  
  ''************************************
  ''
  ''************************************
  JMail.Execute
  JMail.Close
  Set JMail = Nothing
  
  End Function
  
  ''************************************
  '' dBaseClear子程序,流量统计表寄出之后将数据库归零
  ''************************************
  Function dBaseClear()
  
  Set objConn = Server.CreateObject ("ADODB.Connection")
  
  
  Set objRec = Server.CreateObject ("ADODB.RecordSet")
  
  objConn.Open stats
  
  
  MySQL="Select * From Stats"
  
  
  objRec.Open MySQL, objConn, adOpenStatic, adLockOptimistic
  
  
  While Not ObjRec.Eof
  
  ''将数据库第2个字段到最后1个字段值全部归0
  
  For I = 2 to 32
  
  ObjRec.Fields(I)=0
  
  Next
  
  ObjRec.MoveNext
  
  WEnd
  
  ''清除与关闭数据库对象集合
  
  objRec.Close
  
  objConn.Close
  Set objRec = Nothing
  Set objConn = Nothing
  
  
  
  
  
  
  End Function
  
  
  ''信件寄出之后将Mailed.txt的内容设为1,代表信件已经寄出
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  
  Set objTextFile = objFSO.CreateTextFile("C:\inetpub\wwwroot\asp\state
  \Mailed.txt")
  
  
  Mailed = "1"
  
  
  objTextFile.WriteLine Mailed
  
  
  objTextFile.Close
  
  
  Set objTextFile = Nothing
  
  
  Set objFSO = Nothing
  
  End if
  
  End If
  
  
  ''如果是每个月的第二天,就将Mailed.txt的内容设为0
  
  if todaysDate = "2" then
  
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  
  Set objTextFile = objFSO.CreateTextFile("C:\inetpub\wwwroot\asp\state
  \Mailed.txt")
  
  
  Mailed = "0"
  
  
  objTextFile.WriteLine Mailed
  
  objTextFile.Close
  
  Set objTextFile = Nothing
  
  
  Set objFSO = Nothing
  
  
  end if
  
  
  
  ''如果不是每个月的第一天,就将本网页当天的计数值加一
  
  
  
  ''建立数据库连结并开启数据库
  
  Set objConn = Server.CreateObject ("ADODB.Connection")
  
  Set objRec = Server.CreateObject ("ADODB.Recordset")
  
  
  objConn.Open stats
  
  ''找寻数据库中网页名称符合的资料列
  
  
  MySQL="SELECT * FROM STATS WHERE Page=''"&Session("Page")&"''"
  
  
  objRec.Open MySQL, objConn, adOpenStatic, adLockOptimistic
  
  
  
  ''将当天点选次数加1
  
  objRec(todaysDate+1).Value = objRec(todaysDate+1).Value + 1
  
  
  objRec.Update
  
  
  objRec.Close
  
  
  objConn.Close
  
  
  Set objRec = Nothing
  
  
  Set objConn = Nothing
  
  
  %>
  
  </body>
  </html>
  
  
  程序部分笔者用了几个子程序希望大家比较好理解,寄出日志文件的Email组件是采用笔者之前介绍过的Jmail组件,相信大
  家都蛮熟悉的,而网页名称笔者暂时是以1、2、3来表示,希望这个小程序对大家有所帮助,记得要把他加在每个网页里面
  喔!!用Include的方式也可以。
  
    做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。