?? body_category.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 + -