📄 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 Request.ServerVariables("REQUEST_METHOD") = "POST" then
Fname= Request.Form("FirstName")
Mname= Request.Form("MiddleName")
Lname= Request.Form("LastName")
LoginName= Request.Form("LoginName")
Email= Request.Form("Email")
Cemail= Request.Form("ConfirmEmail")
dd= Request.Form("dd")
mm= Request.Form("mm")
yy= Request.Form("yy")
DOB=dd&"-"&mm&"-"&yy
if Request.Form("hidden")<>1 then
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
for i = 1 to len(CreditCardNo)
if instr(1, "123456789-", mid(Lname,i,1), vbTextCompare) = 0 then
errorMsg= "The Credit Card you've entered is invalid."
exit for
end if
next
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
Response.Write errorMsg
else
Dim dbconn
Dim connectString
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.open "BidBase","scott","tiger"
Dim dbRec,dbRec2
Dim SqlString
Set dbRec = Server.CreateObject("ADODB.Recordset")
SqlString = "insert into member values ('" &LoginName &"','"&Password&"','" &Fname&"','"&Mname &"','"&Lname&"','"&Email&"','"&DOB&"','"&Phone&"','"&PostalAddr&PostalAddr2&"','"&City&"','"&PostalCode&"','"&Province&"','"&Country&"','"&CreditCardNo&"','"&CreditCardName&"','"&CreditDate&"'&)"
dbRec.open SqlString,dbconn
Response.Write "You have been succesfully registered"
Response.Write"<a href="&"'../../index.html'"&">Click here to login</a>"
dbconn.close
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" 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="" Size=28 MAXLENGTH=15> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Street Address</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField9" TYPE=TEXT NAME="PostalAddress" VALUE="" SIZE=30 MAXLENGTH=30> </TD>
</TR>
<TR>
<TD> </TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField8" TYPE=TEXT NAME="PostalAddr2" VALUE="" SIZE=30 MAXLENGTH=30> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>City</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField7" TYPE=TEXT NAME="City" VALUE="" SIZE=28 MAXLENGTH=12> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Zip Code</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField12" TYPE=TEXT NAME="PostalCode" VALUE="" SIZE=28 MAXLENGTH=6> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>State</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField11" TYPE=TEXT NAME="State" VALUE="" SIZE=28 MAXLENGTH=20> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Country</FONT></TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField10" TYPE=TEXT NAME="Country" VALUE="" SIZE=28 MAXLENGTH=15> </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="" SIZE=28 MAXLENGTH=15> </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="" SIZE=45 MAXLENGTH=40> </TD>
</TR>
<TR>
<TD WIDTH=117><P><FONT>Expiry Date</FONT></TD>
<TD WIDTH=236><P>
<SELECT ID="FormsComboBox2" NAME="CreditCarddd">
<OPTION VALUE="01" SELECTED>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="CreditCardmm">
<OPTION VALUE="Jan" SELECTED>January</OPTION>
<OPTION VALUE="Feb">February</OPTION>
<OPTION VALUE="Mar">March</OPTION>
<OPTION VALUE="April">April</OPTION>
<OPTION VALUE="May">May</OPTION>
<OPTION VALUE="June">June</OPTION>
<OPTION VALUE="July">July</OPTION>
<OPTION VALUE="August">August</OPTION>
<OPTION VALUE="Sept">September</OPTION>
<OPTION VALUE="Oct">October</OPTION>
<OPTION VALUE="Nov">November</OPTION>
<OPTION VALUE="Dec">December</OPTION>
</SELECT>
<INPUT ID="FormsEditField31" TYPE=TEXT NAME="CreditCardyy" VALUE="" SIZE=4 MAXLENGTH=4> </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 + -