ASP增加网站用户操作
<%'增加网站用户操作ASP代码实现
doing=request.querystring("doing")'取得状态如果是insert就执行
if doing="insert" then
user=trim(request.form("user"))'取得用户名
user_name=trim(request.form("user_name"))'单位名称
pass1=trim(request.form("pass1"))'密码一
pass2=trim(request.form("pass2"))‘密码二
no=trim(request.form("no"))'序号
bumeng=request.form("bumeng")'部门
user_class=request.form("user_class")
if user="" or user_name="" or pass1="" or pass2="" or no="" then '1判断有否空内容
msg="用户名、单位、密码、序号不能为空"
else
if pass1<>pass2 then '2二次密码是否一致
msg="二次输入的密码不一致"
else
str="select * from [user] where 用户名='"&user&"'"
set rs=conn.execute(str)
if not rs.eof then '3如果用户名已存在
msg="该用户名已存在,请换一个"
else
pass=ucase(md5(pass1))
str="insert into [user] (用户类别,用户名,密码,单位,部门,序号) values ('"&user_class&"','"&user&"','"&pass&"','"&user_name&"','"&bumeng&"','"&no&"')"
conn.execute(str)
user=""
user_name=""
end if '3
end if '2
end if '1
end if
%>
doing=request.querystring("doing")'取得状态如果是insert就执行
if doing="insert" then
user=trim(request.form("user"))'取得用户名
user_name=trim(request.form("user_name"))'单位名称
pass1=trim(request.form("pass1"))'密码一
pass2=trim(request.form("pass2"))‘密码二
no=trim(request.form("no"))'序号
bumeng=request.form("bumeng")'部门
user_class=request.form("user_class")
if user="" or user_name="" or pass1="" or pass2="" or no="" then '1判断有否空内容
msg="用户名、单位、密码、序号不能为空"
else
if pass1<>pass2 then '2二次密码是否一致
msg="二次输入的密码不一致"
else
str="select * from [user] where 用户名='"&user&"'"
set rs=conn.execute(str)
if not rs.eof then '3如果用户名已存在
msg="该用户名已存在,请换一个"
else
pass=ucase(md5(pass1))
str="insert into [user] (用户类别,用户名,密码,单位,部门,序号) values ('"&user_class&"','"&user&"','"&pass&"','"&user_name&"','"&bumeng&"','"&no&"')"
conn.execute(str)
user=""
user_name=""
end if '3
end if '2
end if '1
end if
%>