📄 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>
</HEAD>
<BODY BACKGROUND="./FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<%Server.Execute "ValidateUser.asp"%>
		
<BODY>
               <FORM NAME="ItemlistCategory" ACTION="" METHOD=POST>
	                <TABLE ID="Table6" BORDER=1 CELLSPACING=3 CELLPADDING=1 WIDTH=600>
							<TD>AuctionID</TD><TD>Item</TD><TD>StartDate</TD><TD>EndDate</TD><TD>StartPrice(Rs.)</TD><TD><u>ItemInfo</u></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")
									startbid=dbRec("auction_start_bid")
									Response.Write "<TR>"
									Response.Write "<TD WIDTH=15 ALIGN=center>"&AuctionId&"</TD><TD>"&itemtitle&"</TD><TD>"&startdate&"</TD><TD>"&EndDate&"</TD><TD>Rs."&Startbid&"</TD><TD><A HREF='./Item_Information/body_item_information.asp?key="&AuctionId&"'>Details</A></TD>"
									Response.Write "</TR>"
									dbRec.MoveNext
								loop
								dbRec.close
								dbconn.close
							  %>
	                </TABLE>
						<%server.execute "./Usercategorylist.asp"%>
               </FORM>
            
<!-- Insert HTML here -->

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -