?? modify.asp
字號(hào):
?<!-- #include file="ConnStatData.asp" -->
<!-- #Include file="../admin2006/CheckAdmin.asp"-->
<%
Action=Request.Form("Rereg")
WebName=Request.Form("WebName")
WebUrl=Request.Form("WebUrl")
PassWord=Request.Form("PassWord")
Select Case Action
Case "更改信息":
Flag=0
Sql="Select * from InfoList"
Rs.Open Sql,Conn,1,3
If Rs("PassWord")<>PassWord Then Flag=2
If Rs("PassWord")=PassWord And WebUrl<>"" And WebName<>"" Then
Rs("Name")=WebName
Rs("Url")=WebUrl
StartDate=Rs("StartDate")
Rs.Update
Flag=1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
Case "統(tǒng)計(jì)重置":
Restart=0
Sql="Select * from InfoList"
Rs.Open Sql,Conn,1,3
If Rs("PassWord")=PassWord Then
OldPasswd=Rs("PassWord")
OldWebName=Rs("Name")
OldWebUrl=Rs("Url")
Rs.Delete
Rs.Addnew
If WebName<>"" Then OldWebName=WebName
If WebUrl<>"" Then OldWebUrl=WebUrl
Rs("Name")=OldWebName
Rs("Url")=OldWebUrl
WebName=Rs("Name")
WebUrl=Rs("Url")
StartDate=Cstr(Year(Date)&"-"&Month(Date)&"-"&Day(date))
Rs("StartDate")=StartDate
Rs("OldDay")=Cstr(Year(Date)&"-"&Month(Date)&"-"&Day(date))
Rs("PassWord")=OldPasswd
Restart=1
End If
Rs.Update
Rs.Close
If Restart=1 Then
Sql="Delete * from FAddress"
Conn.Execute(Sql)
Sql="Delete * from FArea"
Conn.Execute(Sql)
Sql="Delete * from FIpone"
Conn.Execute(Sql)
Sql="Delete * from FIptwo"
Conn.Execute(Sql)
Sql="Delete * from FBrowser"
Conn.Execute(Sql)
Sql="Delete * from FSystem"
Conn.Execute(Sql)
Sql="Delete * from FScreen"
Conn.Execute(Sql)
Sql="Delete * from FMozilla"
Conn.Execute(Sql)
Sql="Delete * from FRefer"
Conn.Execute(Sql)
Sql="Delete * from FWeburl"
Conn.Execute(Sql)
Sql="Delete * from FVisit"
Conn.Execute(Sql)
Sql="Delete * from StatDay"
Conn.Execute(Sql)
Sql="Delete * from StatMonth"
Conn.Execute(Sql)
Sql="Delete * from StatYear"
Conn.Execute(Sql)
Sql="Delete * from StatWeek"
Conn.Execute(Sql)
Sql="Delete * from Visitor"
Conn.Execute(Sql)
End If
End Select
%>
<HTML>
<HEAD>
<TITLE>網(wǎng)站統(tǒng)計(jì)分析系統(tǒng)</TITLE>
<META content="text/html; charset=utf-8" http-equiv=Content-Type>
<link rel="stylesheet" href="images/style.css">
</HEAD>
<%
if Instr(session("AdminPurview"),"|118,")=0 then
response.write ("<font color='red')>你不具有該管理模塊的操作權(quán)限，請(qǐng)返回！</font>")
response.end
end if
'========判斷是否具有管理權(quán)限
%>
<BODY>
<div align="center">
<table width="720" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<tr>
<td height="24" colspan="8"><font color="#FFFFFF"><strong>網(wǎng)站流量統(tǒng)計(jì)：包括年，月，日，IP，瀏覽器類型等非常詳細(xì)的分析報(bào)表</strong></font></td>
</tr>
<tr bgcolor="#EBF2F9">
<td align="center"><a href="Infolist.asp">統(tǒng)計(jì)概況</a></td>
<td align="center"><a href="FVisitor.asp">最近訪問</a></td>
<td align="center"><a href="StatYear.asp">年 報(bào) 表</a></td>
<td align="center"><a href="StatMonth.asp">月 報(bào) 表</a></td>
<td align="center"><a href="StatWeek.asp">周 報(bào) 表</a></td>
<td align="center"><a href="StatDay.asp">日 報(bào) 表</a></td>
<td align="center"><a href="History.asp">歷史報(bào)表</a></td>
<td align="center"><a href="Rereg.asp">修改信息</a></td>
</tr>
<tr bgcolor="#EBF2F9">
<td align="center"><a href="FArea.asp">地區(qū)分析</a></td>
<td align="center"><a href="FAddress.asp">地址分析</a></td>
<td align="center"><a href="FIptwo.asp">IP 地 址</a></td>
<td align="center"><a href="Fweburl.asp">鏈接頁(yè)面</a></td>
<td align="center"><a href="FCounter.asp">訪問次數(shù)</a></td>
<td align="center"><a href="FSystem.asp">操作系統(tǒng)</a></td>
<td align="center"><a href="FBrowser.asp">瀏 覽 器</a></td>
<td align="center"><a href="FScreen.asp">屏幕大小</a></td>
</tr>
</table>
<br>
<table border=0 cellpadding=3 cellspacing=1 width="720" bgcolor="#6298E1">
<tbody>
<tr>
<td><font color="#FFFFFF"><strong>修改網(wǎng)站信息或統(tǒng)計(jì)清零</strong></font></td>
</tr>
<%
If Action="更改信息" Then
%>
<tr bgcolor="#FFFFFF">
<td align=left bgcolor="#EBF2F9"><table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="middle" align="center">
<td colspan="3"><%
If Flag=1 Then
Response.write("<br><br><div align='left'>操作狀態(tài)：<img src='Images/Success.gif' align='absmiddle'> 修改成功</div><br>")
Response.write("<div align='left'>網(wǎng)站名稱："&WebName&"</div><br>")
Response.write("<div align='left'>網(wǎng)站網(wǎng)址："&WebUrl&"</div><br>")
Response.write("<div align='left'>開始日期："&StartDate&"</div><br>")
Response.write("<div align='left'>繼續(xù)操作：<a href='Rereg.asp'>返回查看</a></div><br>")
Else
Response.write("<br><br><div align='left'>操作狀態(tài)：<img src='Images/Failure.gif' align='absmiddle'> 修改失敗</div><br>")
If WebName="" Then Response.write("<div align='left'>網(wǎng)站名稱：未輸入</div><br>")
If WebUrl="" Then Response.write("<div align='left'>網(wǎng)站網(wǎng)址：未輸入</div><br>")
If Flag=2 Then Response.write("<div align='left'>確 認(rèn) 碼：不正確或未輸入</div><br>")
Response.write("<div align='left'>繼續(xù)操作：<a href='javascript:history.back();'>返回重新輸入</a></div><br>")
End If
%> </td>
</tr>
</table></td>
</tr>
<%
End if
If Action="統(tǒng)計(jì)重置" Then
%>
<tr bgcolor="#FFFFFF">
<td align=left bgcolor="#EBF2F9"><table width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="middle" align="center">
<td colspan="3"><% If Restart=1 Then
Response.write("<br><br><div align='left'>操作狀態(tài)：<img src='Images/Success.gif' align='absmiddle'> 統(tǒng)計(jì)重置成功</div><br>")
Response.write("<div align='left'>網(wǎng)站名稱："&WebName&"</div><br>")
Response.write("<div align='left'>網(wǎng)站網(wǎng)址："&WebUrl&"</div><br>")
Response.write("<div align='left'>開始日期："&StartDate&"</div><br>")
Response.write("<div align='left'>繼續(xù)操作：<a href='Rereg.asp'>返回查看</a></div><br>")
Else
Response.write("<br><br><div align='left'>操作狀態(tài)：<img src='Images/Failure.gif' align='absmiddle'> 統(tǒng)計(jì)重置失敗</div><br>")
Response.write("<div align='left'>確 認(rèn) 碼：不正確或未輸入</div><br>")
Response.write("<div align='left'>繼續(xù)操作：<a href='javascript:history.back();'>返回重新輸入</a></div><br>")
End If
%> </td>
</tr>
</table></td>
</tr>
<%End If%>
</tbody>
</table>
<br>
</div>
</BODY>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -