gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_admin.asp
<!--#include file = admin_chk.asp --> <head> <STYLE type="text/css"> <!-- a:link {text-decoration: none; font-family: AdobeSm; color: #000000 } a:visited {text-decoration: none; color: #000000 } A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline} body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all} p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000} select {FONT-SIZE: 9PT;font-family: 宋体} option {FONT-SIZE: 9pt;font-family: 宋体} textarea {FONT-SIZE: 9pt;font-family: 宋体} --> </STYLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <!--#include file = admin_conn.asp --> <!--#include file = titleb.asp --> <!--#include file = md5.asp --> <% username=chkhtm(trim(request("username"))) oldpassword=chkhtm(trim(request("oldpassword"))) password1=trim(request("password1")) password2=trim(request("password2")) ID=trim(request("ID")) if (not isNumeric(ID)) then id="" end if if username<>"" and id<>"" and oldpassword<>"" and password1<>"" and password2<>"" then if password1<>password2 then Response.Write "<script>alert('2次新密码不一样,请返回重输。');</script> <meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'>" Response.end end if password1=md5(password1) oldpassword=md5(oldpassword) set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select * from [admin] where [ID]="&ID&" and [pass]='"&oldpassword&"' order by id desc",conn,3,3 if rs.recordcount=0 then Response.Write "<script>alert('旧密码输入不正确。');</script> <meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'>" Response.end else rs("user")=username rs("pass")=password1 Response.Cookies ("adminuser")=username Response.Cookies ("adminpass")=password1 Response.Cookies ("admindj")=rs("dj") rs.update Response.Write "<script>alert('新密码修改成功!');</script> <META http-equiv='refresh' CONTENT='0;url=?'>" Response.end end if rs.close:set rs=nothing end if 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 < 2) { alert("在 用户名 域中,请至少输入 2 个字符。"); theForm.username.focus(); return (false); } if (theForm.username.value.length > 20) { alert("在 用户名 域中,请最多输入 20 个字符。"); theForm.username.focus(); return (false); } if (theForm.oldpassword.value == "") { alert("请在 旧密码 域中输入值。"); theForm.oldpassword.focus(); return (false); } if (theForm.oldpassword.value.length < 4) { alert("在 旧密码 域中,请至少输入 4 个字符。"); theForm.oldpassword.focus(); return (false); } if (theForm.oldpassword.value.length > 20) { alert("在 旧密码 域中,请最多输入 20 个字符。"); theForm.oldpassword.focus(); return (false); } if (theForm.password1.value == "") { alert("请在 新密码 域中输入值。"); theForm.password1.focus(); return (false); } if (theForm.password1.value.length < 5) { alert("在 新密码 域中,请至少输入 5 个字符。"); theForm.password1.focus(); return (false); } if (theForm.password1.value.length > 20) { alert("在 新密码 域中,请最多输入 20 个字符。"); theForm.password1.focus(); return (false); } if (theForm.password2.value == "") { alert("请在 确认新密码 域中输入值。"); theForm.password2.focus(); return (false); } if (theForm.password2.value.length < 5) { alert("在 确认新密码 域中,请至少输入 5 个字符。"); theForm.password2.focus(); return (false); } if (theForm.password2.value.length > 20) { alert("在 确认新密码 域中,请最多输入 20 个字符。"); theForm.password2.focus(); return (false); } return (true); } //--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="?id=<%=rs("id")%>" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript"> <table border="0" width="100%" id="table2" cellspacing="0" cellpadding="5"> <tr> <td width="152" align="center">用户</td> <td> <!--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> <!--webbot bot="Validation" s-display-name="旧密码" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="20" --><input type="password" name="oldpassword" size="38" maxlength="20"></td> </tr> <tr> <td width="152" align="center">新密码</td> <td> <!--webbot bot="Validation" s-display-name="新密码" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="20" --><input type="password" name="password1" size="38" maxlength="20"></td> </tr> <tr> <td width="152" align="center">确认新密码</td> <td> <!--webbot bot="Validation" s-display-name="确认新密码" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="20" --><input type="password" name="password2" 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 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 %>