📄 body_go_auctions.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>Go Auctions</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>
<%
Dim Sysdate
Sysdate=Now()
%>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=593 NOF=LY>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=12></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=593 HEIGHT=224>
<FORM NAME="LayoutRegion1FORM" ACTION="" METHOD=POST>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH=237>
<TR VALIGN=TOP ALIGN=LEFT>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=134 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=13 HEIGHT=50><IMG SRC="../clearpixel.gif" WIDTH=13 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=121><IMG SRC="../clearpixel.gif" WIDTH=121 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=121><P>Report generated at</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=200 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=13 HEIGHT=50><IMG SRC="../clearpixel.gif" WIDTH=11 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD HEIGHT=22></TD>
<TD WIDTH=200><b><%=SysDate%><b></TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=52 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=10 HEIGHT=50><IMG SRC="../clearpixel.gif" WIDTH=10 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=42><IMG SRC="../clearpixel.gif" WIDTH=42 HEIGHT=1 BORDER=0></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=205 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=13 HEIGHT=29><IMG SRC="../clearpixel.gif" WIDTH=13 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>Items at auction</b></TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=12 HEIGHT=6><IMG SRC="../clearpixel.gif" WIDTH=12 HEIGHT=1 BORDER=0></TD>
<TD></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=451>
<TABLE ID="Table1" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH=451>
<TR>
<TD WIDTH=87><P>Item name</TD>
<TD WIDTH=82><P>Seller Login</TD>
<TD WIDTH=85><P>Minimum bid</TD>
<TD WIDTH=80><P>Highest bid</TD>
<TD WIDTH=77><P>Ending date</TD>
</TR>
<%
Dim dbconn3
Set dbconn3 = Server.CreateObject("ADODB.Connection")
dbconn3.Mode=1
dbconn3.open "BidBase","scott","tiger"
Dim dbRec2
Set dbRec2 = Server.CreateObject("ADODB.Recordset")
dbRec2.Open "Select * from view_selling_items order by ending_date desc",dbconn3
while not dbRec2.EOF
Response.Write "<TR>"
Response.Write "<TD>"&dbRec2("item_title")&"</TD>"
Response.Write "<TD>"&dbRec2("seller_login")&"</TD>"
Response.Write "<TD>"&dbRec2("auction_start_bid")&"</TD>"
Response.Write "<TD>"&dbRec2("latest_bid_amount")&"</TD>"
Response.Write "<TD>"&dbRec2("ending_date")&"</TD>"
Response.Write "</TR>"
dbRec2.MoveNext
wend
dbRec2.close
dbconn3.close
%>
<TR>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=146 NOF="LayoutRegion1">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=121 HEIGHT=4><IMG SRC="../clearpixel.gif" WIDTH=121 HEIGHT=1 BORDER=0></TD>
<TD WIDTH=25><IMG SRC="../clearpixel.gif" WIDTH=25 HEIGHT=1 BORDER=0></TD>
</TR>
<TR VALIGN=TOP ALIGN=LEFT>
<TD></TD>
<TD WIDTH=25> </TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -