📄 admin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin_conn.asp"-->
<html>
<head>
<META content="" name=keywords>
<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 background="../images/bggreen.gif" topmargin="0" color=#ffffff>
<!--#include file="top.asp"-->
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="772" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td><td valign="top" width=647>
<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>
<p align="center"> </p>
</form>
<%else%>
<%action=request("action")
if action="" then%>
<p> <font color="#ffff00"><b><%=session("admin")%>:</b></font> <br><br> 欢迎您进入管理中心, 您可以操作：<br><br><font color="#ffff00">
<blockquote>
<%
dim lanmu
lanmu = Split(session("flag"), "|",-1)
For Each Strs In lanmu
if Strs="prod" then response.write "产品管理 \"
if Strs="order" then response.write "订单管理 \"
if Strs="faq" then response.write "FAQ管理 \"
if Strs="adv" then response.write "滚动广告管理 \"
if Strs="news" then response.write "文章管理 \"
if Strs="config" then response.write "站点配置 \"
if Strs="paytype" then response.write "支付类型管理 \"
if Strs="client" then response.write "客户管理 \"
if Strs="manager" then response.write "管理权限设置 \"
if Strs="feedback" then response.write "留言管理 \"
if Strs="clearall" then response.write "系统清理 \"
if Strs="password" then response.write "密码修改 "
next
%>
</blockquote>
</font><br> 栏目中的内容。 </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="password" 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>
<tr>
<td height="10" align=center colspan="2">程序美工设计：九江市大地广告策划中心<%=sitever%></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
rs("username")=Server.Htmlencode(Request("username"))
rs("password")=Server.Htmlencode(Request("password"))
rs.update
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write "<script language='javascript'>"
response.write "alert('密码更新成功！\n\n请记住："&Request("password")&"');"
response.write "location.href='admin.asp?action=password';"
response.write "</script>"
else
end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -