default.asp

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

<!-- #include file="auctionlib.asp" -->
<%

Call DoPageHeader
Call OpenDBConn


sSQL = ""
sSQL = sSQL & "SELECT * FROM Categories"
set rs = GobjConnect.Execute(sSQL)

Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
	Response.Write("<P><CENTER><BIG><BIG>拍卖网目录</BIG></BIG></CENTER><P>")
	Response.Write("<CENTER>")
	Response.Write("<TABLE WIDTH=""550"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""3"">") 
	Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
	Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & "><TD COLSPAN=""2"">")
	Response.Write("<BIG>拍卖物</BIG>")
	Response.Write("</TD></TR>")
	Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")


	If rs.eof then
		Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2"">没有拍卖目录</TD></TR>")
	Else
		TwoCols = True
		Do While Not rs.eof
			Response.Write("<TR><TD width = ""50%""><BIG><BIG><A HREF=" & chr(34) & "viewauctions.asp?catID=" & rs.Fields("ID") & chr(34) & ">" & rs.Fields("CategoryName") & "</A></BIG> (" & CountItems(rs.Fields("ID")) & ")</BIG>")
			Response.Write("<BR>")
			Response.Write("</TD>")
			rs.MoveNext
				If rs.eof Then
					Response.Write("<TD>&nbsp;</TD></TR>")
				Else
					Response.Write("<TD width = ""50%""><BIG><BIG><A HREF=" & chr(34) & "viewauctions.asp?catID=" & rs.Fields("ID") & chr(34) & ">" & rs.Fields("CategoryName") & "</A></BIG> (" & CountItems(rs.Fields("ID")) & ")</BIG>")
					Response.Write("<BR>")
					Response.Write("</TD></TR>")
					rs.MoveNext
				End If
		Loop
		rs.Close
	End If

Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
Response.Write("<TR bgcolor=" & chr(34) & topcolor & chr(34) & "><TD COLSPAN=""2""><CENTER><SMALL>")
	Call AuctionNavigation
Response.Write("</SMALL></CENTER></TD></TR>")
Response.Write("<TR bgcolor=" & chr(34) & linecolor & chr(34) & "><TD COLSPAN=""2""></TD></TR>")
Response.Write("</TABLE>")

Call CloseDBConn


Function CountItems(ID)

	CountSQL = ""
	CountSQL = CountSQL & " SELECT COUNT(*) AS total FROM Auctions WHERE "
	CountSQL = CountSQL & " AvailDate <= " & SQLDate(NOW) 
	CountSQL = CountSQL & "  And Ended = false "
	CountSQL = CountSQL & "  And CategoryID = " & SQLVal(ID)
	Set CountRS = GobjConnect.Execute(CountSQL)

	CountItems = CountRS.Fields("total")

	CountRS.Close
	Set CountRS = Nothing
	
End Function
%>