📄 body_index.asp

📁 电子投标系统
💻 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>Personal Page</TITLE>
<BASE TARGET="_parent">
</HEAD>
<BODY BACKGROUND="./FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<%Server.execute "ValidateUser.asp"%>
    <TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=275 NOF=LY>
       
<%
Dim dbconnFinal,dbRecFinal,SqlString
set dbconnFinal=Server.CreateObject("ADODB.Connection")
set dbRecFinal=Server.CreateObject("ADODB.Recordset")
SqlString="Select * from waiting_auction_decision3 where seller_login='"&Session("LoginName")&"'"
dbconnFinal.mode=adModeRead
dbconnFinal.open "BidBase","scott","tiger"
dbRecFinal.open SqlString,dbconnFinal
if not dbRecFinal.EOF then
	Response.Write "<b>Following auctions are waiting your confirmation:</b>"
	Response.Write "<TR VALIGN=TOP ALIGN=LEFT>"
	Response.Write "<TD>auction_id</TD>"
	Response.Write "<TD>HighestBid</TD>"
	Response.Write "<TD>member_buyer_login</TD>"
	Response.Write "<TD>Approve?</TD>"
	Response.Write "</TR>"
	Dim check
	'check=dbRecFinal("auction_id")
	while not dbRecFinal.EOF 
		Response.Write "<TR>"
	   Response.Write "<TD>"&dbRecFinal("auction_id")&"</TD>"
	'   Response.Write "<TD>"&check&"</TD>"
   	Response.Write "<TD>"&dbRecFinal("auctionbid")&"</TD>"
	   Response.Write "<TD><A HREF='./view_feed_backs/body_view_feed_backs.asp?chkbuy="&dbRecFinal("member_buyer_login")&"' TARGET='_blank'>"&dbRecFinal("member_buyer_login")&"</A></TD>"
	   Response.Write "<TD><A HREF='finalizebid.asp?finalbuy="&dbRecFinal("auction_id")&"' TARGET='body'>Yes</A></TD>"
		Response.Write "</TR>"
		dbRecFinal.MoveNext
	wend
	dbRecFinal.close
'	Response.End
end if
dbconnFinal.close
%>
	</TABLE>
            <P><B><U>WANT TO BUY SOMETHING</U></B>
				 <%Server.Execute "UserCategoryList.asp"%>
	</BODY>
</HTML>
⌨️ 快捷键说明

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