📄 body_register2.asp
字号:
<%@ Language=VBScript%>
<% option explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Generator" CONTENT="NetObjects Fusion 4.0 Trial for Windows">
<TITLE>Register2</TITLE>
<BASE TARGET="_parent">
</HEAD>
<%
dim Fname,Mname,Lname,LoginName,Password,Cpassword,Email,Cemail,dd,mm,yy
dim Phone, PostalAddr,PostalAddr2,City, PostalCode,Province,Country
dim CreditCardNo,CreditCardName,Creditdd,Creditmm,Credityy
dim DOB,CreditCardDate
dim errorMsg, i
if isEmpty(Session("Register")) then
Response.Write "Your Session has expired!<br>"
Response.Write "<A HREF='./register.html'>click here to register again</A>"
Response.End
end if
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.Form("hidden")<>1 then
Phone=NULL
PostalCode=NULL
Phone=Request.Form("Phone")
PostalAddr=Request.Form("PostalAddr")
PostalAddr2=Request.Form("PostalAddr2")
City=Request.Form("City")
PostalCode=Request.Form("PostalCode")
Province=Request.Form("Province")
Country=Request.Form("Country")
CreditCardNo=Request.Form("CreditCardNo")
CreditCardName=Request.Form("CreditCardName")
Creditdd=Request.Form("Creditdd")
Creditmm=Request.Form("Creditmm")
Credityy=Request.Form("Credityy")
CreditCardDate=Creditdd&"-"&Creditmm&"-"&Credityy
if len(CreditCardNo) <> 14 then
errorMsg ="You must give a valid credit card no"
else
if not isNumeric(CreditCardNo) then
errorMsg= "The Credit Card you've entered is invalid. Please use numbers only"
end if
end if
if len(errorMsg) = 0 then
if len(CreditCardName)= 0 then
errorMsg="You must enter the valid name on the CreditCard"
else
for i = 1 to len(CreditCardName)
if instr(1, "abcdefghijklmnopqrstuvwxyz'", mid(Fname,i,1), vbTextCompare) = 0 then
errorMsg= "The first name you entered is invalid, Please re-enter your first name."
exit for
end if
next
end if
end if
if len(errorMsg) = 0 then
if len(Creditdd)= 0 then
errorMsg="Please Enter Valid Expiry Date"
else
if len(Creditdd)= 0 then
errorMsg="Please Enter Valid Expiry Date"
else
if len(Creditdd)= 0 then
errorMsg="Please Enter Valid Expiry Date"
end if
end if
end if
end if
if len(Phone)<>0 then
if Not isNumeric(Phone) then
errorMsg="The Phone Number entered is invalid, please use numbers only"
end if
else
Phone="NULL"
end if
if len(errorMsg) = 0 then
if len(PostalCode) <> 0 then
if Not isNumeric(PostalCode) then
errorMsg="The Postal Code is incorrect, please give numbers only"
end if
else
PostalCode="NULL"
end if
end if
if len(errorMsg) <> 0 then
Response.Write errorMsg
else
Dim dbconn
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.open "BidBase","scott","tiger"
Dim dbRec,dbRec2
Dim SqlString
Set dbRec = Server.CreateObject("ADODB.Recordset")
Fname= Session("Register")("FirstName")
Mname= Session("Register")("MiddleName")
Lname= Session("Register")("LastName")
LoginName= Session("Register")("LoginName")
Password=Session("Register")("Password")
Email= Session("Register")("Email")
Cemail= Session("Register")("ConfirmEmail")
DOB= Session("Register")("DOB")
SqlString = "insert into member values ('" &LoginName &"','"&Password&"','" &Fname&"','"&Mname &"','"&Lname&"','"&Email&"','"&DOB&"',"&Phone&",'"&PostalAddr&PostalAddr2&"','"&City&"',"&PostalCode&",'"&Province&"','"&Country&"',"&CreditCardNo&",'"&CreditCardName&"','"&CreditCardDate&"')"
'Response.Write SqlString
'Response.End
dbRec.open SqlString,dbconn
Response.Write "You have been succesfully registered"
Response.Cookies("LoginName")=LoginName
Response.Write"<a href="&"'../index.asp'"&">Click here to login</a>"
dbconn.close
Session.Abandon
Response.End
end if
end if
end if
%>
<BODY BACKGROUND="../FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=518 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=19 HEIGHT=31><IMG SRC="../clearpixel.gif" WIDTH=19 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=519></TD>
<TD WIDTH=499>
<FORM NAME="MemberRegister2" ACTION="body_register2.asp" TARGET="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=21 HEIGHT=39><IMG SRC="../clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=360>
<TABLE ID="Table4" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=360>
<TR>
<TD WIDTH=117><P><FONT>Phone Number</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField6" TYPE=TEXT NAME="Phone" VALUE="<%=Phone%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Street Address</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField9" TYPE=TEXT NAME="PostalAddr" VALUE="<%=PostalAddr%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD> </TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField8" TYPE=TEXT NAME="PostalAddr2" VALUE="<%=PostalAddr2%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>City</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField7" TYPE=TEXT NAME="City" VALUE="<%=City%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Zip Code</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField12" TYPE=TEXT NAME="PostalCode" VALUE="<%=PostalCode%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>State</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField11" TYPE=TEXT NAME="Province" VALUE="<%=Province%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Country</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField10" TYPE=TEXT NAME="Country" VALUE="<%=Country%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=21 HEIGHT=34><IMG SRC="../clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=366>
<TABLE ID="Table3" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=366>
<TR>
<TD WIDTH=117 HEIGHT=26><P><FONT>Credit card number</FONT></TD>
<TD WIDTH=236><P><INPUT ID="FormsEditField5" TYPE=TEXT NAME="CreditCardNo" VALUE="<%=CreditCardNo%>" SIZE=29 MAXLENGTH=29> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Name on credit card</FONT></TD>
<TD WIDTH=236><P><INPUT ID="FormsEditField4" TYPE=TEXT NAME="CreditCardName" VALUE="<%=CreditCardName%>" SIZE=29 MAXLENGTH=29> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Expiry Date</FONT></TD>
<TD WIDTH=236><P>
<SELECT ID="FormsComboBox2" NAME="Creditdd">
<OPTION VALUE="<%=Creditdd%>" SELECTED><%=Creditdd%></OPTION>
<OPTION VALUE="01">01</OPTION>
<OPTION VALUE="02">02</OPTION>
<OPTION VALUE="03">03</OPTION>
<OPTION VALUE="04">04</OPTION>
<OPTION VALUE="05">05</OPTION>
<OPTION VALUE="06">06</OPTION>
<OPTION VALUE="07">07</OPTION>
<OPTION VALUE="08">08</OPTION>
<OPTION VALUE="09">09</OPTION>
<OPTION VALUE="10">10</OPTION>
<OPTION VALUE="11">11</OPTION>
<OPTION VALUE="12">12</OPTION>
<OPTION VALUE="13">13</OPTION>
<OPTION VALUE="14">14</OPTION>
<OPTION VALUE="15">15</OPTION>
<OPTION VALUE="16">16</OPTION>
<OPTION VALUE="17">17</OPTION>
<OPTION VALUE="18">18</OPTION>
<OPTION VALUE="19">19</OPTION>
<OPTION VALUE="20">20</OPTION>
<OPTION VALUE="21">21</OPTION>
<OPTION VALUE="22">22</OPTION>
<OPTION VALUE="23">23</OPTION>
<OPTION VALUE="24">24</OPTION>
<OPTION VALUE="25">25</OPTION>
<OPTION VALUE="26">26</OPTION>
<OPTION VALUE="27">27</OPTION>
<OPTION VALUE="28">28</OPTION>
<OPTION VALUE="29">29</OPTION>
<OPTION VALUE="30">30</OPTION>
<OPTION VALUE="31">31</OPTION>
</SELECT>
<SELECT ID="FormsComboBox1" NAME="Creditmm">
<OPTION VALUE="<%=Creditmm%>" SELECTED><%=Creditmm%></OPTION>
<OPTION VALUE="Jan">January</OPTION>
<OPTION VALUE="Feb">February</OPTION>
<OPTION VALUE="Mar">March</OPTION>
<OPTION VALUE="Apr">April</OPTION>
<OPTION VALUE="May">May</OPTION>
<OPTION VALUE="Jun">June</OPTION>
<OPTION VALUE="Jul">July</OPTION>
<OPTION VALUE="Aug">August</OPTION>
<OPTION VALUE="Sep">September</OPTION>
<OPTION VALUE="Oct">October</OPTION>
<OPTION VALUE="Nov">November</OPTION>
<OPTION VALUE="Dec">December</OPTION>
</SELECT>
<INPUT ID="FormsEditField31" TYPE=TEXT NAME="Credityy" VALUE="<%=Credityy%>" SIZE=4 MAXLENGTH=10> </TD>
</TR>
<TR>
<TD> </TD>
<TD> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=280 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=69 HEIGHT=23><IMG SRC="../clearpixel.gif" WIDTH=69 HEIGHT=1 BORDER=0></TD>
<TD></TD>
<TD WIDTH=48><IMG SRC="../clearpixel.gif" WIDTH=48 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=24></TD>
<TD WIDTH=85><INPUT TYPE=SUBMIT NAME="FormsButton1" VALUE="SUBMIT" ID="FormsButton1"></TD>
<TD></TD>
<TD WIDTH=78><INPUT TYPE=SUBMIT NAME="FormsButton2" VALUE="RESET" ID="FormsButton2"></TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -