gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/admin/Admin_Admin.asp
<!--#include file="../inc/conn.asp"-->
<!--#include file="Admin_check.asp"-->
<!--#include file="../Inc/md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin_css.css" type=text/css rel=stylesheet>
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<title>管理员管理</title>
</head>
<body>
<%
Action=Request("Action")
If Action="Add" Then
Call Add()
elseif Action="SAdd" Then
Call SAdd()
elseif Action="Del" Then
Call Del()
elseif Action="Edit" Then
Call Edit()
elseif Action="SEdit" Then
Call Sedit()
else
Call Adm()
End if
Sub SEdit()
username=CheckStr(trim(request("username")))
Admin_Pass=CheckStr(trim(request("Admin_Pass")))
if len(username)<2 then
Call Alert ("用户名不能少于2位",-1)
else
set rs=server.CreateObject("ADODB.RECORDSET")
sql="Select top 1 * from ["&tbname&"_Admin]"
rs.open sql,conn,1,3
rs("Admin_Name")=username
If Admin_Pass<>"" then
rs("Admin_Pass")=Mid(md5(Admin_Pass,32),4,18)
end if
rs.update
rs.close
set rs=nothing
Call Alert ("修改成功!","Admin_admin.asp")
end if
End Sub
%>
<% Sub Adm() %>
<table border="0" align="center" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<tr>
<td colspan="6" class="admintitle">管理员列表</td>
</tr>
<tr>
<td width="12%" height="25" align="center" bgcolor="#FFFFFF" class="ButtonList">ID</td>
<td width="20%" align="center" bgcolor="#FFFFFF" class="ButtonList">管理员名称</td>
<td width="19%" align="center" bgcolor="#FFFFFF" class="ButtonList">最后登陆时间</td>
<td width="18%" align="center" bgcolor="#FFFFFF" class="ButtonList">最后登陆IP</td>
<td width="16%" align="center" bgcolor="#FFFFFF" class="ButtonList">管理选项</td>
</tr>
<%
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from ["&tbname&"_Admin]"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("<tr><td colspan=""5""><li>Sorry,当前没有管理员...</li></td></tr>")
else
do while not rs.eof
%>
<tr>
<td height="25" align="center" bgcolor="f7f7f7"><%=rs("id")%></td>
<td align="center" bgcolor="f7f7f7"><%=rs("Admin_Name")%></td>
<td align="center" bgcolor="f7f7f7"><%if rs("Admin_Time")<>"" then response.Write(""&rs("Admin_Time")&"") else response.Write("尚未登陆") end if%></td>
<td align="center" bgcolor="f7f7f7"><%if rs("Admin_IP")<>"" then response.Write(""&rs("Admin_IP")&"") else response.Write("尚未登陆") end if%></td>
<td align="center" bgcolor="f7f7f7"><a href="?Action=Edit&id=<%=rs("id")%>">编辑</a></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</table>
<% End Sub%>
<% Sub Edit()
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from ["&tbname&"_Admin]"
rs.open sql,conn,1,1
%>
<table border="0" align="center" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable">
<tr>
<td colspan="2" class="admintitle"> 修改管理员资料</td>
</tr>
<form action="?Action=SEdit" method="post">
<tr>
<td height="25" colspan="2" bgcolor="f7f7f7" style="font-weight:bold;">注：用户名和密码请不要包含任何特殊字符或者危险字符[如or,and,delete等]</td>
</tr>
<tr>
<td width="20%" height="25" bgcolor="f7f7f7"> 用户名称：</td>
<td height="25" bgcolor="f7f7f7"><input name="username" value="<%=rs("Admin_Name")%>" type="text" size="30" style="width:100px;"></td>
</tr>
<tr>
<td height="25" bgcolor="f7f7f7"> 用户密码：</td>
<td height="25" bgcolor="f7f7f7"><input name="Admin_Pass"type="password" size="30" style="width:100px;"></td>
</tr>
<tr>
<td height="25" colspan="2" align="center" class="tabletd2"><input name="Submit" type="submit" class="bnt" value="确定修改"></td>
</tr>
</form>
</table>
<%
rs.close
set rs=nothing
End Sub %>
<!--#include file="Admin_copy.asp"-->
</body>
</html>