<!--#include file = admin_chk.asp -->
<head>
<!--#include file = language.asp -->
<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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</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="VBScript" Type="text/vbscript"><!--
function FrontPage_Form1_onsubmit()
  Set theForm = document.FrontPage_Form1

  If (theForm.username.value = "") Then
    MsgBox "请在 用户名 域中输入值。", 0, "有效性验证错误"
    theForm.username.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.username.value) < 2) Then
    MsgBox "在 用户名 域中，请至少输入 2 个字符。", 0, "有效性验证错误"
    theForm.username.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.username.value) > 20) Then
    MsgBox "在 用户名 域中，请最多输入 20 个字符。", 0, "有效性验证错误"
    theForm.username.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (theForm.password.value = "") Then
    MsgBox "请在 密码 域中输入值。", 0, "有效性验证错误"
    theForm.password.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.password.value) < 4) Then
    MsgBox "在 密码 域中，请至少输入 4 个字符。", 0, "有效性验证错误"
    theForm.password.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.password.value) > 20) Then
    MsgBox "在 密码 域中，请最多输入 20 个字符。", 0, "有效性验证错误"
    theForm.password.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If
  FrontPage_Form1_onsubmit = True 
End Function
--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_admin2.asp?id=<%=rs("id")%>" 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="2" i-maximum-length="20" --><input type="text" name="username" size="38" maxlength="20" value="<%=rs("user")%>" <%if Request.Cookies("admindj")<>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 Request.Cookies("admindj")=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>)　 (<a href="admin_admin_sh_add.asp">增加审核员</a>)　　(<a href="admin_stat_user.asp">查看用户文章排名</a>)</td>
		</tr>
<%
sql = "select * from admin "
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
%>
		<tr>
			<td width="199"><%=rs("user")%>
			<%
			  Set rs4 = Server.CreateObject("ADODB.RecordSet")
			  rs4.Open "select * from [news] where adduser='"&rs("user")&"' order by id desc",conn,1,1
			  Response.Write "("&rs4.recordcount&"篇)"
			  
			  if rs("dj")="3" then Response.Write "<font color=red>[录入员]</font>"
			  if rs("dj")="2" then Response.Write "<font color=blue>[审核员]</font>"
			%>
			</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("lm")&rs3("lm2")&rs3("lm3")&","
			  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
%>