register.asp

一个赌大小的游戏

<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim username,password
username=Lcase(trim(replace(request.form("username"),"'","''")))
password=trim(replace(request.form("password"),"'","''"))
password2=trim(replace(request.form("password2"),"'","''"))
if username="" or password="" or password2="" then Call Showerror("请将资料填写完整！")
if password<>password2 then Call Showerror("两次密码输入不一样！")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select id,username,password from [GameAdmin] where username='"&username&"'",conn,1,1
if not rs.eof then
	Call ShowError("用户名已存在，请重新输入，谢谢！")
else
	conn.execute("insert into [GameAdmin] (username,password,myscore) values ('"&username&"','"&md5(password)&"',100)")
	session("RainGameBS")=username
	session.timeout=20
	response.redirect "BeginBS.asp"
end if
call closeconn()
%>