reg_check.asp

麦布会员管理程序是一个简易的会员注册及管理系统

<!--#include file="conn.asp"-->
<br><br><br><br><br>
<% 
name = Replace(trim(Request.form("username")),"'","1")
password = Replace(trim(Request.form("password")),"'","1")

if name = "" or password = "" then
response.redirect"cue.asp?cue=001"
else
		
set rscheck = server.CreateObject("adodb.recordset")
sql = "Select * from MB_Member where M_Name='" & name & "' and M_Pass='" & password & "'"
rscheck.open Sql,my_conn,1,3

if rscheck.eof then
	Response.redirect "cue.asp?cue=000"
else			
	session("login") = "yes"
	session("name") = rscheck("M_Name")
	session("vip") = rscheck("M_vip")
	sql="update MB_Member set M_Time=M_Time+1 where M_Name='" & name & "'"
    set rscheck=my_conn.execute(sql)
	Response.redirect "reg_home.asp"
end if

RScheck.close
my_conn.close
set my_conn = nothing
end if
%>