📄 body_go_auction.asp
字号:
<%@ Language=VBScript%>
<% option explicit %>
<%Response.Buffer=True%>
<%Response.AddHeader "Refresh" , "300;URL=body_go_auction.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>Go Auction</TITLE>
<BASE TARGET="_parent">
</HEAD>
<BODY BACKGROUND="../FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<%
Server.Execute "../ValidateUser.asp"
%>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=573 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=17 HEIGHT=11><IMG SRC="../clearpixel.gif" WIDTH=17 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=351></TD>
<TD WIDTH=556>
<FORM NAME="LayoutRegion1FORM" ACTION="body_go_auction.asp" Target="body" METHOD=POST>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=217 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=25 HEIGHT=40><IMG SRC="../clearpixel.gif" WIDTH=25 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>Your items at auction</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=48 HEIGHT=18><IMG SRC="../clearpixel.gif" WIDTH=48 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>Item name</TD>
<TD ALIGN=CENTER WIDTH=89><P>Minimum bid</TD>
<TD ALIGN=CENTER WIDTH=91><P>Highest bid</TD>
<TD ALIGN=CENTER WIDTH=92><P>Reserved Bid</TD>
<TD ALIGN=CENTER WIDTH=92><P>Ending date</TD>
</TR>
<%
Dim dbconn3
Set dbconn3 = Server.CreateObject("ADODB.Connection")
dbconn3.mode=adModeRead
dbconn3.open "BidBase","scott","tiger"
Dim dbRec2,SqlString,LoginName
LoginName=Session("LoginName")
SqlString= "Select * from view_selling_items where seller_login='"&LoginName&"' order by ending_date asc"
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
dbRec2.Open SqlString,dbconn3
while not dbRec2.EOF
Response.Write "<TR ALIGN=CENTER>"
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>"
dbRec2.MoveNext
wend
dbRec2.close
SqlString= "Select * from not_selling_items where seller_login='"&LoginName&"' order by auction_end_date asc"
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
dbRec2.Open SqlString,dbconn3
while not dbRec2.EOF
Response.Write "<TR ALIGN=CENTER>"
Response.Write "<TD>"&dbRec2("item_title")&"</TD>"
Response.Write "<TD>"&dbRec2("auction_start_bid")&"</TD>"
Response.Write "<TD><I>None</I></TD>"
Response.Write "<TD>"&dbRec2("auction_reserved_bid")&"</TD>"
Response.Write "<TD>"&dbRec2("auction_end_date")&"</TD>"
Response.Write "</TR>"
dbRec2.MoveNext
wend
dbRec2.close
dbconn3.close
%>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=214 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=22 HEIGHT=51><IMG SRC="../clearpixel.gif" WIDTH=22 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=99><IMG SRC="../clearpixel.gif" WIDTH=99 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=25><IMG SRC="../clearpixel.gif" WIDTH=25 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=68><IMG SRC="../clearpixel.gif" WIDTH=68 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=2></TD>
<TD WIDTH=25> </TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD COLSPAN=4 HEIGHT=18></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=192 COLSPAN=3><P>The item you are bidding for</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=50 HEIGHT=13><IMG SRC="../clearpixel.gif" WIDTH=50 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 ALIGN=CENTER>
<TD ALIGN=CENTER WIDTH=87><P>Item name</TD>
<TD ALIGN=CENTER WIDTH=91><P>Highest bid</TD>
<TD ALIGN=CENTER WIDTH=92><P>Your bid</TD>
<TD WIDTH=92><P>Ending date</TD>
<TD WIDTH=92><P>Increase?</TD>
</TR>
<%
Set dbconn3 = Server.CreateObject("ADODB.Connection")
dbconn3.mode=adModeRead
dbconn3.open "BidBase","scott","tiger"
LoginName=Session("LoginName")
SqlString= "Select * from view_buying_items where member_buyer_login='"&LoginName&"'"
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
dbRec2.Open SqlString,dbconn3
while not dbRec2.EOF
Response.Write "<TR ALIGN=CENTER>"
Response.Write "<TD>"&dbRec2("item_title")&"</TD>"
Response.Write "<TD>"&dbRec2("max_bid_value")&"</TD>"
Response.Write "<TD>"&dbRec2("your_bid")&"</TD>"
Response.Write "<TD>"&dbRec2("ending_date")&"</TD>"
Response.Write "<TD><A HREF='../Item_Information/Buy_this_item/body_buy_this_item.asp?process=increase&auction_id="&dbRec2("auction_id")&"' Target='body'>Yes</A></TD>"
Response.Write "</TR>"
dbRec2.MoveNext
wend
dbRec2.close
dbconn3.close
%>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -