📄 body_change_profile.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>Change Profile</TITLE>
<BASE TARGET="_parent">
</HEAD>
<BODY BACKGROUND="../FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" onLoad="">
<%
dim LoginName,Fname,Mname,Lname,Email,Cemail,dd,mm,yy,DOB
dim PhoneNo,PostalCode,PostalAddr,PostalAddr2,City,Province,Country
dim CreditCardNo,CreditCardName,Creditdd,Creditmm,Credityy,CreditCardDate
dim errorMsg, i
Dim dbconn
Dim dbRec,SQlString
Dim temp
server.execute "../ValidateUser.asp"
LoginName=Session("LoginName")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Fname= Request.Form("FirstName")
Mname= Request.Form("MiddleName")
Lname= Request.Form("LastName")
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(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
PhoneNo=Request.Form("PhoneNo")
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."
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(PhoneNo)<>0 then
if Not isNumeric(PhoneNo) then
errorMsg="The Phone Number entered is invalid"
end if
else
PhoneNo="NULL"
end if
if len(errorMsg) = 0 then
if len(PostalCode) <> 0 then
if Not isNumeric(PostalCode) then
errorMsg="The Postal Code is incorrect"
end if
else
PostalCode="NULL"
end if
end if
end if
if len(errorMsg) <> 0 then
Response.Write errorMsg
else
Set dbconn = Server.CreateObject("ADODB.Connection")
SqlString= "update member set member_fname='"&Fname&"',member_middle='"&Mname&"',member_last='"&Lname&"',member_email='"&Email&"',member_DOB='"&DOB&"',member_phone="&PhoneNo&",Member_stadd='"&PostalAddr&PostalAddr2&"',member_city='"&City&"',member_code="&PostalCode&",member_state='"&Province&"',member_Country='"&Country&"',member_VisaNumber="&CreditCardNo&",member_visaname='"&CreditCardName&"',member_visaexpiry='"&CreditCardDate&"' where member_login='"&LoginName&"'"
dbconn.open "BidBase","scott","tiger"
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open SqlString,dbconn
Response.Write "Succesful updation"
dbconn.Close
Response.End
end if
else
Set dbconn = Server.CreateObject("ADODB.Connection")
SqlString= "select * from member where member_login='"&LoginName&"'"
dbconn.open "BidBase","scott","tiger"
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open SqlString,dbconn
if Not dbRec.EOF then
Dim PostalAddrfull
Fname= dbRec("member_fname")
Mname= dbRec("member_middle")
Lname= dbRec("member_last")
Email= dbRec("member_email")
Cemail= Email
DOB=dbRec("member_dob")
if Not DOB="" then
DOB=FormatDateTime(CLng(DOB),vbLongDate)
yy=right(DOB,8)
dd=left(yy,2)
yy=right(yy,4)
temp=instr(1,DOB,",")
mm=mid(DOB,int(temp+1),4)
end if
PhoneNo=dbRec("member_phone")
PostalAddrfull=dbRec("member_stadd")
PostalAddr= left(PostalAddrfull,30)
PostalAddr2= mid(PostalAddrfull,31)
City=dbRec("member_city")
PostalCode=dbRec("member_code")
Province=dbRec("member_state")
Country=dbRec("member_country")
CreditCardNo=dbRec("member_visanumber")
CreditCardName=dbRec("member_visaname")
CreditCardDate=dbRec("member_visaexpiry")
CreditCardDate=FormatDateTime(CLng(CreditCardDate),vbLongDate)
Credityy=right(CreditCardDate,8)
Creditdd=left(Credityy,2)
Credityy=right(Credityy,4)
temp=instr(1,CreditCardDate,",")
Creditmm=mid(CreditCardDate,int(temp+1),4)
dbRec.Close
dbconn.Close
end if
end if
%>
<DIV ID="LayoutLYR"><LAYER ID="LayoutLYR" TOP=2 LEFT=2 VISIBILITY=INHERIT WIDTH=917 HEIGHT=875 Z-INDEX=1>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=504 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=6 HEIGHT=6><IMG SRC="../clearpixel.gif" WIDTH=6 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=722></TD>
<TD WIDTH=498><DIV ID="LayoutRegion1LYR" onMouseOver=""><ILAYER ID="LayoutRegion1LYR" VISIBILITY=INHERIT WIDTH=498 HEIGHT=722 Z-INDEX=1 bgcolor="#003333"
onMouseOver="">
<FORM NAME="LayoutRegion1FORM" ACTION="body_change_profile.asp" TARGET="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=73 HEIGHT=44><IMG SRC="../clearpixel.gif" WIDTH=73 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -