📄 administrator.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
字号:
<%@language=vbscript%>
<!--#include file="../../include/conn.asp"-->
<%if request("action")="save" then
user=replace(trim(request("user")),"'","")
password=replace(trim(Request("pass")),"'","")   
if user="" then
response.write "<script>alert('请输入登录用户名');history.go(-1);</Script>"
Response.End 
elseif password="" then
response.write "<script>alert('请输入登录密码');history.go(-1);</Script>"
Response.End 
end if
'-------------------------------------------------------------------------
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_admin where "&WebSqlType&"_nick='"&user&"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
response.write "<script>alert('此用户已存在，请重新输入');history.go(-1);</Script>"
Response.End 
else
rs.addnew
rs(""&WebSqlType&"_password")=md5(password)
rs(""&WebSqlType&"_nick")=user
rs(""&WebSqlType&"_flag")="0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
rs.update
end if
rs.close
set rs=nothing
response.redirect "administrator.asp?action=reh"
'--------------------------------------------------------------------------
elseif request("action")="del" then
conn.execute("Delete From "&WebSqlType&"_admin Where "&WebSqlType&"_id="&request("id")&"")
response.redirect "administrator.asp?action=reh"
'-------------------------------------------------------------------------
elseif request("action")="pass" then
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_admin where "&WebSqlType&"_id="&request("id")&""
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
rs(""&WebSqlType&"_password")=md5("8888")
rs.update
end if
rs.close
set rs=nothing
response.redirect "administrator.asp?action=reh"
'------------------------------------------------------------------------
elseif request("action")="reh" then
response.write"<meta http-equiv=""refresh"" content=""0;URL=administrator.asp"">"
response.end
end if
response.Write"<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
response.Write"<meta name=""GENERATOR"" content=""Microsoft FrontPage 4.0"">"
response.Write"<meta name=""ProgId"" content=""FrontPage.Editor.Document"">"
response.Write"<LINK href=""../css.css"" type=text/css rel=stylesheet>"
response.Write"</head><body style=""margin:10"">"
response.Write"<table width='95%' height='156' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='#cccccc'>"
response.Write"<form name='form1' method='post' action='administrator.asp?action=save'>"
response.Write"<tr bgcolor='#efefef'> <td height='30' colspan=2>　<strong>添加管理员：：</strong></td></tr>"
response.Write"<tr bgcolor='#ffffff'> <td width='18%' height='30' align='center'>用 户 名</td><td width='82%'>"
response.Write"&nbsp;&nbsp;<input name='user' type='text' size=20 style=""width:150"" maxlength='30'></td>"
response.Write"</tr><tr bgcolor='#ffffff'> <td width='18%' height='30' align='center'>初始密码</td><td width='82%'>"
response.Write"&nbsp;&nbsp;<input name='pass' type='password' size=20 style=""width:150"" maxlength='30'></td>"
response.Write"</tr><tr bgcolor='#ffffff' align='center'> <td height='30' colspan=2><input type='submit' name='Submit' value='添 加' class=input1></td>"
response.Write" </tr></form></table><br>"
response.Write"<table width='95%' height='0' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='#cccccc'>"
response.Write"<tr bgcolor='#efefef' align='center'> <td width='18%' height='30'><strong>用户名</strong></td><td width='51%'><strong>操 作</strong></td></tr>"
set rs=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_admin order by "&WebSqlType&"_id desc"
rs.open sql,conn,1,1
do while not rs.eof
response.Write"<tr bgcolor='#ffffff' align='center'> <td height='30'>"&rs(""&WebSqlType&"_nick")&"</td>"
response.Write"<td><input type='button' name='Submit' value='恢复密码为8888' "
response.Write"onclick=""javascript:window.open('administrator.asp?action=pass&id="&rs(""&WebSqlType&"_id")&"','_self')"" class=input1>&nbsp;"
response.Write"<input type='button' name='Submit' value='删 除' "
response.Write"onclick=""javascript:window.open('administrator.asp?action=del&id="&rs(""&WebSqlType&"_id")&"','_self')"" class=input1></td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
response.Write"</table></body></html>"
%>
⌨️ 快捷键说明

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