⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 useredit.asp

📁 很好的代码!!大家可以下
💻 ASP
字号:
<!--#include file=conn.asp --><!--#include file="char.inc"--><!--#include file=../include/config.asp --><!--#include file="chkuser.asp" -->

<%
IF not(request.cookies("KEY")="super" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster") THEN
response.redirect "index_face.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF
if request.cookies("purview")="99999" then
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 修改资料</title>
<script LANGUAGE="javascript">
<!--
function FrmAddLink_onsubmit() {
 if (document.FrmAddLink.passwd.value=="")
	{
	  alert("对不起,请您输入密码!")
	  document.FrmAddLink.passwd.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd.value.length < 4)
	{
	  alert("为了安全,您的密码应该长一点!")
	  document.FrmAddLink.passwd.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd.value.length > 16)
	{
	  alert("您的密码太长了吧!")
	  document.FrmAddLink.passwd.focus()
	  return false
	 }
else if (document.FrmAddLink.username.value==document.FrmAddLink.passwd.value)
	{
	  alert("为了安全,用户名与密码不应该相同!")
	  document.FrmAddLink.passwd.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd2.value=="")
	{
	  alert("对不起,请您输入验证密码!")
	  document.FrmAddLink.passwd2.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd2.value !== document.FrmAddLink.passwd.value)
	{
	  alert("对不起,您两次输入的密码不一致!")
	  document.FrmAddLink.passwd2.focus()
	  return false
	 }
else if (document.FrmAddLink.fullname.value=="")
	{
	  alert("对不起,请输入真实姓名!")
	  document.FrmAddLink.fullname.focus()
	  return false
	 }
else if (document.FrmAddLink.depid.value=="")
	{
	  alert("对不起,请选择工作单位!")
	  document.FrmAddLink.depid.focus()
	  return false
	 }
}

//-->
</script>
</head>

<body topmargin="0"><!--#include file=top.asp-->
<%
dim sql
dim rs
 sql="select * from admin where id="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
                %>
<%if rs("adder")=request.cookies("username") or request.cookies("key")="super" then%> 
<p> </p>
<table border="1" align=center cellpadding="0" cellspacing="0" bordercolor="<%=border%>" style="border-collapse: collapse">

<td width="229"><form method="POST" name="FrmAddLink" LANGUAGE="javascript"
    onsubmit="return FrmAddLink_onsubmit()"   action="saveedit.asp?id=<%=request("id")%>">

  <tr>
    <td height=22 colspan="2" bgcolor="<%=m_top%>">
    <p align="center">修&nbsp;&nbsp;&nbsp; 改</td>
  </tr>
  <tr>
              <td height="22" align="right" valign="middle"> 
    <div align="right"><span class="smallFont">用 户 名:</span></div></td>
              <td width="424" height="22"> 
                <div align="left"> 
                  <input name="username" size="20" value="<%=rs("username")%>" <%if (rs("username")<>request.cookies("username")  and request.cookies("purview")="99999") or request.cookies("purview")<>"99999" then%>readonly<%end if%> class="smallInput" maxlength="30" style="font-family: 宋体; font-size: 9pt">
</div>
    </td>
  </tr>
  <tr>
              <td height="22" align="right"> 
    <div align="right"><span class="smallFont">密&nbsp;&nbsp;&nbsp; 码:</span></div></td>
              <td height="22"> 
                <div align="left"> 
                  <input name="passwd" type="password" size="20" value="<%=rs("passwd")%>" class="smallInput" maxlength="50" style="font-family: 宋体; font-size: 9pt">
</div>
    </td>
  </tr>
  <tr>
              <td height="22" align="right"> 
    <div align="right"><span class="smallFont">验证密码:</span></div></td>
              <td height="22"> 
                <div align="left"> 
                  <input name="passwd2" type="password" size="20" value="<%=rs("passwd")%>" class="smallInput" maxlength="50" style="font-family: 宋体; font-size: 9pt">
</div>
    </td>
  </tr>
  <tr>
              <td height="22" align="right"> 
    <div align="right"><span
              class="smallFont">真实姓名:</span></div></td>
              <td height="22"> 
                <div align="left"> 
                  <input name="fullname" size="20" value="<%=rs("fullname")%>" class="smallInput" maxlength="50" style="font-family: 宋体; font-size: 9pt">
</div>
    </td>
  </tr>
  <tr>
          <td height="22" align="right"> 
    <div align="right"><span class="smallFont">工作单位:</span></div></td>
          <td height="22"> <% 
                  set rstype=createobject("adodb.recordset")
                  sql="select * from dep order by id"
                  rstype.Open sql,conn,1,3
                  %>
<select name="depid" style="font-family: 宋体; font-size: 9pt"><%do while not rstype.EOF%>
<option value="<%=rstype("id")%>" <%if rs("depid")=Cint(rstype("id")) then%>selected<%end if%> ><%=rstype("depname")%></option>
    <%
                  rstype.MoveNext
                  loop
                  set rstype=nothing
                  %></select></td>
  </tr>
  <tr>
                        <td height="22" align="right"> 
                          <div align="right">用户权限:</div></td>
 <td height="22">
                            <select name="oskey" style="font-family: 宋体; font-size: 9pt">
                             <%if request.cookies("key")="super" then%>
                              <option <%if rs("oskey")="super" then%> selected <%end if%>value="super">系统管理员</option>
			      <option <%if rs("oskey")="check" then%> selected <%end if%>value="check">文章审核员</option>
<option <%if rs("oskey")="typemaster" then%> selected <%end if%>value="typemaster">总栏管理员</option>
<%end if%><%if request.cookies("key")="typemaster" or request.cookies("key")="super" then%>
<option <%if rs("oskey")="bigmaster" then%> selected <%end if%>value="bigmaster">大类管理员</option><%end if%>
                              <option <%if rs("oskey")="smallmaster" then%> selected <%end if%>value="smallmaster">小类管理员</option>
                              <%if request.cookies("key")="super" then%>
<option <%if rs("oskey")="selfreg" then%> selected <%end if%>value="selfreg">注册用户</option><%end if%>
                            </select>                          </div>
    </td>
  </tr>
  <tr>
                        <td height="22" align="right"> 
                          <div align="right">是否需要审核:<br>
    该功能仅对小类管理员和注册用户有效!</div></td>
 <td height="22">
                          <select name="shenhe" style="font-family: 宋体; font-size: 9pt">
                             <option <%if rs("shenhe")="1" then%> selected <%end if%> value="1">需要</option>
                              <option <%if rs("shenhe")="0" then%> selected <%end if%> value="0">不需要</option>
      </select>默认值为需要审核
    </td>
  </tr>
   <tr>
    <td height=22 colspan="2">
    <p align="center"><input type="reset" value=" 返 回 " onclick="javascript:history.go(-1)" class="buttonface" style="font-family: 宋体; font-size: 9pt;">&nbsp; <input type="submit" value=" 修 改 " name="cmdok" class="buttonface" style="font-family: 宋体; font-size: 9pt;">&nbsp; <input type="reset" value=" 复 原 "
  name="cmdcancel" class="buttonface" style="font-family: 宋体; font-size: 9pt;">
</td>
  </tr>
<%if rs("username")=request.cookies("username")  and request.cookies("purview")="99999" then%>
<tr>
    <td height=22 colspan="2" align=center><font color=red>超级管理员 <%=request.cookies("username")%> 您好,如果您更改了自己的用户名,请在更改后退出系统以新用户名重新登录,以保证系统功能正常运行。</font></td>
  </tr><%end if%>
</table>
</form><%else%><script language=javascript>
history.go(-1)
alert("对不起,你无权修改该用户信息!")
</script><%end if%>
</body>

</html>
<%else
response.redirect "index_face.asp"
response.end
end if
%>
<% 
rs.close 
%>

⌨️ 快捷键说明

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