📄 body_category.asp

📁 电子投标系统
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="NetObjects ScriptBuilder 2.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Categories</TITLE>
    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=495 NOF=LY>
        <TR VALIGN=TOP ALIGN=LEFT>
            <TD WIDTH=212 HEIGHT=10><IMG SRC="./clearpixel.gif" WIDTH=212 HEIGHT=1 BORDER=0></TD>
            <TD></TD>
        </TR>
        <TR VALIGN=TOP ALIGN=LEFT>
            <TD HEIGHT=50></TD>
            <TD WIDTH=283><IMG ID="Banner1" HEIGHT=50 WIDTH=283 SRC="./BidBase_NFunkshowBanner.gif" BORDER=0 ALT="BidBase"></TD>
        </TR>
    </TABLE>

</HEAD>
<BODY BACKGROUND="./FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<BODY>
    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=557 NOF=LY>
        <TR VALIGN=TOP ALIGN=LEFT>
            <TD WIDTH=31 HEIGHT=10><IMG SRC="./clearpixel.gif" WIDTH=31 HEIGHT=1 BORDER=0></TD>
            <TD></TD>
        </TR>
        <TR VALIGN=TOP ALIGN=LEFT>
							
            <TD HEIGHT=452></TD>
            <TD WIDTH=526>
               <FORM NAME="ItemlistCategory" ACTION="" METHOD=POST>
	                <TABLE ID="Table6" BORDER=1 CELLSPACING=1 CELLPADDING=1 WIDTH=376>
							<TD>AuctionID</TD><TD>Item</TD><TD>StartDate</TD><TD>EndDate</TD><TD>StartPrice(Rs.)</TD>
   	                <%
								Dim dbconn,dbRec
								Dim Auctionid,itemtitle,startdate,enddate,startbid
								Dim SqlString,V
									
								V= Request.QueryString(1)
								Set dbconn = Server.CreateObject("ADODB.Connection")
								dbconn.open "BidBase","scott","tiger"
								Set dbRec = Server.CreateObject("ADODB.Recordset")
								SqlString="select * from category_view where category_id='"&V&"'"
								dbRec.Open SqlString ,dbconn
								Do While Not dbRec.EOF 
									AuctionId=dbRec("Auction_id")
									itemtitle=dbRec("item_title")
									startdate=dbRec("Auction_start_date")
									enddate=dbRec("end_date")
									startprice=dbRec("auction_start_bid")
									Response.Write "<TR>"
									Response.Write "<TD>"&AuctionId&"</TD><TD>"&itemtitle&"</TD><TD>"&startdate&"</TD><TD>"&EndDate&"</TD><TD>Rs."&StartPrice&"</TD>"
									Response.Write "<TD><A HREF='./Register/Register.html'>Click Here</A></TD>"
									Response.Write "</TR>"
									dbRec.MoveNext
								loop
								dbRec.close
								dbconn.close
							  %>
	                </TABLE>
						<%server.execute "./categorylist.asp"%>
               </FORM>
			</TR>
		</TABLE>
            
<!-- Insert HTML here -->

</BODY>
</HTML>
⌨️ 快捷键说明

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