📄 body_auction_history.asp

📁 电子投标系统
💻 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>Auction History</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=563 NOF=LY>
        <TR VALIGN=TOP ALIGN=LEFT>
            <TD HEIGHT=20></TD>
        </TR>
        <TR VALIGN=TOP ALIGN=LEFT>
            <TD WIDTH=563 HEIGHT=346>
                <FORM NAME="LayoutRegion1FORM" ACTION="../Give_Feed_Backs/give_feed_backs.html" TARGET="_top" 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>Item Sold</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>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>
                                    <%
                                    '<TR>
										dim dbConn,dbRec,SqlString
										set dbConn=Server.CreateObject("ADODB.Connection")
										set dbRec=Server.CreateObject("ADODB.RecordSet")
										'Response.Write "query required here"
										dbconn.open "BidBase","scott","tiger"
										dbRec.Open "Select * from view_sold_items where seller_login = '"&session("LoginName")&"' ",dbconn
                           	dim item_title,auction_start_bid,latest_bid_amount,auction_reserve_bid,ending_date
										while not dbRec.EOF
											Response.Write "<TR>"
                             		Response.Write "<TD>"&dbRec("item_title")&"</TD>"
                              	Response.Write "<TD>"&dbRec("auction_start_bid")&"</TD>"
                              	Response.Write "<TD>"&dbRec("latest_bid_amount")&"</TD>"
                              	Response.Write "<TD>"&dbRec("auction_reserved_bid")&"</TD>"
											Response.Write "<TD>"&dbRec("ending_date")&"</TD>"
											Response.Write "</TR>"
    										dbRec.MoveNext
 	                           wend
		
									 	dbRec.close
        	                     dbconn.close
                                    %>
                                </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>Item Bought</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>Auction ID</TD>
                                        <TD ALIGN=CENTER WIDTH=87><P>Item name</TD>
                                        <TD ALIGN=CENTER WIDTH=87><P>SellerLogin</TD>
                                        <TD ALIGN=CENTER WIDTH=92><P>Your bid</TD>
                                        <TD ALIGN=CENTER WIDTH=92><P>Ending date</TD>
                                    </TR>
                                    <%
                              dim dbRec2
										set dbConn=Server.CreateObject("ADODB.Connection")
										set dbRec=Server.CreateObject("ADODB.RecordSet")
										
										dbconn.open "BidBase","scott","tiger"
										Set dbRec2 = Server.CreateObject("ADODB.Recordset")
										dbRec2.Open "Select * from view_bought_items  where member_buyer_login = '"&session("LoginName")&"' " ,dbconn                              
                                      
                              while not dbRec2.EOF
											Response.Write "<TR Align=center>"
                                	Response.Write "<TD>"&dbRec2("auction_id")&"</TD>"
                                	Response.Write "<TD>"&dbRec2("item_title")&"</TD>"
                                	Response.Write "<TD>"&dbRec2("seller_login")&"</TD>"
                                 Response.Write "<TD>"&dbRec2("your_bid")&"</TD>"
											Response.Write "<TD>"&dbRec2("ending_date")&"</TD>"
											Response.Write "</TR>"
	                              dbRec2.MoveNext
  	                            wend
                               Response.Write "</TR>"
        	                      dbRec2.close
        	                      dbconn.close

											%>
                                </TABLE>
                            </TD>
                        </TR>
                    </TABLE>
                    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=220 NOF="LayoutRegion1">
                        <TR VALIGN=TOP ALIGN=LEFT>
                            <TD WIDTH=54 HEIGHT=47><IMG SRC="../clearpixel.gif" WIDTH=54 HEIGHT=1 BORDER=0></TD>
                            <TD></TD>
                        </TR>
                        <TR VALIGN=TOP ALIGN=LEFT>
                            <TD HEIGHT=24></TD>
                            <TD WIDTH=166><INPUT TYPE=SUBMIT NAME="GiveFeedBack" VALUE="GIVEFEEDBACK" ID="FormsButton1"></TD>
                        </TR>
                    </TABLE>
                </FORM>
            </TD>
        </TR>
    </TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -