validateuser.asp

来自「电子投标系统」· ASP 代码 · 共 31 行

<%@ Language=VBScript%>
<% option explicit %>
<%

		Dim dbconn
		Dim connectString
		Set dbconn = Server.CreateObject("ADODB.Connection")
		dbconn.open "BidBase","scott","tiger"
		
		Dim dbRec,dbRec2
		Dim SqlString
		Dim OB
		OB="07-Dec-80"

		Set dbRec2 = Server.CreateObject("ADODB.Recordset")
		dbRec2.Open "Select * from Member where Member_Login ='" & LoginName &"'" ,dbconn
		if dbRec2.EOF = true then
			Server.Transfer "register2\body_register2.asp"
		'	Set dbRec = Server.CreateObject("ADODB.Recordset")
		'	SqlString = "insert into member values ('"  & LoginName  & "' , '" & Password & "','" & Fname & "','" & Mname & "','" & Lname & "','07-Dec-80' , '" & Email &   "', 'lahore' , 'Punjab' ,54810 )"
		'	dbRec.open SqlString,dbconn
		'	Response.Write "You have been succesfully registered"
			Response.End
			
		else
			Response.Write "Please Choose a different LoginName"				
			Response.End
		end if
		dbconn.close
	end if
%>