productslist.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
if cint(anysale.asGroups(4))=0 then call anysale.asNote("权限出错","你所在的用户组没有浏览产品的权限!") end if

dim classID,areaID,style
if request("classID")="" or not isnumeric(request("classID")) then
	classID=0
else
	classID=clng(request("classID"))
end if
if request("areaID")="" or not isnumeric(request("areaID")) then
	areaID=0
else
	areaID=clng(request("areaID"))
end if

call anysale.header("products",anysale.nav("class",classID,2,"")&"找产品",anysale.asInfo(3),anysale.asInfo(4))
%>
<%=anysale.ad(23,"class=""banner padT5""")%>

<div class="line5"></div>
<div class="bodyer">
 <!--1-->
 <div class="tab" style="width:948px;">
  <div class="tabList">
   <ul><li class="line30">&nbsp;&nbsp;<strong>您的位置:</strong>&nbsp;<a href="index.asp">首页</a>&raquo;<a href="products.asp">找产品</a><%=anysale.nav("class",classID,0,"productslist.asp?")%></li></ul>
  </div>  

  <div class="subClass" style="padding:0 10px;">
   <!--list-->
   <ul class="line10"><li></li></ul>
   <ul>
    <%=anysale.subList("class",classID,0,0,"productslist.asp?")%>
   </ul>
   <ul class="line10"><li></li></ul>
   <!--list.end-->
  </div>
  
 </div>
 <!--1.end-->
</div>
<div class="line5"></div>

<div class="bodyer">
 <!--2-->
 <div class="tab">
  <!--list-->
<%
dim rs,sql,page,ipage,npage,search
page = clng(request("page"))
if page="" or page<1 then page=1 end if

set rs= Server.CreateObject("ADODB.Recordset")
sql="select productsID,userID,username,title,preview,price,unit,areaID,addtime,detail,istop,views,istrust from as_products where islock=0 "
if request("keywords")<>"" then
	sql=sql+" and title like '%"&anysale.checkStr(trim(request("keywords")))&"%'"
	search="&amp;keywords="&request("keywords")
end if
if classID>0 then
	sql=sql+ anysale.IDList("class",classID)
	search=search+"&amp;classID="&classID
end if
if areaID>0 then
	sql=sql+ anysale.IDList("area",areaID)
	search=search+"&amp;areaID="&areaID
end if
if request("addtime")>0 then
	if isSqlDataBase=1 then
		sql=sql+" and datediff(d,addtime,"&anysaleNow&")<="&clng(request("addtime"))
	else
		sql=sql+" and datediff('d',addtime,"&anysaleNow&")<="&clng(request("addtime"))
	end if
	search=search+"&amp;addtime="&request("addtime")
end if
if request("trust")=1 then
	sql=sql+ " and istrust=1"
	search=search+"&amp;trust="&request("trust")
end if
if request("elite")=1 then
	sql=sql+ " and iselite=1"
	search=search+"&amp;elite="&request("elite")
end if
select case request("orders")
case 1
	sql=sql+" order by istop desc, addtime desc"
case 2
	sql=sql+" order by istop desc, views desc"
case 3
	sql=sql+" order by istop desc, price asc"
case else
	sql=sql+" order by istop desc, istrust desc, addtime desc"
end select
if request("orders")>0 then
	search=search+"&amp;orders="&request("orders")
end if
if request("style")<>"" and isnumeric(request("style")) then
	style=request("style")
	search=search+"&amp;style="&request("style")
end if

rs.open sql,conn,1
%>
  <form name="productsSearchForm" id="productsSearchForm" action="productslist.asp">
  <div class="tabList" style="width:943px;">
   <ul><li>
    <span class="right f12 line30">共<%=rs.recordcount%>条信息&nbsp;&nbsp;</span>
	&nbsp;筛选：<input type="text" name="keywords" value="<%=request("keywords")%>" style="width:100px;height:17px;" />
    <select name="areaID" id="productslistAreaID">
    <option value="0">所有区域</option>
	<%=anysale.IDSelect("area",0,0,0,areaID)%>
	</select>
	<span class="iArr" style="cursor:pointer;" title="点击选择区域" onClick="getPage('windows.asp?action=clickID&amp;upValue=productslistArea&amp;table=area&amp;parentID=0&amp;groups=0&amp;isuser=0&amp;isselect=1');">&nbsp;&nbsp;&nbsp;</span>
    <select name="addtime" style="width:100px;">
     <option value="0">所有发布时间</option>
	 <option value="1"<%if request("addtime")=1 then response.write" selected=""selected""" end if%>>1天内的新信息</option>
	 <option value="3"<%if request("addtime")=3 then response.write" selected=""selected""" end if%>>3天内的新信息</option>
	 <option value="7"<%if request("addtime")=7 then response.write" selected=""selected""" end if%>>7天内的新信息</option>
	 <option value="15"<%if request("addtime")=15 then response.write" selected=""selected""" end if%>>15天内的新信息</option>
	 <option value="30"<%if request("addtime")=30 then response.write" selected=""selected""" end if%>>30天内的新信息</option>
    </select>
    <select name="orders">
     <option value="0">排序选择</option>
	 <option value="1"<%if request("orders")=1 then response.write" selected=""selected""" end if%>>按发布时间</option>
	 <option value="2"<%if request("orders")=2 then response.write" selected=""selected""" end if%>>按人气显示</option>
	 <option value="3"<%if request("orders")=3 then response.write" selected=""selected""" end if%>>按产品价格</option>
    </select>
	<input name="trust" type="checkbox" value="1" <%if request("trust")=1 then response.write"checked=""checked""" end if%> /> 诚信
	<input name="elite" type="checkbox" value="1" <%if request("elite")=1 then response.write"checked=""checked""" end if%> /> 推荐
	<input name="style" type="checkbox" value="1" <%if style=1 then response.write"checked=""checked""" end if%> /> 厨窗
	<input type="hidden" value="<%=classID%>" name="classID" />
    <input type="submit" name="OK" class="button" value="确定" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
   </li></ul>
  </div>
  </form>
  
  <form name="productsListForm" id="productsListForm" target="_blank" action="compare.asp">
<%
if not rs.eof then
	if style=1 then
		rs.pageSize = 50
		if page>rs.pageCount then page=rs.pageCount end if
		rs.absolutePage = page
		npage=rs.pageCount
%>
  <div class="imglist">
<%		for ipage = 1 to rs.pageSize%>
   <ul<%if rs("istop")>0 then response.write" class=""bg""" end if%>>
    <li><a href="productsdetail.asp?id=<%=rs("productsID")%>"><%if rs("preview")="" then%><img src="images/noimage.gif" style="padding:25px;" class="border whitebg" alt="<%=rs("title")%>" /><%else%><img src="<%=rs("preview")%>" alt="<%=rs("title")%>" width="100" height="100" class="border" /><%end if%></a></li>
    <li><a href="productsdetail.asp?id=<%=rs("productsID")%>"><%=rs("title")%></a></li>
	<li><input name="productsID" onclick="unCheckAll('productsListForm')" type="checkbox" value="<%=rs("productsID")%>" /><%if rs("price")>0 then%> <span class="red"><%=rs("price")%></span> 元<%end if%></li>
    <li>
	 <input type="button" name="askPrice" class="button" value="询价" onClick="getPage('windows.asp?action=askPrice&amp;username=<%=rs("username")%>&amp;title=<%=server.urlEncode(rs("title"))%>&amp;unit=<%=server.urlEncode(rs("unit"))%>');" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
	 <input type="button" name="contact" class="button" value="联系"  onClick="getPage('windows.asp?action=contact&amp;username=<%=rs("username")%>');" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
	</li>
	<li><%if rs("istrust")=1 then%><a href="trust.asp" class="iTrust" target="_blank" title="诚信会员标识">&nbsp;</a> <%end if%><a target="_blank" href="companydetail.asp?u=<%=rs("username")%>"><%=anysale.getValue("as_user","title","userID="&rs("userID"))%></a></li>
   </ul>
<%
			if ipage mod 5=0 then response.write"<div class=""line5 clear"">&nbsp;</div>" end if
			rs.moveNext
			if rs.eof then exit for end if
		next
