checklogin.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=md5(trim(replace(request.form("password"),"'"," ")))
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select id,username,password from [GameAdmin] where username='"&username&"'",conn,1,1
if rs.eof and rs.bof then
	Call ShowError("用户名不存在，请重新输入，谢谢！")
else
	if password<>rs("password") then
		Call ShowError("密码错误，请重新输入，谢谢！")
	else
		session("RainGameBS")=username
		session.timeout=20
		response.redirect "BeginBS.asp"
	end if
end if
call closeconn()
%>