2. 增加用户的源程序

增加用户

<%'call bgmid()%> <%oabusyuserdept=request.cookies(\if request(\增加%username=request(\password=request(\name=request(%userdept=request(%userlevel=request(\forbid=\

45

Made by SQH 附 录

'判断是否有与申请的用户名相同的 set conn=opendb(\set rs = server.CreateObject(\

sql=\password=\

rs.open sql,conn,1 if not rs.eof and not rs.bof then%>

用户名为<%=username%>的用户已经存在，请选择其他用户名

href=\

onclick=\

-1

);return

true;\返回

<%elsers.close

sql = \rs(\rs(\ rs(\

rs(\rs(\rs(\rs(\rs(\ rs(\总经办\'rs(\员工\

rs.Update'rs.close'set rs = nothing'conn.close%>

用户名为<%=username%>的用户注册成功！

<%end ifelse%>

46

• 1
• <<
• 7
• 8
• 9
• 10