admin_user.asp

新闻发布系统

					response.write "<font color=green>一般会员</font>"
				case 2
					response.write "<font color=green>高级会员</font>"
				case 3
					response.write "认证会员"
				case 4
					response.write "<font color=blue>VIP会员</font>"
				case 5
					response.write "<font color=#FF0099>系统管理员</font>"
				case else
					response.write "<font color=red>异常用户</font>"
			end select
			%>
            </td>
            <td align="center" class="td1"><%=rs("regdate")%> </td>
            <td width="112" align="center" class="td2"> <%=rs("art")%></td>
            <td width="40" align="center" class="td1"> 
              <%
	  if rs("lock")=true then
	  	response.write "<font color=red>锁定</font>"
	  else
	  	response.write "正常"
	  end if
	  %>
            </td>
          </tr>
          <%
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
loop
%>
        </table>  
        <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr bgcolor="#D3FFC4"> 
            <td width="180" height="30"> 
              <input name="chkAll" type="checkbox" id="chkAll"  value="checkbox">
              选中本页显示的所有用户</td>
            <td> <strong>操作：</strong> 
              <input name="Action" type="radio" value="Del" checked onClick="document.myform.UserLevel.disabled=true">删除&nbsp;&nbsp;&nbsp;
              <input name="Action" type="radio" value="Lock" onClick="document.myform.UserLevel.disabled=true">锁定 &nbsp;&nbsp;&nbsp;
              <input name="Action" type="radio" value="UnLock" onClick="document.myform.UserLevel.disabled=true">解锁 &nbsp;&nbsp;&nbsp; 
              <input name="Action" type="radio" value="Move" onClick="document.myform.UserLevel.disabled=false">移动到
              <select name="UserLevel" size="1" disabled id="UserLevel">
                <option value="1">一般会员</option>
                <option value="2">高级会员</option>
                <option value="3">认证会员</option>
                <option value="4">VIP会员</option>
              </select>
              &nbsp;&nbsp; 
              <input type="submit" name="Submit" value=" 执 行 " class=Anbutc> </td>
  </tr>
</table>
</td>
</form></tr></table>
<%
end sub

sub ShowSearch()
%>
<form name="form2" method="post" action="Admin_User.asp">
  <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#7ED3A7" class="border">
    <tr bgcolor="#F7FFF4" > 
      <td width="120">用户高级查询：</td>
      <td width="300"> 
        <select name="Field" id="Field">
          <option value="UserID" selected>用户ID</option>
          <option value="UserName">用户名</option>
        </select> <input name="Keyword" type="text" id="Keyword" size="20" maxlength="30"> 
        <input type="submit" name="Submit2" value=" 查 询 " class=Anbutc> <input name="UserSearch" type="hidden" id="UserSearch" value="7"> 
      </td>
      <td bgcolor="#F7FFF4">若为空，则查询所有用户</td>
    </tr>
  </table>
    </form>
<%
end sub

sub AddUser()
%>
<form name="myform" action="Admin_User.asp" method="post">
  <table width="500" border=0 align="center" cellpadding=2 cellspacing=1 bgcolor="#7ED3A7">
    <tr bgcolor="#F7FFF4"> 
      <td height="32" colspan="2" align=middle class=td0> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
          <tr> 
            <td height="26"> <div align="center"><b>新用户注册</b></div></td>
          </tr>
        </table></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>用户名称：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input type=text name=username size=20 maxlength=20 >
          <font color="#FF3333">*</font> 字母或数字</div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>您的密码：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=userpass type=password id="userpass" size=20 maxlength=12 >
          <font color="#FF3333">*</font> 字母或数字</div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>确认密码：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=PwdConfirm type=password size=20 maxlength=12 >
          <font color="#FF3333">*</font> </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle bgcolor="#F7FFF4" class=td1>真实姓名：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=realname type=text id="realname" size=20 maxlength=20 >
          <font color="#FF3333">*</font> </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>性 别：</td>
      <td align=middle class=td2> <div align="left">
          <input type="radio" name="sex" value="1" checked>
          男 　　 
          <input type="radio" name="sex" value="0">
          女<font color="#FF3333">*</font></div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>Oicq：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input type=text name=oicq size=12 maxlength=20 >
        </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>邮箱地址：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=email type=text id="email" size=30 >
          <font color="#FF3333">*</font></div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>主页地址：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=homepage type=text id="homepage"  value="http://" size=30 maxlength=50>
        </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>简要说明：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name="qm" type="text" id="qm" value="" size="30">
        </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td colspan="2" align=middle class=td0> <div align="center"> 
          <input name="Action" type="hidden" id="Action" value="SaveAdd">
          <input type="submit" value="确定" name="submit" class=Anbutc>
        </div></td>
    </tr>
    <tbody>
    </tbody>
  </table>
  <p><br>
  </p>
</form>
<%
end sub

sub Addsys()
%>
<form name="myform" action="Admin_User.asp" method="post">
  <table width="500" border=0 align="center" cellpadding=2 cellspacing=1 bgcolor="#7ED3A7">
    <tr bgcolor="#F7FFF4"> 
      <td height="32" colspan="2" align=middle class=td0> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
          <tr> 
            <td height="26"> <div align="center"><b>添加新管理员</b></div></td>
          </tr>
        </table></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>用户名称：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input type=text name=username size=20 maxlength=20 >
          <font color="#FF3333">*</font> 字母或数字</div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>您的密码：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=userpass type=password id="userpass" size=20 maxlength=12 >
          <font color="#FF3333">*</font> 字母或数字</div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>确认密码：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=PwdConfirm type=password size=20 maxlength=12 >
          <font color="#FF3333">*</font> </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>真实姓名：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=realname type=text id="realname" size=20 maxlength=20 >
          <font color="#FF3333">*</font> </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>性 别：</td>
      <td align=middle class=td2> <div align="left">
          <input type="radio" name="sex" value="1" checked>
          男 　　 
          <input type="radio" name="sex" value="0">
          女<font color="#FF3333">*</font></div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>Oicq：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input type=text name=oicq size=12 maxlength=20 >
        </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>邮箱地址：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=email type=text id="email" size=30 >
          <font color="#FF3333">*</font></div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>主页地址：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name=homepage type=text id="homepage"  value="http://" size=30 maxlength=50>
        </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td 
width=483 align=middle class=td1>简要说明：</td>
      <td 
width=483 align=middle class=td2> <div align="left"> 
          <input name="qm" type="text" id="qm" value="" size="30">
        </div></td>
    </tr>
    <tr bgcolor="#F7FFF4"> 
      <td colspan="2" align=middle class=td0> <div align="center"> 
          <input name="Action" type="hidden" id="Action" value="SaveAddsys1">
          <input type="submit" value="确定" name="submit" class=Anbutc>
        </div></td>
    </tr>
    <tbody>
    </tbody>
  </table>
  <p><br>
  </p>
</form>
<%end sub%>
<%

sub Modify()
	dim UserID
	dim rsUser,sqlUser
	UserID=trim(request("UserID"))
	if UserID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
		exit sub
	else
		UserID=Clng(UserID)
	end if