📄 admin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin_conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>目前位置--管理中心</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
tr {color: #FFFFFF;}
--></style>
</head>
<body topmargin="0" bgcolor="#336699" color=#ffffff>
<!--#include file="top.asp"-->
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="760" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td><td valign="top" width=635>
<table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
<tr>
<td width="100%">当前位置:<a href="admin.asp">网站管理中心</a>--首 页</td>
</tr>
<tr><td width="100%">
<%if session("admin")="" then%>
<form method="post" action="checkadmin.asp">
<p align="center"><b>网站管理员登陆</b></p>
<p align="center">管理员名称
<input type="text" name="Username" size="11"> <br>
<br>
管理员密码
<input type="password" name="Password" size="11"><br>
<br>验 证 码
<input name="verifycode" type=text id="verifycode" size=6 maxlength=8>
<img src="../verifycode.asp" width="40" height="10" style="border:1 solid #ffffff"><br>
<br>
<input type="submit" name="Submit" value="确认">
<input type="reset" name="Submit2" value="复位"></p>
</form>
<%else%>
<%action=request("action")
if action="" then%>
<table border=0 width=590 align=center>
<tr>
<td>
<font color=yellow>
<!--#include file="xuke.htm"-->
</font>
</td>
</tr>
</table>
</p>
<%else
select case action
case "news"
Response.Redirect("admin_news.asp")
case "prod"
Response.Redirect("admin_prod.asp")
case "order"
Response.Redirect("admin_order.asp")
case "faq"
Response.Redirect("admin_faq.asp")
case "client"
Response.Redirect("admin_client.asp")
case "paytype"
Response.Redirect("admin_paytype.asp")
case "manager"
Response.Redirect("admin_manager.asp")
case "config"
Response.Redirect("admin_config.asp")
case "adv"
Response.Redirect("admin_adv.asp")
case "feedback"
Response.Redirect("admin_feedback.asp")
case "clearall"
Response.Redirect("clearall.asp")
case "password"
username=session("admin")
Set rs = conn.Execute("select * from admin where username='"&username&"'")
%>
<form method="post" action="admin.asp?action=modifypost">
<p align="center"><b>管理员密码修改</b></p>
<p align="center">用户名称
<input type="text" name="Username" size="11" value="<%=rs("username")%>"> <br>
<br>用户密码 <input type="text" name="Password" size="11" value="<%=rs("password")%>"><INPUT name=id TYPE="hidden" value=<%=rs("id")%>><br>
<br> <input type="submit" name="Submit" value="确认">
<input type="reset" name="Submit2" value="复位"></p></form>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
case else
if request.form("id")="" then
%>
<script language="javascript">
if (confirm("操作错误,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
location.href="admin.asp";
else
location.href="quit.asp";
</script>
<%
else
end if
end select%>
<%
end if
end if
%>
</td></tr>
</table>
</td></tr>
</table>
</body>
</html>
<%
id=request.form("id")
if action="modifypost" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from admin where id="&id
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('用户不存在，或者被删除了！');"
response.write "location.href='admin.asp?action=password';"
response.write "</script>"
else
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write "<script language='javascript'>"
response.write "alert('免费版仅供您试用。免费版不能修改管理员名称和密码，请您使用正式版！');"
response.write "location.href='admin_error.asp';"
response.write "</script>"
else
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -