📄 body_auction_history.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="Microsoft FrontPage 5.0">
<TITLE>Auction History</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=563 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=11></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=498>
<FORM NAME="FORMUSER" ACTION="body_auction_history.asp" 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=adModeRead
dbconn.open "BidBase","scott","tiger"
Dim dbRec
if len(Request.QueryString("user"))=0 then
Response.Write "<OPTION VALUE='"&Request.Form("Member")&"'SELECTED>"&Request.Form("Member")&"</OPTION>"
else
Response.Write "<OPTION VALUE='"&Request.QueryString("user")&"'SELECTED>"&Request.QueryString("user")&"</OPTION>"
end if
Set dbRec = Server.CreateObject("ADODB.Recordset")
dbRec.Open "Select Member_Login from Member ",dbconn
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="UserSubmit" VALUE="VIEWDETAILS" ID="FormsButton1"></TD>
</TR>
</TABLE>
</FORM>
</TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=563 HEIGHT=287>
<FORM NAME="LayoutRegion1FORM" ACTION="" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=215 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=23 HEIGHT=22><IMG SRC="../clearpixel.gif" WIDTH=23 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=192><IMG SRC="../clearpixel.gif" WIDTH=192 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=192><P><b>Item Sold</b></TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=47 HEIGHT=13><IMG SRC="../clearpixel.gif" WIDTH=47 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=491>
<TABLE ID="Table1" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH=491>
<TR>
<TD ALIGN=CENTER WIDTH=87 HEIGHT=19><P><b>Item name</b></TD>
<TD ALIGN=CENTER WIDTH=89><P><b>Minimum bid</b></TD>
<TD ALIGN=CENTER WIDTH=91><P><b>Highest bid</b></TD>
<TD ALIGN=CENTER WIDTH=92><P><b>Reserved Bid</b></TD>
<TD ALIGN=CENTER WIDTH=92><P><b>Ending date</b></TD>
</TR>
<TR>
<%
if Request.Form("UserSubmit")="VIEWDETAILS" or len(Request.QueryString("user"))<>0 then
Member_Login=Request.Form("Member")
if len(Request.QueryString("user"))<>0 then
Member_Login=Request.QueryString("user")
end if
Dim dbconn2
Set dbconn2 = Server.CreateObject("ADODB.Connection")
dbconn2.Mode=adModeRead
dbconn2.open "BidBase","scott","tiger"
Dim dbRec2
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
dbRec2.Open "Select * from view_sold_items where seller_login = '"&Member_Login&"' ",dbconn2
dim item_title,auction_start_bid,latest_bid_amount,auction_reserve_bid,ending_date
while not dbRec2.EOF
Response.Write "<TD>"&dbRec2("item_title")&"</TD>"
Response.Write "<TD>"&dbRec2("auction_start_bid")&"</TD>"
Response.Write "<TD>"&dbRec2("latest_bid_amount")&"</TD>"
Response.Write "<TD>"&dbRec2("auction_reserved_bid")&"</TD>"
Response.Write "<TD>"&dbRec2("ending_date")&"</TD>"
Response.Write "</TR><TR>"
dbRec2.MoveNext
wend
dbRec2.close
dbconn2.close
end if
%>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=216 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=24 HEIGHT=50><IMG SRC="../clearpixel.gif" WIDTH=24 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=192><IMG SRC="../clearpixel.gif" WIDTH=192 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=192><P><b>Item Bought</b></TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=52 HEIGHT=13><IMG SRC="../clearpixel.gif" WIDTH=52 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=395>
<TABLE ID="Table2" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH=395>
<TR>
<TD ALIGN=CENTER WIDTH=87><P><b>Item name</b></TD>
<TD ALIGN=CENTER WIDTH=91><P><b>Bought bid</b></TD>
<TD ALIGN=CENTER WIDTH=92><P><b>Seller Login</b></TD>
<TD ALIGN=CENTER WIDTH=92><P><b>Ending date</b></TD>
</TR>
<TR>
<%
if Request.Form("UserSubmit")="VIEWDETAILS" then
Member_Login=Request.Form("Member")
Dim dbconn3
Set dbconn3 = Server.CreateObject("ADODB.Connection")
dbconn3.Mode=1
dbconn3.open "BidBase","scott","tiger"
Dim dbRec3
Set dbRec3 = Server.CreateObject("ADODB.Recordset")
dbRec3.Open "Select * from view_bought_items where member_buyer_login = '"&Member_Login&"' " ,dbconn3
while not dbRec3.EOF
Response.Write "<TD>"&dbRec3("item_title")&"</TD>"
Response.Write "<TD>"&dbRec3("your_bid")&"</TD>"
Response.Write "<TD>"&dbRec3("seller_login")&"</TD>"
Response.Write "<TD>"&dbRec3("ending_date")&"</TD>"
Response.Write "</TR><TR>"
dbRec3.MoveNext
wend
Response.Write "</TR>"
dbRec3.close
dbconn3.close
end if
%>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -