📄 adminadmian.asp

📁 仿搜狐NBA网站源码,仿搜狐NBA网站源码全站生成HTML静态页面
💻 ASP
字号:
<!--#include file=conn.asp-->
<!--#include file=md5.asp-->
<%
if session("adminname")="" then
    response.write "<script language='javascript'>" & chr(13)
    response.write "window.document.location.href='login.asp';"&Chr(13)
    response.write "</script>" & Chr(13)
    Response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<title>米儿文章管理系统</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style></head>

<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<%
mi222=trim(request("mi222"))
if mi222<>"" then
  mi222_name=trim(request.Form("mi222_name"))
  mi222_password=trim(request.Form("mi222_password"))
  mi222_password1=trim(request.Form("mi222_password1"))
  mi222_password2=trim(request.Form("mi222_password2"))
  if mi222_name="" then
    Response.Write("<script>alert('请填写管理员!');history.go(-1)</script>")
    Response.End
  elseif len(mi222_password1)<6 then
    Response.Write("<script>alert('密码长度不能小于6个字符!');history.go(-1)</script>")
    Response.End
  elseif mi222_password1<>mi222_password2 then
    Response.Write("<script>alert('重复密码错误!');history.go(-1)</script>")
    Response.End
  else
    Set rs=Server.CreateObject("ADODB.RecordSet") 
    sql="select * from mi222admin where mi222_name='"& session("adminname") &"' and mi222_password='"& md5(mi222_password) &"'"
    rs.Open sql,conn,1,3
    if not rs.bof and not rs.eof then
	  rs("mi222_name")=mi222_name
	  rs("mi222_password")=md5(mi222_password1)
	  rs.update
	  rs.close
	  session("adminname")=mi222_name
      response.write "<script language='javascript'>" & chr(13)
      response.write "alert('修改成功！');" & Chr(13)
      response.write "window.document.location.href='adminadmian.asp';"&Chr(13)
      response.write "</script>" & Chr(13)
      Response.End
	else
	  rs.close
      Response.Write("<script>alert('无权管理!');history.go(-1)</script>")
      Response.End
	end if
  end if
end if
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD width="593" class=title2>管理员管理</TD>
    </TR>
  <form name="form1" method="post" action="adminadmian.asp?mi222=ediadminok">
    <TR bgColor=#ffffff>
      <TD></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><div align="left">&nbsp;&nbsp;&nbsp;&nbsp;管&nbsp;理&nbsp;员：
              <input name="mi222_name" type="text" id="mi222_name" value="<%=session("adminname")%>" >
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="14"><div align="left">&nbsp;&nbsp;&nbsp;&nbsp;旧&nbsp;密&nbsp;码：
          <input name="mi222_password" type="password" id="mi222_password">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="15"><div align="left">&nbsp;&nbsp;&nbsp;&nbsp;新&nbsp;密&nbsp;码：
            <input name="mi222_password1" type="password" id="mi222_password1">
        </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><div align="left">&nbsp;&nbsp;&nbsp;&nbsp;重复密码：<font color="#990099"> 
        <input name="mi222_password2" type="password" id="mi222_password2">
      </font></div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD height="30"><input type="submit" name="Submit" value="提交修改">
          <input type="reset" name="Submit" value="取消修改"></TD>
    </TR>
  </form>
</TABLE>
</body>
</html>
⌨️ 快捷键说明

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