📄 modify.asp
字号:
<!--#include file="../ManageAdmin/CheckAdminLogined.asp"-->
<!-- #Include File=Conn.asp -->
<%
Action=Request.Form("Rereg")
WebName=Request.Form("WebName")
WebUrl=Request.Form("WebUrl")
PassWord=Request.Form("PassWord")
Select Case Action
Case "更改信息":
NewPsw=Request.Form("NewPsw")
Confirm=Request.Form("Confirm")
Flag=0
PswMod=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")
If NewPsw=Confirm And NewPsw<>"" Then
Rs("PassWord")=NewPsw
PswMod=1
End If
Rs.Update
Flag=1
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
Case "统计重置":
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>网站统计分析系统</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type="text/css">
<!--
-->
</style>
<link href="Images/AdminCss.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#FFFFFF topmargin=0 leftmargin=0>
<CENTER>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8" colspan="2"></td>
</tr>
<tr>
<td width="76" height="20" rowspan="2"><img src="Images/TopBt.gif" width="67" height="36"></td>
<td height="10"></td>
</tr>
<tr>
<td>我的位置：后台管理系统._网站访问监控._修改信息</td>
</tr>
<tr>
<td height="4" colspan="2"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="E7E7E7">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="159" height="20" align="center" background="images/title1.gif" class="fontwintitle"><strong>修改信息</strong>
</td>
<td align="right" background="images/title2.gif"> </td>
<td width="10"><img src="images/title3.gif" width="10" height="20"></td>
</tr>
</table></td>
</tr>
<tr valign="top">
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6" background="images/midder1.gif"><img src="images/midder1.gif" width="6" height="3"></td>
<td height="100%" align="center" valign="top"><br>
<table width="98%" border=0 cellpadding=0 cellspacing=1 bgcolor="333333" >
<tbody>
<tr>
<td> <table width="100%" height="23%" border=0 cellpadding=3 cellspacing=0 bgcolor="#FFFFFF">
<tbody>
<tr bgcolor="#CCCCCC">
<td align=left colspan="4" bgcolor="cecece" height="1"></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="22" colspan="4" align=left bgcolor="f7f7f7">操作结果：</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=left colspan="4" bgcolor="e7e7e7" height="1"></td>
</tr>
<%
If Action="更改信息" Then
%>
<tr bgcolor="#FFFFFF">
<td align=left colspan="4"> <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> <img src='Images/Success.gif'> 修改成功！！！<br><br><br>")
Response.write("<div align='left'>网站名称："&WebName&"</div><br><br>")
Response.write("<div align='left'>网站网址："&WebUrl&"</div><br><br>")
Response.write("<div align='left'>开始日期："&StartDate&"</div><br><br>")
If PswMod=1 Then
Response.write("<div align='left'>新的密码："&NewPsw&"</div><br><br>")
End If
Else
Response.write("<br><br><img src='Images/Failure.gif'> 修改失败！！！<br><br>")
If WebName="" Then Response.write("请输入网站名称.<br><br>")
If WebUrl="" Then Response.write("请输入网站网址.<br><br>")
If Flag=2 Then Response.write("请重新输入系统密码。<br><br>")
Response.write(" <a href='javascript:history.back();'>返回上页</a><br><br><br>")
End If
%>
</td>
</tr>
</table></td>
</tr>
<%
End if
If Action="统计重置" Then
%>
<tr bgcolor="#FFFFFF">
<td align=left colspan="4"> <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> <img src='Images/Success.gif'> 统计重置成功！！！<br><br><br>")
Response.write("<div align='left'>网站名称："&WebName&"</div><br><br>")
Response.write("<div align='left'>网站网址："&WebUrl&"</div><br><br>")
Response.write("<div align='left'>开始日期："&StartDate&"</div><br><br>")
Else
Response.write("<br><br><img src='Images/Failure.gif'> 重置失败！！！<br><br>")
Response.write("请重新输入密码。<br><br>")
Response.write(" <a href='javascript:history.back();'>返回上页</a><br><br><br>")
End If
%>
</td>
</tr>
</table></td>
</tr>
<%End If%>
<tr align="right">
<td colspan=4 bgcolor="e4e4e4"> <p> </p></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br> <br>
<br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br>
<br> <br> <br> </td>
<td width="2" background="images/midder2.gif"><img src="images/midder2.gif" width="2" height="3"></td>
</tr>
<tr>
<td valign="top"><img src="images/bottom1.gif" width="6" height="14"></td>
<td height="14" valign="top" background="images/bottom2.gif"><img src="images/bottom2.gif" width="2" height="14"></td>
<td valign="top"><img src="images/bottom3.gif" width="2" height="14"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -