📄 newuser.asp
字号:
<%@ LANGUAGE="VBScript"%>
<% response.buffer=true %>
<%const title="新增用户"%>
<!--#include file=../data/username.inc-->
<!--#include file=../data/connect.asp-->
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<script language="JavaScript">
<!--
function change()
{
if( input.manage.value==3)
{input.smalllocation.disabled = false;
address.innerHTML='<font color=blue>隶属公司:</font>';
}
else
{input.smalllocation.disabled=true;
address.innerHTML='<font color=red>此项不用-</font>';
}
}
function fanhui(url)
{
window.location.href=url;
}
// -->
</script>
<title><%=title%></title>
<link rel=stylesheet type=text/css href=../data/forum.css>
</head>
<body topmargin="0" onload=this.document.input.name.focus();>
<!--#include file=../data/myPrg.asp-->
<%
Showtitle(title)
hurry = split(session("username"),";")
UserCompanyid = hurry(0)
UserFlag = hurry(1)
User = hurry(2)
if UserFlag > 3 then
call closedatabase
Response.End
end if
if Request.ServerVariables("REQUEST_METHOD")="POST" and split(session("username"),";")(1) < 4 then
msg=""
if request("name")="" then
msg=msg+"请输入用户名！<br>"
end if
if request("password")="" then
msg=msg+"请输入密码！<br>"
end if
if request("confirm")="" then
msg=msg+"请输入确认密码！<br>"
end if
if request("password")<>request("confirm") then
msg=msg+"密码和确认密码不一致！<br>"
end if
if msg<>"" then
call closedatabase
showerror(msg)
Response.End
end if
username = trim(Request.Form("name"))
username = replace(username,"'","’")
password = trim(Request.Form("password"))
password = replace(password,"'","’")
manage = request("manage")
manage = replace(manage,"'","")
sql="select * from users where username='"&username&"'"
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
rs.Close
set rs = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""用户名 " + username + " 已经存在，\n\n请重新选用另一个试试！"");history.back();"
Response.Write "</script>"
Response.End
else
memo = trim(Request.Form("memo"))
memo = replace(memo,"'","’")
if memo = "" then memo = " "
rs.addnew
rs("username")=username
rs("password")=password
rs("flag") = 0
rs("addtime") = now()
rs("lasttime") = now()
rs("times") = 0
rs("ip") = Request.ServerVariables("remote_host")
rs("memo")=memo
if userflag < 3 then
rs("user_companyid") = 0
elseif userflag = 3 then
rs("user_companyid") = usercompanyid
end if
rs("from_user") = split(session("username"),";")(2)
rs("bgcolor") = "#6699cc"
rs("forecolor") = "#ffffff"
rs("flag") = manage
if manage = 3 then
small = request("smalllocation")
if small = 0 then
rs.Close
set rs = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""请务必选择隶属公司!"");"
Response.Write "history.go(-1);"
Response.Write "</script>"
Response.End
end if
rs("user_companyid") = small
end if
rs.update
rs.Close
set rs = nothing
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "var myTime = new Date(); "
Response.Write "var timeNow = myTime.getTime();"
if manage = 3 or manage = 2 then
Response.Write "alert(""用户" + username + "已经成功保存!"");"
Response.Write "window.location ='newuser.asp?tt='+timeNow;"
Response.Write "</script>"
Response.End
end if
Response.Write "{if (confirm(""用户" + username + "已经成功保存,\n\n进行该用户的权限设置吗？""))"
if manage = 4 then
Response.Write "window.location ='flagset.asp?username="&username&"&tt='+timeNow;"
elseif manage = 5 then
Response.Write "window.location ='flagset.asp?flagview=yes&username="&username&"&tt='+timeNow;"
else
Response.Write "alert(""非法进入！"");"
end if
Response.Write "else "
Response.Write "{"
Response.Write "window.location ='newuser.asp?tt='+timeNow;}"
Response.Write "}"
Response.Write "</script>"
Response.End
end if
end if
%>
<form action="newuser.asp" method="POST" name="input">
<p align=center><font color=red>请在以下的表格中填入相关的数据</font>
<p>
<table align=center border=0>
<tr>
<td nowrap><font color=blue>用 户 名：</td>
<td><input class=smallInput type=textbox name="name" value='' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
</tr>
<tr>
<td nowrap><font color=blue>用户密码：</td>
<td><input class=smallInput type=password name="password" value='' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
</tr>
<tr>
<td nowrap><font color=blue>确认密码：</td>
<td><input class=smallInput type=password name="confirm" value='' onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">**</td>
</tr>
<tr>
<td nowrap align=right><font color=blue>用户类别：</td>
<td> <select name="manage" onchange="change()" style="font-size:9pt;width=135;BORDER-TOP-WIDTH: 1px;BORDER-LEFT-WIDTH: 1px;BORDER-BOTTOM-WIDTH: 1px;BORDER-RIGHT-WIDTH: 1px" onkeydown="javascript:if(event.keyCode==13)event.keyCode=9">
<%
if UserFlag < 3 then
if UserFlag = 1 then
%>
<option value="2">总录入员</option>
<%
end if
%>
<option value="3">公司管理员</option>
<%
end if
%>
<option value="4" selected>录入人员</option>
<option value="5">客 户</option>
</select></td>
</tr>
<tr>
<td nowrap align=right><div id=address align="left"><font color=red>此项不用：</font> </div>
</td>
<td>
<%
response.write " <select class='smallinput' name='smalllocation' size='1' disabled onkeydown=""javascript:if(event.keyCode==13)event.keyCode=9"">"
response.write "<option value='0'>--请选择隶属公司--</option>"+chr(13)+chr(10)
if UserFlag < 3 then
sql="select company_id,company_name from company where company_disabled = 0 order by company_id DESC"
elseif UserFlag = 3 then
sql="select company_id,company_name from company where company_disabled = 0 and company_id = "&UserCompanyid&" order by company_id DESC"
else
call closedatabase
Response.End
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
response.write "<option value='"+CStr(rs("company_id"))+"'>"+rs("company_name")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
else
response.write "<option value='0'>没有公司</option>"+chr(13)+chr(10)
end if
rs.close
set rs = nothing
response.write " </select>"
%>
</td>
</tr>
<tr>
<td valign="top"><font color=blue>相关说明：</td>
<td><textarea class=smallarea name=memo rows=3 cols=40 onkeydown="javascript:if(event.keyCode==13)event.keyCode=9"></textarea></td>
</tr>
<tr>
<td>
<td><br><input class=buttonface type=submit name=ok value=" 确 定 ">
<input class=buttonface type=button name=reset value="用户管理" onclick="fanhui('companyuseredit.asp')">
</tr>
</table>
</form>
<!--#include file=../data/copyright.asp-->
<%
call closedatabase
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -