开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Modify.asp
资源名称：1.rar　[点击查看]
上传用户：yrf020
上传日期：2007-07-24
资源大小：1287k
文件大小：8k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

Modify.asp：源码内容
  1. <!-- #include file="ConnStatData.asp" -->
  2. <!-- #Include File="../admin/CheckAdmin.asp"-->
  3. <%
  4. Action=Request.Form("Rereg")
  5. WebName=Request.Form("WebName")
  6. WebUrl=Request.Form("WebUrl")
  7. PassWord=Request.Form("PassWord")
  8. Select Case Action
  9. Case "更改信息":
  10.      Flag=0
  11.      Sql="Select * from InfoList"
  12.      Rs.Open Sql,Conn,1,3
  13.      If Rs("PassWord")<>PassWord Then Flag=2
  14.      If Rs("PassWord")=PassWord And WebUrl<>"" And WebName<>"" Then
  15.         Rs("Name")=WebName
  16.         Rs("Url")=WebUrl
  17.         StartDate=Rs("StartDate")
  18.         Rs.Update
  19.         Flag=1
  20.      End If
  21.      Rs.Close
  22.      Conn.Close
  23.      Set Rs=Nothing
  24.      Set Conn=Nothing
  26. Case "统计重置":
  27.      Restart=0
  28.      Sql="Select * from InfoList"
  29.  Rs.Open Sql,Conn,1,3
  30.  If Rs("PassWord")=PassWord Then
  31.     OldPasswd=Rs("PassWord")
  32. OldWebName=Rs("Name")
  33.         OldWebUrl=Rs("Url")
  34. Rs.Delete
  35. Rs.Addnew
  36.     If WebName<>"" Then OldWebName=WebName
  37.         If WebUrl<>"" Then OldWebUrl=WebUrl
  38. Rs("Name")=OldWebName
  39. Rs("Url")=OldWebUrl
  40. WebName=Rs("Name")
  41. WebUrl=Rs("Url")
  42. StartDate=Cstr(Year(Date)&"-"&Month(Date)&"-"&Day(date))
  43. Rs("StartDate")=StartDate
  44. Rs("OldDay")=Cstr(Year(Date)&"-"&Month(Date)&"-"&Day(date))
  45.         Rs("PassWord")=OldPasswd
  46. Restart=1
  47.  End If
  48.      Rs.Update
  49.  Rs.Close
  50.  If Restart=1 Then
  51.         Sql="Delete * from FAddress"
  52.     Conn.Execute(Sql)
  53.         Sql="Delete * from FArea" 
  54. Conn.Execute(Sql)
  55. Sql="Delete * from FIpone"
  56. Conn.Execute(Sql)
  57. Sql="Delete * from FIptwo"
  58. Conn.Execute(Sql)
  59. Sql="Delete * from FBrowser"
  60. Conn.Execute(Sql)
  61. Sql="Delete * from FSystem"
  62. Conn.Execute(Sql)
  63. Sql="Delete * from FScreen"
  64. Conn.Execute(Sql)
  65. Sql="Delete * from FMozilla"
  66. Conn.Execute(Sql)
  67. Sql="Delete * from FRefer"
  68. Conn.Execute(Sql)
  69. Sql="Delete * from FWeburl"
  70. Conn.Execute(Sql)
  71. Sql="Delete * from FVisit"
  72. Conn.Execute(Sql)
  73. Sql="Delete * from StatDay"
  74. Conn.Execute(Sql)
  75. Sql="Delete * from StatMonth"
  76. Conn.Execute(Sql)
  77. Sql="Delete * from StatYear"
  78. Conn.Execute(Sql)
  79. Sql="Delete * from StatWeek"
  80. Conn.Execute(Sql)
  81. Sql="Delete * from Visitor"
  82. Conn.Execute(Sql)
  83.  End If
  85. End Select
  88. %>
  89. <HTML>
  90. <HEAD>
  91. <TITLE>网站统计分析系统</TITLE>
  92. <META content="text/html; charset=utf-8" http-equiv=Content-Type>
  93. <link rel="stylesheet" href="images/style.css">
  94. </HEAD>
  95. <%
  96. Dim SERVER_NAME
  97. SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
  98. if  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") then
  99. if Instr(session("AdminPurview"),"|118,")=0 then 
  100.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  101.   response.end
  102. end if
  103. '========判断是否具有管理权限
  104. %>
  105. <BODY>
  106. <div align="center">
  107.   <table width="720" border="0" cellpadding="3" cellspacing="1" bgcolor="#6ab6b6">
  108.     <tr>
  109.       <td height="24" colspan="8"><font color="#FFFFFF"><strong>网站流量统计：包括年，月，日，IP，浏览器类型等非常详细的分析报表</strong></font></td>
  110.     </tr>
  111.     <tr bgcolor="#eafefe">
  112.       <td align="center"><a href="Infolist.asp">统计概况</a></td>
  113.       <td align="center"><a href="FVisitor.asp">最近访问</a></td>
  114.       <td align="center"><a href="StatYear.asp">年 报 表</a></td>
  115.       <td align="center"><a href="StatMonth.asp">月 报 表</a></td>
  116.       <td align="center"><a href="StatWeek.asp">周 报 表</a></td>
  117.       <td align="center"><a href="StatDay.asp">日 报 表</a></td>
  118.       <td align="center"><a href="History.asp">历史报表</a></td>
  119.       <td align="center"><a href="Rereg.asp">修改信息</a></td>
  120.     </tr>
  121.     <tr bgcolor="#eafefe">
  122.       <td align="center"><a href="FArea.asp">地区分析</a></td>
  123.       <td align="center"><a href="FAddress.asp">地址分析</a></td>
  124.       <td align="center"><a href="FIptwo.asp">IP 地 址</a></td>
  125.       <td align="center"><a href="Fweburl.asp">链接页面</a></td>
  126.       <td align="center"><a href="FCounter.asp">访问次数</a></td>
  127.       <td align="center"><a href="FSystem.asp">操作系统</a></td>
  128.       <td align="center"><a href="FBrowser.asp">浏 览 器</a></td>
  129.       <td align="center"><a href="FScreen.asp">屏幕大小</a></td>
  130.     </tr>
  131.   </table>
  132.   <br>
  133.   <table border=0 cellpadding=3 cellspacing=1 width="720" bgcolor="#6ab6b6">
  134.     <tbody>
  135.       <tr>
  136.         <td><font color="#FFFFFF"><strong>修改网站信息或统计清零</strong></font></td>
  137.       </tr>
  139.       <%
  140.   If Action="更改信息" Then
  141.   %>
  142.       <tr bgcolor="#FFFFFF">
  143.         <td align=left bgcolor="#eafefe"><table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
  144.             <tr valign="middle" align="center">
  145.               <td colspan="3"><%
  146. If Flag=1 Then
  147.                        Response.write("<br><br><div align='left'>操作状态：<img src='Images/Success.gif' align='absmiddle'>&nbsp;修改成功</div><br>")
  148.    Response.write("<div align='left'>网站名称："&WebName&"</div><br>")
  149.    Response.write("<div align='left'>网站网址："&WebUrl&"</div><br>")
  150.        Response.write("<div align='left'>开始日期："&StartDate&"</div><br>")
  151.    Response.write("<div align='left'>继续操作：<a href='Rereg.asp'>返回查看</a></div><br>")    
  152.                     Else
  153.    Response.write("<br><br><div align='left'>操作状态：<img src='Images/Failure.gif' align='absmiddle'>&nbsp;修改失败</div><br>")
  154.    If WebName="" Then Response.write("<div align='left'>网站名称：未输入</div><br>")
  155.                        If WebUrl="" Then Response.write("<div align='left'>网站网址：未输入</div><br>")
  156.    If Flag=2 Then Response.write("<div align='left'>确 认 码：不正确或未输入</div><br>")
  157.    Response.write("<div align='left'>继续操作：<a href='javascript:history.back();'>返回重新输入</a></div><br>")
  158. End If
  159. %>              </td>
  160.             </tr>
  161.         </table></td>
  162.       </tr>
  163.       <%
  164.   End if
  165.           If Action="统计重置" Then
  166.   %>
  167.       <tr bgcolor="#FFFFFF">
  168.         <td align=left bgcolor="#eafefe"><table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
  169.             <tr valign="middle" align="center">
  170.               <td colspan="3"><% If Restart=1 Then
  171.                        Response.write("<br><br><div align='left'>操作状态：<img src='Images/Success.gif' align='absmiddle'>&nbsp;统计重置成功</div><br>")
  172.    Response.write("<div align='left'>网站名称："&WebName&"</div><br>")
  173.    Response.write("<div align='left'>网站网址："&WebUrl&"</div><br>")
  174.        Response.write("<div align='left'>开始日期："&StartDate&"</div><br>")
  175.    Response.write("<div align='left'>继续操作：<a href='Rereg.asp'>返回查看</a></div><br>")
  176.  Else
  177.    Response.write("<br><br><div align='left'>操作状态：<img src='Images/Failure.gif' align='absmiddle'>&nbsp;统计重置失败</div><br>")
  178.    Response.write("<div align='left'>确 认 码：不正确或未输入</div><br>")
  179.    Response.write("<div align='left'>继续操作：<a href='javascript:history.back();'>返回重新输入</a></div><br>")
  180.  End If
  183.                  %>              </td>
  184.             </tr>
  185.         </table></td>
  186.       </tr>
  187.       <%End If%>
  188.     </tbody>
  189.   </table>
  190.   <br>
  191. </div>
  192. </BODY>
  193. </HTML>
  194. <%
  195. else
  196. response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(114)&chr(101)&chr(103)&chr(46)&chr(97)&chr(115)&chr(112)&">"
  197. response.end%>
  198. <%end if%>