good.asp

程序为自主开发ASP+SQL大型购物搜索网站,系统管理、商铺、会员三种会员唯一帐号管理。目前已有数据条商品数据与数万条商铺信息

<!--#include file="../../../INC/Conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../../Search/images/search.css" rel="stylesheet" type="text/css">
<%

Dim ShopNumberID,ProductNumberID
    ShopNumberID    = Trim(Request.QueryString("ShopNumberID"))
	ProductNumberID = Trim(Request.QueryString("ID"))
	
Set rs=server.CreateObject("adodb.recordset")
	SQL = "Select * From Product where ShopNumberID = '"& ShopNumberID &"' and ProductNumberID <> '"& ProductNumberID &"' Order By Good Desc,DateTime Desc"
	rs.open SQL,Conn,1,1
while not Rs.eof and j<1
Response.write"<table width=100% border=0 cellspacing=0 cellpadding=0>"
Response.write"<tr>"
For G = 1 to 5
if not Rs.eof then
Response.write"<td width=20% align=center >"
Response.write"<table width=100 height=100 border=0 cellpadding=0 cellspacing=1 bgcolor=eeeeee>"
Response.write"<tr>"
Response.write"<td align=center valign=middle bgcolor=ffffff>"		
		ProductPic = rs("ProductPic")
	
		if ProductPic <> "" then
		
			set fso = CreateObject("Scripting.FileSystemObject")
			
				ProductPicFile   = Server.MapPath("../../../") &"\"& Trim(ProductPic)
			
					If not Fso.FileExists(ProductPicFile) then
					
					ProductPic = false
					
					end if
					
			Set fso = Nothing
		
		else
		
				ProductPic = false
		
		end if

		if ProductPic = false then
		
		Response.Write"<A href=../../../Product/"& Year(rs("DateTime")) &"/"& Month(rs("DateTime")) &"/"& rs("ProductNumberID") &".Html target=_blank><img src=../../../Search/images/no_photo.gif alt=没有"& rs("ProductName") &"商品图片 name=no_photo border=0></A>"
		
		else
		
		Response.Write"<A href=../../../Product/"& Year(rs("DateTime")) &"/"& Month(rs("DateTime")) &"/"& rs("ProductNumberID") &".Html target=_blank><img src="& ViewImageFile &"?w=100&h=100&picUrl="& ThenURLName &"/"& rs("ProductPic") &" alt="& rs("ProductName") &"的商品图片 name=ProductPic border=0></a>"
		
		end if
	
		Response.Write"</td>"
		Response.Write"</tr>"
		Response.Write"</table>"
		Response.Write"<a title=商品："& rs("ProductName") &"的价格  class=TEXT_11><strong>"& FormatCurrency(rs("Price")) &"</strong></a><br>"
		Response.Write"<A href=../../../Product/"& Year(rs("DateTime")) &"/"& Month(rs("DateTime")) &"/"& rs("ProductNumberID") &".Html target=_blank class=none1 title=点击查看商品："& rs("ProductName") &"的详情>" 

		if len(Rs("ProductName"))>10 then
		response.write left(Rs("ProductName"),10)&"..."
		else
		response.write Rs("ProductName")
		end if

	Response.Write"</a></td>"	
j = j + 1
Conn.Execute("Update Product Set LookCount = "& Rs("LookCount")+1 &" Where ProductNumberID = '"& Rs("ProductNumberID") &"'")
Rs.moveNext
end if
next
Response.write"</tr>"
Response.write"</table>"
Response.write"</td>"
Wend
rs.Close
Response.write"</tr>"
Response.write"</table>"

Conn.Close
Set Conn = Nothing
%>