0591_admin_add.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 34 行

<%@ language="VBScript"%>
<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
password=replace(trim(Request("pwd1")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sqltext="select * from 0591_User where UserName='" & request.form("uid") & "' and RealName='" & request.form("realname") & "' and PassWord='" & password & "'"
rs.open sqltext,conn,1,1

'查找数据库，检查此管理员是否已经存在
if rs.recordcount >= 1 then
if rs("UserName")=request.form("uid") then
Response.Redirect "Loginsb.asp?msg=此管理员帐号已经存在，请选用其它名称!"
response.end
rs.close
end if
end if


set rs=server.createobject("adodb.recordset")
sqltext="select * from 0591_User"
rs.open sqltext,conn,3,3

'添加一个管理员帐号到数据库
rs.addnew
rs("UserName")=request.form("uid")
rs("RealName")=request.form("realname")
rs("PassWord")=password
rs.update
Response.Redirect "0591_Admin.asp"

%>