iproduct_a.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Set Rs = Conn.Execute("Select top "& Mould_Setup(1) &" * From Product Where Auditing=1 and ShopNumberID = '"& ShopNumberID &"' order by Good desc,DateTime desc")
Rs.PageSize = Mould_Setup(1)
while not Rs.eof and j<Rs.PageSize
			PCount     = PCount + 1
%>
<table width="98%" height="120" border="0" align="center" cellpadding="0" cellspacing="0" <%if Is_odd(PCount)=false then%>bgcolor="#F6F6F6"<%end if%>>
  <tr> 
          
    <td width="120" align="center"> <table width="100%" border="0" cellspacing="5" cellpadding="0">
        <tr>
          <td><table width="<%=Mould_Setup(2) + 20%>" height="<%=Mould_Setup(3) + 20%>" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
              <tr> 
                <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
%>
                  <font color="#999999">没有图片</font> 
                  <%
else
%>
                  <A href="Products.asp?C=<%=C%>&ProductID=<%=Rs("ProductNumberID")%>" target="_blank"><img src="<%=ViewImageFile%>?w=<%=Mould_Setup(2)%>&h=<%=Mould_Setup(3)%>&picUrl=<%=ThenURLName%><%=rs("ProductPic")%>" border="0"></a> 
                  <%end if%>
                </td>
              </tr>
            </table></td>
        </tr>
      </table></td>
          <td valign="top"> <table width="100%" height="100" border="0" cellpadding="2" cellspacing="0">
        <tr> 
          <td width="80%" valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="25" style="word-break:break-all"><strong>
				<A href="Products.asp?C=<%=C%>&ProductID=<%=Rs("ProductNumberID")%>" target="_blank">
                  <%
				  IF len(Rs("ProductName"))> 20 Then
				  Response.write Left(Rs("ProductName"),20) & "..."
				  Else
				  Response.write Rs("ProductName")
				  End IF
				  %>
                  </a></strong></td>
              </tr>
              <tr> 
                <td> 
<%
	response.write "<span class=text_10>"&Left(HTMLEncodeNO(rs("Content")),100)&"...</span>"
%>
                </td>
              </tr>
            </table></td>
          <td width="20%" align="center"><a title="商品：<%=Rs("ProductName")%>的价格"><s><%=FormatCurrency(Rs("Market_Price"))%></s></a><br>
            <a title="商品：<%=rs("ProductName")%>的价格" class="TEXT_11"><strong><%=FormatCurrency(Rs("Price"))%></strong></a></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="20" align="right"><a href="javascript:;" onClick="javascript:window.open('../../../OrderForm/Order.asp?Makking=add&ProductNumberID=<%=TRIM(rs("ProductNumberID"))%>&ShopNumberID=<%=Trim(rs("ShopNumberID"))%>','Order','width=660,height=500,toolbar=yes, status=no, menubar=no, resizable=no, scrollbars=yes');" Class="link4">放入购物车</a>&nbsp;<a href="javascript:;" onClick="javascript:window.open('../../../OrderForm/House.asp?Makking=add&ProductNumberID=<%=TRIM(rs("ProductNumberID"))%>','House','width=660,height=500,toolbar=yes, status=no, menubar=no, resizable=no, scrollbars=yes');" Class="link4">加入收藏夹</a>&nbsp;<a href="javascript:;" onClick="javascript:window.open('../../../LeaveWord/Asking.asp?ProductNumberID=<%=TRIM(rs("ProductNumberID"))%>','Asking','width=660,height=500,toolbar=yes, status=no, menubar=no, resizable=no, scrollbars=yes');" Class="link4">向卖家提问</a>&nbsp;</td>
        </tr>
      </table></td>
        </tr>
      </table>
      
<table width="96%" border="0" cellspacing="0" cellpadding="0">
  <tr>
          <td height="10"></td>
        </tr>
	</table>
		
<%
'Conn.Execute("Update Product Set LookCount = "& Rs("LookCount")+1 &" Where ProductNumberID = '"& Rs("ProductNumberID") &"'")
Rs.MoveNext
wend
Rs.Close
Set Rs = Nothing
%>