companylist.asp

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

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
if cint(anysale.asGroups(5))=0 then call anysale.asNote("权限出错","你所在的用户组没有浏览公司的权限!") end if
dim classID,areaID
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("company",anysale.nav("class",classID,2,"")&"找公司",anysale.asInfo(3),anysale.asInfo(4))
%>
<%=anysale.ad(33,"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="company.asp">找公司</a><%=anysale.nav("class",classID,0,"companylist.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,"companylist.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-->
  <form name="companySearchForm" id="companySearchForm" action="companylist.asp">
<%
dim rs,sql,page,ipage,npage,search,logo
page = clng(request("page"))
if page="" or page<1 then page=1 end if

set rs= Server.CreateObject("ADODB.Recordset")
sql="select userID,username,title,logo,areaID,regtime,regdate,capital,money,detail,istop,iselite,views,istrust from as_user where islock=0 "
if request("keywords")<>"" then
	sql=sql+" and (title like '%"&anysale.checkStr(trim(request("keywords")))&"%' or business 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("regdate")>0 then
	if request("regdate")="999" then
		sql=sql+ "and regdate="&year(now())
	else
		sql=sql+ "and regdate<"&year(now())-request("regdate")
	end if
	search=search+"&amp;regdate="&request("regdate")
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
if request("brand")=1 then
	sql=sql+ " and isbrand=1"
	search=search+"&amp;brand="&request("elite")
end if
select case request("orders")
case 1
	sql=sql+" order by istop desc,regtime desc"
case 2
	sql=sql+" order by istop desc, views desc"
case 3
	sql=sql+" order by istop desc, regdate asc"
case 4
	sql=sql+" order by istop desc, capital desc"
case 5
	sql=sql+" order by istop desc, money desc"
case 6
	sql=sql+" order by istop desc, trustStartTime desc"
case else
	sql=sql+" order by istop desc, istrust desc"
end select
if request("orders")>0 then
	search=search+"&amp;orders="&request("orders")
end if

rs.open sql,conn,1
%>
  <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="companyListAreaID">
    <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=companyListArea&amp;table=area&amp;parentID=0&amp;groups=0&amp;isuser=0&amp;isselect=1');">&nbsp;&nbsp;&nbsp;</span>
    <select name="regdate" style="width:100px;">
     <option value="0">所有工商年份</option>
	 <option value="5"<%if request("regdate")=5 then response.write" selected=""selected""" end if%>>注册五年以上</option>
	 <option value="3"<%if request("regdate")=3 then response.write" selected=""selected""" end if%>>注册超过三年</option>
	 <option value="1"<%if request("regdate")=1 then response.write" selected=""selected""" end if%>>注册超过一年</option>
	 <option value="999"<%if request("regdate")=999 then response.write" selected=""selected""" end if%>>注册一年以下</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>
	 <option value="4"<%if request("orders")=4 then response.write" selected=""selected""" end if%>>按注册资本</option>
	 <option value="5"<%if request("orders")=5 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="brand" type="checkbox" value="1" <%if request("brand")=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="companyListForm" id="companyListForm" target="_blank" action="compare.asp">
  <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>
<%
if not rs.eof then
	rs.pageSize = 10
	if page>rs.pageCount then page=rs.pageCount end if
	rs.absolutePage = page
	npage=rs.pageCount
	for ipage = 1 to rs.pageSize
	logo=split(rs("logo"),"|||")
%>
   <ul<%if rs("istop")>0 then response.write" class=""hover""" end if%>>
    <li class="check txtCen"><input name="username" onClick="unCheckAll('companyListForm')" type="checkbox" value="<%=rs("username")%>" /></li>
	<li class="name"><a target="_blank" href="companydetail.asp?u=<%=rs("username")%>"><%if logo(0)="images/nologo.gif" then%><img src="images/nologo.gif" style="padding:30px 10px;" class="border whitebg" alt="<%=rs("title")%>" /><%else%><img src="<%=logo(0)%>" alt="<%=rs("title")%>" width="100" class="border" /><%end if%></a></li>
	<li class="intro">
	 <h2><%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")%>"><%=rs("title")%></a><span class="date">&nbsp;<%=anysale.formatDate(rs("regTime"),1)%></span></h2>
	 <p><%=anysale.cutStr(anysale.clearHTML(rs("detail")),100)%>...</p>
	 <h3 class="color">所在地区：<%=anysale.nav("area",rs("areaID"),3,"")%></h3>
	</li>
	<li class="name txtCen"><br /><%=rs("regdate")%>年</li>
	<li class="name txtCen"><br /><span class="red"><%=rs("capital")%></span> 万元</li>
	<li class="name txtCen"><br /><%=rs("money")%>/<%=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=message&amp;username=<%=rs("username")%>');">发送留言</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
%>
   <ul>
    <li class="right f14"><%=anysale.pagelink(page,npage,"companylist.asp?",search)%></li>
	<li class="check txtCen"><input name="chkAll" id="chkAll" type="checkbox" onClick="checkAll(this.form)" value="checkbox" /></li>
	<li>
     <input type="button" name="message" class="button" value="批量留言" onClick="getPage('windows.asp?action=message','windows',1,'companyListForm');" onMouseOver="this.className='buttonH'" onMouseOut="this.className='button'" />
	 <input type="submit" name="compare" class="button" value="公司对比" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
	 <input type="hidden" value="3" name="channel" />
	</li>
   </ul>
<%
else
	response.write "<ul><li>暂无相关会员!</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(34,"class=""banner padT5 clear""")%>
<%
anysale.footer
closeConn
%>