user_add.asp

对学校物资管理系统的一份设计

<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<!--#include file="inc/md5.asp"-->
<%
call adminer()
call Header()
Call ComeUrl()
Call adminqx()


dim username,password,userclass
username=trim(request("username"))
password=trim(request("password"))
userclass=trim(request("userclass"))


ssql="select username,password,userclass from admin where username='"&username&"'"

ors.open ssql,oconn,1,3

if not (ors.bof and ors.eof)  then
response.write("<script>alert('您添加的用户名已经存在！请换一个用户名再试试！');history.go(-1)</script>")
else
password=md5(password)
ors.addnew
ors("username")=username
ors("password")=password
ors("userclass")=userclass
ors.update
response.write("<table width='300' border='0' align='center' cellpadding='0' cellspacing='0'>")
response.write("<tr><td><div align='center'>用户添加成功！<br><script>window.setTimeout(""location.href='user.asp'"",3000);</script></div></td></tr></table>")
end if

ors.close
set ors=nothing
oconn.close
set oconn=nothing
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理</title>