📄 adduser.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<!--#include file=inc/yan.asp-->
<%
'验证用户身份
call case10
if request("post")=1 then
if request("username")="" or request("userpwd")="" then
response.Write("<script language=JavaScript>" & "alert('用户名或者密码不能为空！');" & "history.back()" & "</script>")
else
if request("user")=0 then
call wr1
else
call wr2
end if
end if
end if
'添加普通用户
function wr1
username=trim(replace(request("username"),"'",""))
userpwd=trim(replace(request("userpwd"),"'",""))
for i=1 to len(username)
user=mid(username,i,1)
if user="'" or user="%" or user="<" or user=">" or user="&" or user="|" then
response.write "<script language=JavaScript>" & "alert('您的用户名含有非法字符,请重新输入！');" & "history.back()" & "</script>"
response.end
end if
next
for i=1 to len(userpwd)
pass=mid(userpwd,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or pass="&" or pass="|" then
response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入！');" & "history.back()" & "</script>"
response.end
end if
next
'判断用户名是否已经存在
set rs1=server.CreateObject("adodb.recordset")
sql1 = "Select * From users Where username='"&request("username")&"'"
rs1.open sql1,conn,1,1
If not rs1.EOF Then
response.Write("<script language=JavaScript>" & "alert('用户名已经存在！');" & "history.back()" & "</script>")
end if
rs1.close
'添加用户权限
set rs=server.CreateObject("adodb.recordset")
sql="select * from users"
rs.open sql,conn,1,3
rs.addnew
rs("username")=request("username")
rs("userpwd")=request("userpwd")
rs("shenhe")=request("shenhe")
rs("huiyi")=request("huiyi")
rs("gonggong")=request("gonggong")
rs("geren")=request("geren")
rs("huibao")=request("huibao")
rs("caigou")=request("caigou")
rs("kucun")=request("kucun")
rs("shangbao")=request("shangbao")
rs("caigoushen")=request("caigoushen")
rs("renshi")=request("renshi")
rs("name")=session("na")
rs("time")=now()
rs.update
rs.close
response.Write("<script language=JavaScript>" & "alert('添加成功！');" & "history.back()" & "</script>")
end function
'添加超级用户
function wr2
username=trim(replace(request("username"),"'",""))
userpwd=trim(replace(request("userpwd"),"'",""))
for i=1 to len(username)
user=mid(username,i,1)
if user="'" or user="%" or user="<" or user=">" or user="&" or user="|" then
response.write "<script language=JavaScript>" & "alert('您的用户名含有非法字符,请重新输入！');" & "history.back()" & "</script>"
response.end
end if
next
for i=1 to len(userpwd)
pass=mid(userpwd,i,1)
if pass="'" or pass="%" or pass="<" or pass=">" or pass="&" or pass="|" then
response.write "<script language=JavaScript>" & "alert('您的密码含有非法字符,请重新输入！');" & "history.back()" & "</script>"
response.end
end if
next
set rs1=server.CreateObject("adodb.recordset")
sql1 = "Select * From users Where username='"&request("username")&"'"
rs1.open sql1,conn,1,1
If not rs1.EOF Then
response.Write("<script language=JavaScript>" & "alert('用户名已经存在！');" & "history.back()" & "</script>")
end if
rs1.close
set rs=server.CreateObject("adodb.recordset")
sql="select * from users"
rs.open sql,conn,1,3
rs.addnew
rs("username")=request("username")
rs("userpwd")=request("userpwd")
rs("name")=session("na")
rs("chaoji")=1
rs("time")=now()
rs.update
rs.close
response.Write("<script language=JavaScript>" & "alert('添加成功！');" & "history.back()" & "</script>")
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #ffffff;
}
.style3 {color: #000000}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body>
<form name="form1" method="post" action="">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table width="610" border="0" align="center" cellspacing="1" bgcolor="#336699">
<tr >
<td width="162" height="34" background="images/tile_sub.gif"><div align="center" class="style3">用户名：</div></td>
<td width="140" background="images/tile_sub.gif"><div align="center" class="style3">
<input name="username" type="text" id="username" size="20">
<input name="post" type="hidden" id="post" value="1">
</div></td>
<td width="96" background="images/tile_sub.gif"><div align="center" class="style3">密 码：</div></td>
<td width="241" colspan="3" background="images/tile_sub.gif"><div align="center" class="style3">
<input name="userpwd" type="password" id="userpwd" size="20">
</div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"><div align="center">选择员工：</div></td>
<td colspan="5" valign="middle" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0">
<tr>
<td width="9%" valign="top">
<select name="menu1" size="3" onChange="MM_jumpMenu('nei',this,0)">
<%
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from renshi"
rs2.open sql2,conn,1,1
if not rs2.eof then
for i=1 to rs2.recordcount and not rs2.eof
%>
<option value=nei.asp?id=<%=rs2("id")%>><%=rs2("name")%></option>
<%
rs2.movenext
if rs2.eof then exit for
next
else
response.Write("<option value='没有用户'>没有用户</option>")
end if
%>
</select>
</td>
<td width="91%" height="50"><iframe src="nei.asp" width="400" height="52" name=nei scrolling="no" frameborder="no">
</iframe></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="center">权 限：</div></td>
<td colspan="5" valign="middle" bgcolor="#FFFFFF"><input name="user" type="radio" onClick="im1.style.display='block';" value="0" checked>
普通用户
<input type="radio" name="user" value="1" onClick="im1.style.display ='none';">
超级用户
<table width="448" border="0" id="im1">
<tr>
<td>
<input name="shenhe" type="checkbox" id="shenhe2" value="1">
批示功能</td>
<td>
<input name="huiyi" type="checkbox" id="huiyi2" value="1">
会议管理</td>
<td>
<input name="gonggong" type="checkbox" id="gonggong2" value="1">
公共信息管理 </td>
<td>
<input name="geren" type="checkbox" id="geren2" value="1">
审核个人登记活动 </td>
</tr>
<tr>
<td height="11">
<input name="huibao" type="checkbox" id="huibao2" value="1">
汇总功能</td>
<td>
<input name="caigou" type="checkbox" id="caigou2" value="1">
采购功能</td>
<td>
<input name="kucun" type="checkbox" id="kucun2" value="1">
提报库存功能</td>
<td><input name="shangbao" type="checkbox" id="shangbao2" value="1">
下达/完成情况上报</td>
</tr>
<tr>
<td height="12" colspan="2"><input name="caigoushen" type="checkbox" id="caigoushen3" value="1">
采购计划审核 </td>
<td><input name="renshi" type="checkbox" id="renshi" value="1">
人事添加员工 </td>
<td> </td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F3F3F3">
<td height="23" colspan="6"><div align="center">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
<div align="center"></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -