e2.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr align="left"> 
          <td width="48%" bgcolor="#E7E7E7">商品名称</td>
          <td width="27%" bgcolor="#E7E7E7">卖家</td>
          <td width="12%" bgcolor="#E7E7E7">价格</td>
          <td width="13%" bgcolor="#E7E7E7">操作</td>
        </tr>
      </table>
<%
if (rs.bof and rs.eof) 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
'===============================================分页
				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%" border="0" cellspacing="0" cellpadding="2" <%if Is_odd(PCount)=false then%><%end if%> onmouseover="this.style.backgroundColor='#F6F6F6'" onmouseout="this.style.backgroundColor=''">
  <tr align="left"> 
          
    <td width="48%" height="28" style="word-break:break-all">
<A href="../../../Product/<%=Year(rs("DateTime"))%>/<%=Month(rs("DateTime"))%>/<%=rs("ProductNumberID")%>.Html" target="_blank" class=none1 title="点击查看商品：<%=rs("ProductName")%>的详情"> 
<%
if len(Rs("ProductName"))>20 then
response.write left(Rs("ProductName"),20)&"..."
else
response.write Rs("ProductName")
end if
%></a>      </td>
          
    <td width="27%" height="28" style="word-break:break-all"> 
<%
    set rs_s = conn.Execute("select * from Shop where ShopNumberID ='"& rs("ShopNumberID") &"'")
    if not(rs_s.bof and rs_s.eof) then
	IF Trim(rs_s("ShopURL"))<>"" Then
	Response.write "<a href="& Trim(rs_s("ShopURL")) &" title=浏览"& rs_s("ShopName") &"卖家更多商品 target=_blank class=none1>"
	Else
	Response.write "<a href=../../../Mould/Shop/NewYearNacarat/?ID="& Trim(rs_s("ShopNumberID")) &" title=浏览"& rs_s("ShopName") &"卖家更多商品 target=_blank class=none1>"
	End iF
	if len(rs_s("ShopName"))>15 then
	response.write ""& len(rs_s("ShopName"),15) &"..."
	else
	response.write ""& rs_s("ShopName") &""
	end if
	response.write "</a>"
	end if
	rs_s.close
%>
    </td>
          
    <td width="14%" height="28"><a title="商品：<%=rs("ProductName")%>的价格"><%=FormatCurrency(Price)%></a></td>
          
    <td width="11%" height="28"><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="none1">购买</a> 
      <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="none1">收藏</a></td>
        </tr>
      </table>
<%
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>