📄 admin_admin.asp

📁 强大的后台文章编辑器的功能
💻 ASP
字号:
<%
if session("admin__user")="" then
  Response.Redirect "login.asp?id=8"
end if
%>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<style>
<!--
a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body         { font-family: 宋体; color: #000000; font-size: 9pt }
p            { color: #000000; font-family: 宋体; font-size: 9pt }
td           { font-size: 9pt; font-family: 宋体; color: #000000 }
input        { font-size: 9pt; font-family: 宋体; color: #000000 }

-->
</style>
</head>

<!--#include file = admin_conn.asp -->

<%
sql = "select * from admin where user='"&session("admin__user")&"'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

%>
<div align="center">
	　<p>　</p>
	<table border="1" width="500" id="table1" cellpadding="3" style="border-collapse: collapse" bordercolor="#C0C0C0" cellspacing="0">
		<tr>
			<td width="473" background="images/topBar_bg.gif">
			<font face="Wingdings">　</font><b>修改用户名和密码</b></td>
		</tr>
		<tr>
			<td><br>
			<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.username.value == "")
  {
    alert("请在 用户名 域中输入值。");
    theForm.username.focus();
    return (false);
  }

  if (theForm.username.value.length < 4)
  {
    alert("在 用户名 域中，请至少输入 4 个字符。");
    theForm.username.focus();
    return (false);
  }

  if (theForm.username.value.length > 20)
  {
    alert("在 用户名 域中，请最多输入 20 个字符。");
    theForm.username.focus();
    return (false);
  }

  if (theForm.password.value == "")
  {
    alert("请在 密码 域中输入值。");
    theForm.password.focus();
    return (false);
  }

  if (theForm.password.value.length < 4)
  {
    alert("在 密码 域中，请至少输入 4 个字符。");
    theForm.password.focus();
    return (false);
  }

  if (theForm.password.value.length > 20)
  {
    alert("在 密码 域中，请最多输入 20 个字符。");
    theForm.password.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_admin2.asp?id=<%=rs("id")%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
				<table border="0" width="100%" id="table2" cellspacing="0" cellpadding="5">
					<tr>
						<td width="152" align="center">用户</td>
						<td>
						&nbsp;<!--webbot bot="Validation" s-display-name="用户名" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="20" --><input type="text" name="username" size="38" maxlength="20" value="<%=rs("user")%>" <%if session("dj")<>1 then response.write "readonly"%>></td>
					</tr>
					<tr>
						<td width="152" align="center">密码</td>
						<td>
						&nbsp;<!--webbot bot="Validation" s-display-name="密码" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="20" --><input type="password" name="password" size="38" maxlength="20"></td>
					</tr>
				</table>
				<p align="center"><input type="submit" value="提交" name="B1">　　　<input type="reset" value="重置" name="B2"></p>
			</form>
			</td>
		</tr>
	</table>
</div>
<% if session("dj")=1 then %>
<p align="center">　</p>
<div align="center">
	<table border="1" width="600" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0" cellspacing="0" cellpadding="3">
		<tr>
			<td colspan="3" background="images/topBar_bg.gif"><font face="Wingdings">1</font><b>所有管理员
			　　</b>（<a href="admin_admin_add.asp">增加录入人员</a>）</td>
		</tr>
<%
sql = "select * from admin where dj<>'1'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
%>
		<tr>
			<td width="199"><%=rs("user")%></td>
			<td width="264" align=center>
			<%
			lmid=rs("lmid")
			nr=split(lmid,",")
			'Response.Write ubound(nr)
			For i=0 to ubound(nr)
			  aaa=nr(i)
			  if aaa="" then aaa=0
			  sql3 = "select * from lm where id="&aaa
			  Set rs3 = Server.CreateObject("ADODB.RecordSet")
			  rs3.Open sql3,conn,1,1
			  if rs3.recordcount<>0 then
			     Response.Write rs3("lm2")&","
			  end if
			  rs3.close
			  set rs3=nothing
			next
			%>
			　</td>
			
			<td width="106" align=center>
			<%if rs("dj")<>1 then%>
			<a href="admin_admin_edit.asp?id=<%=rs("id")%>">栏目</a>　<a href="admin_admin_editpass.asp?id=<%=rs("id")%>">密码</a>　<a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="admin_admin_del.asp?id=<%=rs("id")%>">删除</a>
			<%end if%></td>
			
		</tr>
<%
rs.movenext
wend
%>
	</table>
</div>
<% end if %>

<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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