📄 body_register.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>Register</TITLE>
<BASE TARGET="_parent">
</HEAD>
<%
dim Fname,Mname,Lname,LoginName,Password,Cpassword,Email,Cemail,dd,mm,yy,DOB
dim errorMsg, i
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Fname= Request.Form("FirstName")
Mname= Request.Form("MiddleName")
Lname= Request.Form("LastName")
LoginName= Trim(Lcase(Request.Form("LoginName")))
Password= Request.Form("Password")
Cpassword= Request.Form("ConfirmPassword")
Email= Request.Form("Email")
Cemail= Request.Form("ConfirmEmail")
dd= Request.Form("dd")
mm= Request.Form("mm")
yy= Request.Form("yy")
if len(Lname) = 0 then
errorMsg ="You must enter your last name."
else
for i = 1 to len(Lname)
if instr(1, "abcdefghijklmnopqrstuvwxyz'", mid(Lname,i,1), vbTextCompare) = 0 then
errorMsg= "The last name you entered is invalid, Please re-enter your last name."
exit for
end if
next
end if
if len(errorMsg) = 0 then
if len(Fname)= 0 then
errorMsg="You must enter you first name"
else
for i = 1 to len(Fname)
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(LoginName)= 0 then
errorMsg="You must enter you login name"
end if
end if
if len(errorMsg)= 0 then
if len(Password)< 8 then
errorMsg= "You must give a password atleast 8 characters long"
else
if Password <> Cpassword then
errorMsg = " Passwords could not be confirmed"
end if
end if
end if
if len(errorMsg)= 0 then
if len(Email)= 0 then
errorMsg= "You must give an e-mail@"
else
if Email <> Cemail then
errorMsg = "The Email could not be confirmed"
end if
end if
end if
if len(errorMsg)=0 then
if ((dd="") or (mm="") or (yy="")) then
if ((dd="") and (mm="") and (yy="")) then
DOB=""
else
errorMsg="Please enter valid date"
end if
else
DOB=dd&"-"&mm&"-"&yy
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 dbRec2 = Server.CreateObject("ADODB.Recordset")
dbRec2.Open "Select * from Member where Member_Login ='" & LoginName &"'" ,dbconn
if dbRec2.EOF = true then
Application.Lock
if isObject(Application(LoginName)) then
Application.UnLock
Response.Write "Please choose a different login name"
else
Application(LoginName)=LoginName
Application.UnLock
set Session("Register")=CreateObject("Scripting.Dictionary")
Session("Register")("LoginName")=LoginName
Session("Register")("Password")=Password
Session("Register")("ConfirmPassword")=Password
Session("Register")("MiddleName")=Mname
Session("Register")("LastName")=LName
Session("Register")("FirstName")=FName
Session("Register")("Email")=Email
Session("Register")("DOB")=DOB
Server.Transfer "body_register2.asp"
end if
else
Response.Write "Please Choose a different LoginName"
Response.End
end if
dbconn.close
end if
end if
%>
<BODY BACKGROUND="../FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" onLoad="">
<DIV ID="LayoutLYR"><LAYER ID="LayoutLYR" TOP=2 LEFT=2 VISIBILITY=INHERIT WIDTH=1107 HEIGHT=497 Z-INDEX=1>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=558 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=21 HEIGHT=18><IMG SRC="../clearpixel.gif" WIDTH=21 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=479></TD>
<TD WIDTH=537><DIV ID="LayoutRegion1LYR" onMouseOver=""><ILAYER ID="LayoutRegion1LYR" VISIBILITY=INHERIT WIDTH=537 HEIGHT=479 Z-INDEX=1 bgcolor="#003333"
onMouseOver="">
<FORM NAME="RegistrationForm1" ACTION="body_register.asp" TARGET="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=212 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=152 HEIGHT=8><IMG SRC="../clearpixel.gif" WIDTH=152 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=60><IMG SRC="../clearpixel.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=60><P>Register</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=76 HEIGHT=17><IMG SRC="../clearpixel.gif" WIDTH=76 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=348>
<TABLE ID="Table1" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=348>
<TR>
<TD WIDTH=116><P>Login</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField30" TYPE=TEXT NAME="LoginName" VALUE="<%=LoginName%>" SIZE=20 MAXLENGTH=20> </TD>
</TR>
<TR>
<TD WIDTH=116><P>Password</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField28" TYPE=PASSWORD NAME="Password" VALUE="" SIZE=20 MAXLENGTH=14> </TD>
</TR>
<TR>
<TD WIDTH=116><P>Confirm Password</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField27" TYPE=PASSWORD NAME="ConfirmPassword" VALUE="" SIZE=20 MAXLENGTH=14> </TD>
</TR>
<TR>
<TD WIDTH=116><P>First Name</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField26" TYPE=TEXT NAME="Firstname" VALUE="<%=FName%>" SIZE=20 MAXLENGTH=20> </TD>
</TR>
<TR>
<TD WIDTH=116><P>Middle Name</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField25" TYPE=TEXT NAME="MiddleName" VALUE="<%=MName%>" SIZE=20 MAXLENGTH=20> </TD>
</TR>
<TR>
<TD WIDTH=116><P>Last Name</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField24" TYPE=TEXT NAME="LastName" VALUE="<%=LName%>" SIZE=20 MAXLENGTH=20> </TD>
</TR>
<TR>
<TD WIDTH=116><P>Email add</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField23" TYPE=TEXT NAME="Email" VALUE="<%=Email%>" SIZE=30 MAXLENGTH=30> </TD>
</TR>
<TR>
<TD WIDTH=116><P>Confirm Email add</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField22" TYPE=TEXT NAME="ConfirmEmail" VALUE="<%=CEmail%>" SIZE=30 MAXLENGTH=30> </TD>
</TR>
<TR>
<TD WIDTH=116 HEIGHT=27><P>Date of Birth</TD>
<TD WIDTH=219><P>
<SELECT ID="FormsComboBox2" NAME="dd">
<OPTION VALUE="<%=dd%>" SELECTED><%=dd%></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="mm">
<OPTION VALUE="<%=mm%>" SELECTED><%=mm%></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="yy" VALUE="<%=yy%>" SIZE=4 MAXLENGTH=10> </TD>
<INPUT ID="Hidden" TYPE="hidden" NAME="hidden" VALUE="1" SIZE=4 MAXLENGTH=4> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=378 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=145 HEIGHT=45><IMG SRC="../clearpixel.gif" WIDTH=145 HEIGHT=1 BORDER=0></TD>
<TD></TD>
<TD WIDTH=92><IMG SRC="../clearpixel.gif" WIDTH=92 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=24></TD>
<TD WIDTH=63><INPUT TYPE=SUBMIT NAME="FormsButton4" VALUE="NEXT" ID="FormsButton4"></TD>
<TD></TD>
<TD WIDTH=78><INPUT TYPE=SUBMIT NAME="FormsButton5" VALUE="RESET" ID="FormsButton5"></TD>
</TR>
</TABLE>
</FORM>
</ILAYER></DIV>
</TD>
</TR>
</TABLE>
</LAYER></DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -