e1.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="120" align="center" bgcolor="#E7E7E7">商品图片</td>
          <td align="center" bgcolor="#E7E7E7"><table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr align="center"> 
          <td width="80%">说明</td>
          <td>零售价</td>
        </tr>
      </table></td>
        </tr>
      </table>
<%
if (rs.bof and rs.eof) then
IF Searchkey <> "" Then
		response.write "<br><span class=text_7><strong><font color=ff6600>引擎小提示：</font></strong>"
		call new_text()
		response.write "<br><br><strong>对不起，引擎没有找到<font color=ff6600>"""& Searchkey &"""</font>相关的商品信息！</strong></span>"
%>
		<span class=text_2><br><br><br>&nbsp;&nbsp;&nbsp;建议您：
		<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;1.请检查您输入的关键词是否有错误；
		<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2.请尝试使用其它语义相近或相同的词组；
		<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;3.您选择的条件是否太多，建议退出所有条件重试；
		<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;4.您可以查看引擎<a href="../../../Search/help.asp" target="_blank" class="none1">帮助</a>，或向我们提出<a href="javascript:;" onClick="javascript:window.open('../../../LeaveWord/Advice.asp','Advice','width=660,height=500,toolbar=yes, status=no, menubar=no, resizable=no, scrollbars=yes');" class="none1">建议</a>；</span> 
<%
Else

		Response.Write("<br><strong>对不起，没有找到商品</a>")

End IF
else
'===============================================分页
				rs.PageSize = T
				iCount=rs.RecordCount '记录总数
				iPageSize=rs.PageSize
				maxpage=rs.PageCount 
				page=request("page")
			if Not IsNumeric(page) or page="" then
				page=1
			else
				page=cint(page)
			end if
				if page<1 then
					page=1
				elseif  page>maxpage then
					page=maxpage
				end if
					rs.AbsolutePage=Page
				if page=maxpage then
					x=iCount-(maxpage-1)*iPageSize
				else
					x=iPageSize
				end if
    			For ii=1 To x
'-------------------------------------------------定义
			PCount     = PCount + 1
			ProductPic = rs("ProductPic")
			if isnull(rs("Price")) then
			Price      = 0
			else
			Price      = rs("Price")
			end if
%>
<table width="100%" height="120" border="0" cellpadding="0" cellspacing="0" <%if Is_odd(PCount)=false then%>bgcolor="#F6F6F6"<%end if%>>
        <tr> 
          <td width="120" align="center"> 
            <table width="100" height="100" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
              <tr>
                
          <td align="center" valign="middle" bgcolor="ffffff"> 
            <%

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="../../../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%>
          </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"><span class=text_9><A href="../../../Product/<%=Year(rs("DateTime"))%>/<%=Month(rs("DateTime"))%>/<%=rs("ProductNumberID")%>.Html" target="_blank" class=none1 title="点击查看商品：<%=rs("ProductName")%>的详情"><%=SearchEncode(rs("ProductName"))%></a></span></td>
              </tr>
              <tr> 
                <td> 
<%
	response.write "<span class=text_10>"&SearchEncode(rs("Content"))&"...</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(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></td>
        </tr>
      </table></td>
        </tr>
      </table>
      <table width="100%" 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
next
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="35" align="left">&nbsp;&nbsp; 
<%
call PageControl(iCount,maxpage,page)
%>
          </td>
        </tr>
      </table>