📄 body_users.asp
字号:
<!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>Users</TITLE>
<BASE TARGET="_parent">
</HEAD>
<% Server.Execute "../ValidateAdministrator.asp"%>
<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=515 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=14 HEIGHT=13><IMG SRC="../clearpixel.gif" WIDTH=14 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=1><IMG SRC="../clearpixel.gif" WIDTH=1 HEIGHT=1 BORDER=0></TD>
<TD></TD>
<TD WIDTH=2><IMG SRC="../clearpixel.gif" WIDTH=2 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=2 HEIGHT=80></TD>
<TD WIDTH=498>
<FORM NAME="LayoutRegion1FORM" ACTION="" TARGET="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=418 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=71 HEIGHT=44><IMG SRC="../clearpixel.gif" WIDTH=71 HEIGHT=1 BORDER=0></TD>
<TD></TD>
<TD WIDTH=37><IMG SRC="../clearpixel.gif" WIDTH=37 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=24></TD>
<TD WIDTH=100>
<SELECT ID="FormsComboBox1" NAME="Member">
<%
Dim dbconn,Member_Login
Set dbconn = Server.CreateObject("ADODB.Connection")
dbconn.Mode=1
dbconn.open "BidBase","scott","tiger"
Dim dbRec
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open "Select Member_Login from Member ",dbconn
if Request.Form("Submit")="VIEW USER DETAILS" then
Response.Write "<OPTION VALUE='"&Request.Form("Member")&"' SELECTED>"&Request.Form("Member")&"</OPTION>"
end if
if dbRec.EOF = true then
Response.Write "<OPTION VALUE='none' SELECTED>----None------</OPTION>"
else
while not dbRec.EOF
Member_Login=dbRec("Member_Login")
Response.Write "<OPTION VALUE='"&Member_Login&"'>"&Member_Login&"</OPTION>"
dbRec.MoveNext
wend
end if
dbRec.close
dbconn.close
%>
</SELECT>
</TD>
<TD></TD>
<TD WIDTH=210><INPUT TYPE=SUBMIT NAME="Submit" VALUE="VIEW USER DETAILS" ID="FormsButton1"></TD>
</TR>
</TABLE>
</FORM>
</TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=4 HEIGHT=8></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=667></TD>
<TD WIDTH=501 COLSPAN=3>
<FORM NAME="LayoutRegion3FORM" ACTION="" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion3">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=73 HEIGHT=35><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>
<%
if Request.Form("Submit")="VIEW USER DETAILS" then
Member_Login=Request.Form("Member")
dim Fname,Mname,Lname,Email,DOB,Phone,Address,City,CDN,Zip,State,Country,NameCDN,Expiry,PostalAddr1,PostalAddr2
Dim dbconn2
Set dbconn2 = Server.CreateObject("ADODB.Connection")
dbconn2.Mode=1
dbconn2.open "BidBase","scott","tiger"
Dim dbRec2,SqlString
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
SqlString= "select * from member where member_login='"&Member_Login&"'"
dbRec2.Open SqlString,dbconn2
if Not dbRec2.EOF then
Fname= dbRec2("member_fname")
Mname= dbRec2("member_middle")
Lname= dbRec2("member_last")
Email= dbRec2("member_email")
Phone=dbRec2("member_phone")
Address=dbRec2("member_stadd")
PostalAddr1= left(Address,30)
PostalAddr2= mid(Address,31)
City=dbRec2("member_city")
Zip=dbRec2("member_code")
State=dbRec2("member_state")
Country=dbRec2("member_country")
CDN=dbRec2("member_visanumber")
NameCDN=dbRec2("member_visaname")
Expiry=dbRec2("member_visaexpiry")
end if
dbRec2.close
dbconn2.close
end if
%>
<TR>
<TD WIDTH=116><P>First Name</TD>
<TD WIDTH=219><P><INPUT ID="FormsEditField26" TYPE=TEXT NAME="fname" 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="mname" 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="lname" 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=20 MAXLENGTH=30> </TD>
</TR>
<TR>
<TD WIDTH=116 HEIGHT=27><P>Date of Birth</TD>
<TD WIDTH=219><P><%=DOB%>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion3">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=72 HEIGHT=26><IMG SRC="../clearpixel.gif" WIDTH=72 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>Phone Number</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>Street Address</TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField9" TYPE=TEXT NAME="PostalAddr1" VALUE="<%=PostalAddr1%>" 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>City</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>Zip Code</TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField12" TYPE=TEXT NAME="zip" VALUE="<%=Zip%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD WIDTH=117><P>State</TD>
<TD WIDTH=230><P><INPUT ID="FormsEditField11" TYPE=TEXT NAME="state" VALUE="<%=State%>" SIZE=28 MAXLENGTH=28> </TD>
</TR>
<TR>
<TD WIDTH=117><P>Country</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="LayoutRegion3">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=72 HEIGHT=27><IMG SRC="../clearpixel.gif" WIDTH=72 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>Credit card number</TD>
<TD WIDTH=236><P><INPUT ID="FormsEditField5" TYPE=TEXT NAME="cdn" VALUE="<%=CDN%>" SIZE=29 MAXLENGTH=29> </TD>
</TR>
<TR>
<TD WIDTH=117><P>Name on credit card</TD>
<TD WIDTH=236><P><INPUT ID="FormsEditField4" TYPE=TEXT NAME="namecdn" VALUE="<%=NameCDN%>" SIZE=29 MAXLENGTH=29> </TD>
</TR>
<TR>
<TD WIDTH=117><P>Expiry Date</TD>
<TD WIDTH=236><P><INPUT ID="FormsEditField3" TYPE=TEXT NAME="expiry" VALUE="<%=Expiry%>" SIZE=29 MAXLENGTH=29> </TD>
</TR>
<TR>
<TD> </TD>
<TD> </TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=376 NOF="LayoutRegion3">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=120 HEIGHT=15><IMG SRC="../clearpixel.gif" WIDTH=120 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=256><IMG SRC="../clearpixel.gif" WIDTH=256 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=256><P><A HREF="../Auction_History/auction_history.html"><B>VIEW USERS AUCTION HISTORY</B></A><B></B></TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -