📄 category_view.html

📁 电子投标系统

💻 HTML

字号:

<%@ 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>Document Title</TITLE>
</HEAD>
<BODY>
<%
			Dim dbconn
			Dim dbRec,dbRec2
			Dim SqlString,V
			V= Request.QueryString(1)
			SqlString="select * from category_view where item_category='"&V&"'"
			Set dbconn = Server.CreateObject("ADODB.Connection")
			dbconn.open "BidBase","scott","tiger"
			Set dbRec = Server.CreateObject("ADODB.Recordset")

%>
               <FORM NAME="ItemlistCategory" ACTION="" METHOD=POST>
	                <TABLE ID="Table6" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=376>
							<TD>AuctionID</TD><TD>Item</TD><TD>StartDate</TD><TD>EndDate</TD><TD>StartPrice(Rs.)</TD>
   	                <%
								Dim dbconn2,dbRec3
								Dim Row,Auctionid,itemtitle,startdate,enddate,startbid
									
								Set dbconn2 = Server.CreateObject("ADODB.Connection")
								dbconn2.open "BidBase","scott","tiger"
								Set dbRec3 = Server.CreateObject("ADODB.Recordset")
								dbRec3.Open "Select * from category" ,dbconn2
								Do While Not dbRec3.EOF 
									AuctionId=dbRec3("Auction_id")
									itemtitle=dbRec3("item_title")
									startdate=dbRec3("Auction_start_date")
									enddate=dbRec3("end_date")
									startprice=dbRec3("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 "</TR>"
									dbRec3.MoveNext
								loop
								dbRec3.close
								dbconn2.close
							  %>
	                </TABLE>
               </FORM>
            
<!-- Insert HTML here -->

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -