📄 modify.asp

📁 购物系统(本版为正式商业版
💻 ASP
字号:
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%><!-- #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>
<link rel="stylesheet" href="Info/Style.css">
<style type="text/css">
<!--
.Button {  background-color: #000099; height: 22px; color: #FFFFFF}
-->
</style>
</HEAD>
<BODY bgColor=#FFFFFF>
<CENTER>
<!-- #Include File=Header.asp-->
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#9DB2D4">
    <tbody>
      <tr>
        <td height="22" colspan=4 align="center" bgcolor="#C7D3E6"> <font color="#FFFFFF"> 修 改 网 站 信 息</font></td>
      </tr>
      <tr bgcolor="#CCCCCC">
        <td colspan="4" align=left bgcolor="#F0F3F8">操作结果：</td>
      </tr>
      <%
		  If Action="更改信息" Then
		  %>
      <tr bgcolor="#FFFFFF">
        <td colspan="4" align=left bgcolor="#F0F3F8">
          <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='Image/Success.gif'>&nbsp;&nbsp;&nbsp;修改成功！！！<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='Image/Failure.gif'>&nbsp;&nbsp;&nbsp;修改失败！！！<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 colspan="4" align=left bgcolor="#F0F3F8">
          <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='Image/Success.gif'>&nbsp;&nbsp;&nbsp;统计重置成功！！！<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='Image/Failure.gif'>&nbsp;&nbsp;&nbsp;重置失败！！！<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%>
    </tbody>
  </table>
  <!-- #Include File=End.asp-->
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -