useradd2.asp

来自「后台路径:admin/login.asp 用户名:manage 密码:fan」· ASP 代码 · 共 46 行

<% if request.cookies("okadmin")="" and request.cookies("rank")="" then
  response.redirect "login.asp"
end if %>
<!--#include file=conn.asp -->

<% 
dim user,password,quanxian
user=trim(request.Form("user"))
password=trim(request.Form("password"))
 
if user="" or password="" then %>
<script language="JavaScript">
history.go(-1)
alert("用户名或者密码不能为空！")
</script>
<%
response.End()
end if

set rs=server.CreateObject ("Adodb.RecordSet")
rs.Source="select * from admin where username='" & user & "'"
rs.Open rs.Source,conn,1,1

if not rs.EOF then 
%>
<script language=javascript>
     history.back()
     alert("已经存在该用户！")
</script>
<%
else
quanxian="3"
    sql="INSERT INTO admin(username,password,rank) VALUES "
sql=sql & "(" & "'"& user & "'" & ","
sql=sql & "'"& password & "'" & ","
sql=sql & "'"& quanxian & "'" & ")"
     conn.Execute (sql)
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect("useradd.asp")

%>