e3.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
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
				
while not Rs.eof and j<Rs.PageSize
%>
<table width="100%" height="160" border="0" cellpadding="0" cellspacing="0">
  <tr align="center" valign="middle"> 
    <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
                <%
for ii = 1 to 4
if not Rs.eof then
%>
          <td width="25%" align="center" >
<table width="100" height="100" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
              <tr> 
                <td align="center" valign="middle" bgcolor="ffffff"> 
                  <%
PCount     = PCount + 1
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="../../../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>
			<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><br>
<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
%>
            </a> </td>
                <%	
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="35" align="left">&nbsp;&nbsp; 
<%
call PageControl(iCount,maxpage,page)
%>

          </td>
        </tr>
      </table>