%>
  </div>
<%
	else '默认style
		rs.pageSize = 20
		if page>rs.pageCount then page=rs.pageCount end if
		rs.absolutePage = page
		npage=rs.pageCount
%>
  <div class="item" style="padding:0 9px;">
   <ul>
    <li class="check">&nbsp;</li>
	<li class="name">图片</li>
	<li class="intro">产品信息</li>
	<li class="name">所在区域</li>
	<li class="name">单价(元)</li>
	<li class="name">人气</li>
	<li class="link lineR">操作</li>
   </ul>
  </div>
  <div class="list" style="padding:0 9px;">
   <ul class="line10"><li></li></ul>
<%		for ipage = 1 to rs.pageSize%>
   <ul<%if rs("istop")>0 then response.write" class=""hover""" end if%>>
    <li class="check txtCen"><input name="productsID" onclick="unCheckAll('productsListForm');" type="checkbox" value="<%=rs("productsID")%>" /></li>
    <li class="name"><a href="productsdetail.asp?id=<%=rs("productsID")%>"><%if rs("preview")="" then%><img src="images/noimage.gif" style="padding:25px;" class="border whitebg" alt="<%=rs("title")%>" /><%else%><img src="<%=rs("preview")%>" alt="<%=rs("title")%>" width="100" height="100" class="border" /><%end if%></a></li>
	<li class="intro">
	 <h2><a href="productsdetail.asp?id=<%=rs("productsID")%>"><%=rs("title")%></a><span class="date">&nbsp;<%=anysale.formatDate(rs("addtime"),1)%></span></h2>
	 <p><%=anysale.cutStr(anysale.clearHTML(rs("detail")),100)%></p>
	 <h3><%if rs("istrust")=1 then%><a href="trust.asp" class="iTrust" target="_blank" title="诚信会员标识">&nbsp;</a> <%end if%><a target="_blank" class="links" href="companydetail.asp?u=<%=rs("username")%>"><%=anysale.getValue("as_user","title","userID="&rs("userID"))%></a></h3>
	</li>
	<li class="name txtCen"><br /><%=anysale.nav("area",rs("areaID"),3,"")%></li>
	<li class="name txtCen"><br /><span class="red"><%=rs("price")%></span> 元</li>
	<li class="name txtCen"><br /><%=rs("views")%></li>
	<li class="link">
	 <br />
	 <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="javascript:anysale();" onclick="getPage('windows.asp?action=askPrice&amp;username=<%=rs("username")%>&amp;title=<%=server.urlEncode(rs("title"))%>&amp;unit=<%=server.urlEncode(rs("unit"))%>');">询价议价</a></li><li class="linkR">&nbsp;</li></ul>
     <ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="javascript:anysale();" onclick="getPage('windows.asp?action=contact&amp;username=<%=rs("username")%>');">联系方式</a></li><li class="linkR">&nbsp;</li></ul>
	</li>
   </ul>
   <div class="xline">&nbsp;</div>
<%
			rs.moveNext
			if rs.eof then exit for end if
		next
%>
  </div>
<%
	end if 'style end
%>
  <div class="clear" style="padding:0 9px;">
   <ul>
    <li class="right f14"><%=anysale.pagelink(page,npage,"productslist.asp?",search)%></li>
	<li class="check txtCen"><input name="chkAll" id="chkAll" type="checkbox" onClick="checkAll(this.form)" value="checkbox" /></li>
	<li>
	 <input type="submit" name="compare" class="button" value="对比产品" onMouseOver="this.className='buttonH'" onMouseOut="this.className='button'" />
	 <input type="hidden" value="2" name="channel" />
	</li>
   </ul>
<%
else
	response.write "<ul class=""line10""><li></li></ul><ul><li>&nbsp;&nbsp;暂无相关产品!</li></ul>"
end if
rs.close
set rs=nothing
%>

   <ul class="line10"><li>&nbsp;</li></ul>
  </div>
  </form>
  <!--list.end-->
 </div>
 <!--2.end-->
</div>
<%=anysale.ad(24,"class=""banner padT5 clear""")%>
<%
anysale.footer
closeConn
%>