viewitem.asp

asp开发 asp开发 asp开发 asp开发

<!-- #include file="auctionlib.asp" -->
<!--#include file="aspemail.inc"-->
<% 
Call DoPageHeader
Call OpenDBConn

iID = Request.QueryString("ID")

gsSQL = ""
gsSQL = gsSQL &  "SELECT * FROM Auctions WHERE ItemID = " & SQLVal(iID)
Set rs = GobjConnect.Execute(gsSQL)

sSQL = ""
sSQL = sSQL & "SELECT * FROM registration WHERE ID = " & SQLVal(rs.Fields("ItemOwner"))
set UserRS = GobjConnect.Execute(sSQL)

bidsSQL = ""
bidsSQL = bidsSQL & "SELECT * FROM Bids Where ItemID = " & SQLVal(iID) & " ORDER BY BidDate DESC "
Set bidsRS = GobjConnect.Execute(bidsSQL)


Response.Write("<FONT FACE=""" & sFONT & """>")
Response.Write("<P><CENTER><BIG><BIG>拍卖物详细资料</BIG></BIG></CENTER><P>")
		Response.Write("<SMALL><CENTER>")
		Response.Write("<TABLE BORDER=0 WIDTH=550 CELLSPACING=""0"" CELLPADDING=""3"">") 
		Response.Write("<TR bgcolor=""" & linecolor & """><TD COLSPAN=""3""> </TD></TR>")
		Response.Write("<TR bgcolor=""" & topcolor & """><TD COLSPAN=""3"" VALIGN=""bottom""><BIG>" & rs.Fields("ItemTitle") & "</BIG></TD></TR>")
		Response.Write("<TR bgcolor=""" & topcolor & """><TD><B><SMALL>目前的拍卖价:</B> " & FormatCurrency(rs.Fields("CurrentBid"), 2) & "</SMALL>")
		Response.Write("<BR><SMALL><B>拍卖结束日期:</B> " & rs.Fields("CloseDate") & " </SMALL></TD>")
		Response.Write("<TD><SMALL><B>位置: </B> " & UserRS.Fields("city") & ", " & UserRS.Fields("state") & "<BR>")
		Response.Write("<B>拍卖物所有者: </B> <A HREF = ""mailto:" & UserRS.fields("Email") & chr(34) & ">" & BidderName(rs.Fields("ItemOwner")) & "</A><BR>")
		Response.Write("</SMALL></TD>")
		Response.Write("<TD>&nbsp;</TD></TR>")
		Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""3""> </TD></TR>")
		Response.Write("<TR><TD valign=""top"" height=""50"" COLSPAN=""3"">")
			
			If rs.Fields("CloseDate") < NOW Then 
				Response.Write("<CENTER><BIG><FONT COLOR=""RED"">这个拍卖物已经到了结束拍卖的期限</FONT></BIG></CENTER><BR>")
				EndSQL = ""
				EndSQL = EndSQL & "UPDATE Auctions SET Ended = true WHERE ItemID = " & SQLVal(iID)
				GobjConnect.Execute(EndSQL)
					If rs.Fields("EmailsSent") = false Then
						Call SendEmails
					End If
			End If
			
		Response.Write("<SMALL>" & rs.Fields("Description") & "<P><P></SMALL></TD></TR>")

			'Check for image
				If LEN(TRIM(rs.Fields("ImageURL"))) <> 0 Then
					Response.Write("<TR><TD colspan=""3""><CENTER><IMG BORDER=""0"" SRC=" & chr(34) & rs.Fields("imageURL") & chr(34) & "></CENTER></TD></TR>")
				End If 
		
		Response.Write("<TR>")
		Response.Write("<TD COLSPAN=""3"">")
			Response.Write("<TABLE BORDER=""0"" CELLPADDING=""0"" CELLSPACING=""3"" WIDTH=""100%"">")
			Response.Write("<TR><TD COLSPAN=""2""><HR> <BIG>出价记录</BIG></TD></TR>")
			Response.Write("<TR>")
				If bidsRS.eof Then
					Response.Write("<TR><TD COLSPAN=""2""><SMALL><SMALL><I>尚未有人出价</I></SMALL></SMALL></TD></TR>")
				Else
					Do While Not bidsRS.eof
						Response.Write("<TR>")
						Response.Write("<TD><SMALL><SMALL>" & FormatCurrency(bidsRS.Fields("BidAmount"), 2) & "</SMALL></SMALL></TD>")
						Response.Write("<TD><SMALL><SMALL><B>" & BidderName(bidsRS.Fields("BidderID")) & "</B>(" & bidsRS.Fields("BidDate") & ")</SMALL></SMALL></TD>")
						bidsRS.MoveNext
					Loop
				End If
			Response.Write("</TABLE>")
		Response.Write("</TD></TR>")
		
		If rs.Fields("CloseDate") > NOW Then 
			Response.Write("<FORM METHOD=""POST"" ACTION=""placebid.asp"">")
			Response.Write("<TR>")
			Response.Write("<TD COLSPAN=""3"">")
				Response.Write("<TABLE BORDER=""0"" CELLPADDING=""0"" CELLSPACING=""3"" WIDTH=""100%"">")
				Response.Write("<TR><TD COLSPAN=""2""><HR> <BIG>参与出价</BIG></TD></TR>")
				Response.Write("<TR>")
				Response.Write("<TD><SMALL>用户名</SMALL></TD>")
				Response.Write("<TD COLSPAN=""2"">")
				Response.Write("<INPUT TYPE=""TEXT"" NAME=""UserName"">")
				Response.Write("</TD>")
				Response.Write("</TR>")
				Response.Write("<TR>")
				Response.Write("<TD><SMALL>密码</SMALL></TD>")
				Response.Write("<TD>")
				Response.Write("<INPUT TYPE=""PASSWORD"" NAME=""Password"">")
				Response.Write("</TD>")
				Response.Write("</TR>")
				Response.Write("<TR>")
				Response.Write("<TD COLSPAN=""2"">")
				Response.Write("<SMALL>最低出价</SMALL><B>" & FormatCurrency((rs.Fields("CurrentBid") + rs.Fields("MinimumIncrement")), 2) & "</B><SMALL>.</SMALL>")
				Response.Write("</TD>")
				Response.Write("</TR>")
				Response.Write("<TD><SMALL>您的出价</SMALL></TD>")
				Response.Write("<TD>")
				Response.Write("RMB<INPUT TYPE=""TEXT"" NAME=""Bid"" SIZE=""8"">")
				Response.Write("<INPUT TYPE=""HIDDEN"" NAME=""ItemID"" VALUE=""" & rs.Fields("ItemID") & """>")
				Response.Write("</TD>")
				Response.Write("</TR>")
				Response.Write("<TR>")
				Response.Write("<TD COLSPAN=""2"">")
				Response.Write("<INPUT TYPE=""SUBMIT"" VALUE=""参与竞标""><HR>")
				Response.Write("</TD>")
				Response.Write("</TR>")
				Response.Write("</TABLE>")
			Response.Write("</TD></TR>")
			Response.Write("</FORM>")
		End If
		
		Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""3""></TD></TR>")
		Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & "><TD COLSPAN=""3""><SMALL><CENTER>")
		Call AuctionNavigation
		Response.Write("</CENTER></SMALL></TD></TR>")
		Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""3""> </TD></TR>")
		Response.Write("</TABLE></CENTER></FONT>")

UserRS.Close
Set UserRS = Nothing

bidsRS.Close
Set bidsRS = Nothing
	
rs.Close
Set rs = Nothing		

Call CloseDBConn



Function BidderName(BidderID)
	UserNameSQL = ""
	UserNameSQL = UserNameSQL & "SELECT ID, username FROM Registration WHERE ID = " & SQLVal(BidderID)
	Set UserNameRS = GobjConnect.Execute(UserNameSQL)
	
	BidderName = UserNameRS.Fields("username")
	
	UserNameRS.Close
	Set UserNameRS = Nothing
End Function
%>