bbslist.asp

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

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

dim channelID
if request("channelID")="" or not isnumeric(request("channelID")) then
	call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
else
	channelID=clng(request("channelID"))
end if
call anysale.header("bbs",anysale.nav("channel",channelID,2,"")&"行业论坛",anysale.asInfo(3),anysale.asInfo(4))
%>
<%=anysale.ad(66,"class=""banner padT5""")%>

<div class="line5"></div>
<div class="bodyer">
 <!--1-->
 <div class="border h30bg line30 f14">
  <ul><li class="line30">&nbsp;&nbsp;<strong>您的位置:</strong>&nbsp;<a href="index.asp">首页</a>&raquo;<a href="bbs.asp">行业论坛</a><%=anysale.nav("channel",channelID,0,"bbslist.asp?")%></li></ul>
 </div>  
 <!--1.end-->
</div>

<%
dim rsc,child,attribute
set rsc=conn.execute("select child,attribute from as_channel where channelID="&channelID)
if not(rsc.bof and rsc.eof) then
	child=rsc(0)
	attribute=rsc(1)
end if
rsc.close
set rsc=nothing
attribute=split(attribute,"|||")

if child=0 and channelID>0 then
%>
<div class="line5"></div>
<div class="bodyer">
 <ul class="right"><li class="line20">欢迎您! <%=anysale.username%></li></ul>
 <ul class="linkN" onmouseover="this.className='linkH'" onmouseout="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="bbspost.asp?channelID=<%=channelID%>">发表话题</a></li><li class="linkR">&nbsp;</li></ul>
</div>
<%end if%>
<div class="line5"></div>

<div class="bodyer">
 <!--2-->
 <div class="tab" style="width:948px;border-bottom:0px solid #FFFFFF;">
  <!--list-->
<%
dim rs,sql,page,ipage,npage,search,lastPost
page = clng(request("page"))
if page="" or page<1 then page=1 end if

set rs= Server.CreateObject("ADODB.Recordset")
sql="select bbsID,username,lastPost,front,title,views,child,istop,islock,iselite,isbest,nickname from as_bbslist 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 channelID>0 then
	sql=sql+ anysale.IDList("channel",channelID)
	search=search+"&amp;channelID="&channelID
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("best")=1 then
	sql=sql+ " and isbest=1"
	search=search+"&amp;best="&request("best")
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, views desc"
case else
	sql=sql+" order by istop desc, bbsID desc"
end select

rs.open sql,conn,1
%>
  <form name="bbsSearchForm" id="bbsSearchForm" action="bbslist.asp">
  <div class="tabList">
   <ul><li>
    <span class="right f12 line30">共<%=rs.recordcount%>条帖子！版主：<%if attribute(0)="" then response.write"暂无" else response.write attribute(0) end if%>&nbsp;&nbsp;</span>
	&nbsp;筛选：<input type="text" name="keywords" value="<%=request("keywords")%>" style="width:100px;height:17px;" />
    <select name="channelID" id="bbslistChannelID">
    <option value="0">所有论坛版块</option>
	<%=anysale.IDSelect("channel",0,8,0,channelID)%>
	</select>
	<span class="iArr" style="cursor:pointer;" title="点击选择论坛版块" onClick="getPage('windows.asp?action=clickID&amp;upValue=bbslistChannel&amp;table=channel&amp;parentID=0&amp;groups=8&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>
	<input name="best" type="checkbox" value="1" <%if request("best")=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 type="submit" name="OK" class="button" value="确定" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
   </li></ul>
  </div>
  </form>
  
  <form name="bbsListForm" id="bbsListForm" action="compare.asp">
<%
if not rs.eof then
	rs.pageSize = 20
	if page>rs.pageCount then page=rs.pageCount end if
	rs.absolutePage = page
	npage=rs.pageCount
%>
  <div style="height:19px;overflow:hidden;">
   <ul>
	<li class="views txtCen h19bg borderR">状态</li>
	<li class="left txtCen h19bg borderR" style="width:410px;">主题</li>
	<li class="name txtCen h19bg borderR">作者</li>
	<li class="name txtCen h19bg borderR">人气 | 回复</li>
	<li class="left txtCen h19bg lineR" style="width:264px;">&nbsp;</li>
   </ul>
  </div>
  <div class="list line28">
<%		for ipage = 1 to rs.pageSize%>
   <ul class="borderB<%if rs("istop")>0 then response.write" bg" end if%>">
    <li class="views txtCen borderR bg" style="padding:5px 0 0 0;height:23px;"><%=bbsImg(rs("islock"),rs("istop"),rs("isbest"),rs("iselite"),rs("child"))%></li>
	<li class="left borderR" style="width:410px;">&nbsp;<%=rs("front")%> <a href="bbsdetail.asp?ID=<%=rs("bbsID")%>"><%=anysale.cutStr(rs("title"),32)%></a></li>
	<li class="name txtCen borderR bg"><a target="_blank" href="companydetail.asp?u=<%=rs("username")%>"><%=rs("nickname")%></a></li>
	<li class="name txtCen borderR"><%=rs("views")%> | <%=rs("child")%></li>
	<li class="left bg" style="width:264px;">
	&nbsp;
	<% lastPost=split(rs("lastPost"),"|") %>
	<a href="bbsdetail.asp?ID=<%=lastPost(1)%>&amp;page=<%=lastPost(2)%>#<%=lastPost(3)%>"><%=lastPost(0)%></a> | <a class="redlink" target="_blank" href="companydetail.asp?u=<%=lastPost(4)%>"><%=lastPost(5)%></a>
	</li>
   </ul>
<%
		rs.moveNext
		if rs.eof then exit for end if
	next
%>
  </div>
<%
else
	response.write "<ul class=""line10""><li></li></ul><ul><li>&nbsp;&nbsp;暂无相关帖子!</li></ul><ul class=""line10 borderB""><li></li></ul>"
end if
rs.close
set rs=nothing
%>
  </form>
  <!--list.end-->
 </div>

 <div class="line5"></div>
 <div class="bodyer">
   <ul>
	<li class="right f14">
	<%=anysale.pagelink(page,npage,"bbslist.asp?",search)%><br />
	</li>
	<li>
	<select name="toChannelID" onchange="if(this.options[this.selectedIndex].value!=''){location='bbslist.asp?channelID='+this.options[this.selectedIndex].value;}">
	<option value="0">跳转版面至</option>
	<%=anysale.IDSelect("channel",0,8,0,channelID)%>
	</select>
	</li>
   </ul>
 </div>
 <!--2.end-->
</div>
<%
function bbsImg(islock,istop,isbest,iselite,ishot)
	if cint(islock)=1 then
		bbsImg="<img src=""images/bbslock.gif"" alt=""锁定帖子"" width=""17"" height=""20"" />"
	elseif cint(istop)=1 then
		bbsImg="<img src=""images/bbstop.gif"" alt=""固顶帖子"" width=""17"" height=""20"" />"
	elseif cint(isbest)=1 then
		bbsImg="<img src=""images/bbsbest.gif"" alt=""精华帖子"" width=""17"" height=""20"" />"
	elseif cint(iselite)=1 then
		bbsImg="<img src=""images/bbselite.gif"" alt=""推荐帖子"" width=""17"" height=""20"" />"
	elseif clng(ishot)>10 then
		bbsImg="<img src=""images/bbshot.gif"" alt=""热门帖子"" width=""17"" height=""20"" />"
	else
		bbsImg="<img src=""images/bbslist.gif"" width=""17"" height=""20"" />"
	end if
end function

anysale.footer
closeConn
%>