product_a.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
SQL = "Select * From Product Where "& SQLC &" "& SQLQ &" and Auditing=1 and ShopNumberID = '"& ShopNumberID &"' order by Good Desc,DateTime desc"
Set Rs = Server.CreateObject("Adodb.Recordset")
	Rs.open SQL,Conn,1,1

IF Not (Rs.bof AND Rs.eof) Then
	rs.PageSize = Mould_Setup(9)
%>

<!--#include File="Page.asp"-->

<%
while not Rs.eof and j<Rs.PageSize
%>
<table width="100%" border="0" cellpadding="8" cellspacing="0">
  <tr align="center" valign="middle"> 
    <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
<%
for i = 1 to Mould_Setup(12)
if not Rs.eof then
%>
          <td width="25%" align="center" ><table width="<%=Mould_Setup(10) + 20%>" height="<%=Mould_Setup(11) + 20%>" border="0" cellpadding="0" cellspacing="0" bgcolor="eeeeee">
              <tr> 
                <td height="8" colspan="3" align="center" valign="middle" bgcolor="ffffff"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="1%"><img src="images/prd_2_01.gif" width="8" height="8"></td>
                      <td width="100%" background="images/prd_2_02.gif"></td>
                      <td width="1%"><img src="images/prd_2_03.gif" width="9" height="8"></td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td width="8" align="center" valign="middle" background="images/prd_2_04.gif" bgcolor="ffffff">&nbsp;</td>
                <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")%>"><img src="<%=ViewImageFile%>?w=<%=Mould_Setup(10)%>&h=<%=Mould_Setup(11)%>&picUrl=<%=ThenURLName%><%=rs("ProductPic")%>" border="0"></a> 
                  <%end if%>
                </td>
                <td width="9" align="center" valign="middle" background="images/prd_2_06.gif" bgcolor="ffffff">&nbsp;</td>
              </tr>
              <tr> 
                <td height="8" colspan="3" align="center" valign="middle" bgcolor="ffffff"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="1%"><img src="images/prd_2_07.gif" width="8" height="8"></td>
                      <td width="100%" background="images/prd_2_08.gif"></td>
                      <td width="1%"><img src="images/prd_2_09.gif" width="9" height="8"></td>
                    </tr>
                  </table></td>
              </tr>
            </table>
            <table width="140" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="45" align="center" class="TxtProduct"> <strong> <a title="商品：<%=Rs("ProductName")%>的价格"><s><%=FormatCurrency(Rs("Market_Price"))%></s></a><br>
                  <a title=商品：<%=rs("ProductName")%>的价格><font color="#FF3300"><%=FormatCurrency(rs("Price"))%></font></a><br>
                  <A href="Products.asp?C=<%=C%>&ProductID=<%=Rs("ProductNumberID")%>" target="_blank"> 
                  <%
				  IF len(Rs("ProductName"))> 8 Then
				  Response.write Left(Rs("ProductName"),8) & "..."
				  Else
				  Response.write Rs("ProductName")
				  End IF
				  %>
                  </a></strong> </td>
              </tr>
            </table></td>
                <%
'Conn.Execute("Update Product Set LookCount = "& Rs("LookCount")+1 &" Where ProductNumberID = '"& Rs("ProductNumberID") &"'")
j = j + 1
Rs.moveNext
end if
next
%>

        </tr>
      </table></td>
  </tr>
</table>
<%
wend
End IF
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="50"> 
<%
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
%>
    </td>
  </tr>
</table>