📄 add.asp
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
set cn=server.CreateObject("ADODB.connection")
cn.Open DSN_ACLASS
set rsUser=server.CreateObject("ADODB.recordset")
rsUser.Open "select ID from "&TBL_USER&" where SCHOOLID="&session("school_id")&"",cn,adOpenStatic
usercount=rsUser.RecordCount
rsUser.close
if usercount>= session("school_max_user") then
Response.Write "<p align=center>对不起，您最多只能添加"&session("school_max_user")&"个用户。</p>"
Response.Write "<p align=center><a href='vbscript:history.back'>返回</a></p>"
cn.close
response.end
end if
set rs=server.CreateObject("ADODB.recordset")
%>
<HTML>
<BODY bgcolor="#CFC9CD" leftmargin="0" topmargin="10" >
<!--#include file="Header.asp"-->
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" bgcolor="#EFEFEF" height="20" valign="bottom"> 你现在的位置：用户管理－添加用户</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764"> </td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" valign="top">
<form name="form1" method="post" action="add2.asp">
<table width="85%" border="1" align="center" bgcolor="#E3E3E3">
<tr bgcolor="EFEFEF">
<td width="32%">用户名</td>
<td width="68%" bgcolor="EFEFEF">
<input alt="用户名***" type=text name=user_username maxlength="20">
*** (不超过20个字符)</td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">昵称</td>
<td width="68%">
<input alt="昵称***" type=text name=user_nickname maxlength="20">
*** (不超过20个字符)</td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">密码</td>
<td width="68%">
<input type=text name=user_password maxlength="20" >
(不超过20个字符) </td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">客户端登录时校验机器硬件ID</td>
<td width="68%">
<input type="checkbox" name="user_verify_hid" value="True">
需要校验 硬件ID:
<input type="text" name="user_hid" value="">
</td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">用户类型</td>
<td width="68%">
<select name="user_type" alt>
<%
rs.Open "select * from DIC_USERTYPE where ID not in ("&UTP_ADMIN&", "&UTP_SCHOOLADMIN&", "&UTP_ASADMIN&")", cn
rs.movefirst
do while not rs.eof %>
<option <%=SELECTED(UTP_STUDENT, rs("ID"))%> value=<% =rs("id")%>>
<% =rs("name")%>
</option>
<% rs.movenext
loop
%>
</select>
</td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">性别</td>
<td width="68%">
<select name="user_sex" alt>
<%
rs.Close
rs.Open "select * from DIC_SEX", cn
rs.movefirst
do while not rs.eof %>
<option <%=SELECTED(1, rs("ID"))%> value=<% =rs("id")%>>
<% =rs("name")%>
</option>
<% rs.movenext
loop
rs.close
%>
</select>
</td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">广播接收协议</td>
<td width="68%">
<select name="user_protocol" alt>
<%
rs.Open "select * from DIC_PROTOCOL", cn
rs.movefirst
do while not rs.eof %>
<option <%=SELECTED(clng(request("user_protocol")), rs("ID"))%> value=<% =rs("id")%>>
<% =rs("name")%>
</option>
<% rs.movenext
loop
rs.Close
%>
</select>
</td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">EMail</td>
<td width="68%">
<input type=text name=user_mailadd maxlength="50" >
</td>
</tr>
<tr bgcolor="EFEFEF">
<td width="32%">赋予会议室的开会权限(仅对会员、会议助理、总经理、专家生效)</td>
<td width="68%">
<%
rs.Open "select * from CLASS where SCHOOLID="&session("school_id")&" order by NAME", cn, adOpenStatic
cur_class=0 %>
<table width="100%" border="0">
<tr>
<td valign="top">
<%do while not rs.eof and cur_class<rs.RecordCount/2%>
<input type="checkbox" name="class_id" value=<%=rs("id")%> unchecked>
<% =rs("name")%>
<br>
<% rs.movenext
cur_class=cur_class+1
loop%>
</td>
<td valign="top">
<%do while not rs.eof and cur_class<=rs.RecordCount%>
<input type="checkbox" name="class_id" value=<%=rs("id")%> unchecked>
<% =rs("name")%>
<br>
<% rs.movenext
cur_class=cur_class+1
loop%>
</td>
</tr>
</table>
<% rs.Close %>
</td>
</tr>
<tr bgcolor="EFEFEF">
<td colspan="2">
<div align="center">
<input type="button" value="确定" onClick="jscript:OnSubmitGeneral(form1)" name="buttonsubmit">
<input type="button" value="返回" onClick="jscript:OnReturn()" name="button">
</div>
</td>
</tr>
</table>
</form>
</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
<td width="764" bgcolor="EFEFEF" height="21">
<div align="center"><%=COMPANY%></div>
</td>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#8C9A8C" align="center">
<tr>
<td height="4"></td>
</tr>
</table>
<!--#include file="../../System/miscJScript.asp"-->
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -