bbsdetail.asp

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

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

dim ID,rs,sql,rslist,rsUser,search,channelID
dim page,ipage,npage,face,contact,sign,adlist,ilist
dim isbbsMaster
if request("ID")="" or not isnumeric(request("ID")) then
	call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
else
	ID=request("ID")
end if
search="&amp;ID="&ID
set rslist=conn.execute("select * from as_bbslist where bbsID="&ID)
if rslist.eof or rslist.bof then
	call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
else
	if rslist("islock")=1 then
		call anysale.asNote("访问出错","帖子被锁定，请查看其它帖子。")
	end if
	conn.execute("update as_bbslist set views=views+1 where bbsID="&ID)
	channelID=rslist("channelID")
	
	isbbsMaster=false
	if instr(","&bbsMaster(channelID)&",",","&anysale.username&",") then isbbsMaster = true end if
	
	call anysale.header("bbs",rslist("title") &" - "& anysale.nav("channel",channelID,2,"")&"行业论坛",rslist("title")&","&rslist("tags"),rslist("intro"))

	adlist=trim(anysale.ad(68,""))
	if adlist<>"" then
		adlist=mid(adlist,7,len(adlist)-6)
		adlist=left(adlist,len(adlist)-6)
	end if
	adlist=adlist+"[adlist][adlist][adlist][adlist][adlist][adlist][adlist][adlist][adlist][adlist]"
	adlist=split(adlist,"[adlist]")
%>
<%=anysale.ad(67,"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?")%>&raquo;<%=rslist("title")%></li></ul>
 </div>  
 <!--1.end-->
</div>

<div class="line5"></div>

<div class="bodyer">
 <ul class="right"><li class="line20">您是本帖第<%=rslist("views")%>个读者</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>
 <ul class="linkN" onmouseover="this.className='linkH'" onmouseout="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="bbspost.asp?action=reply&amp;channelID=<%=channelID%>&amp;ID=<%=rslist("bbsID")%>">回复帖子</a></li><li class="linkR">&nbsp;</li></ul>
</div>

<div class="line5"></div>

<div class="bodyer">
 <!--4-->
 
 <div class="tab" style="width:948px;border-bottom:0px solid #FFFFFF;">
  <div class="tabList">
   <ul class="right"><li>
    <a href="javascript:anysale();" onclick="getPage('windows.asp?action=favorite&amp;groups=8&amp;title=<%=server.urlEncode(rslist("title"))%>&amp;link=<%=server.urlEncode("bbsdetail.asp?ID="&ID)%>');">收藏</a>
    <a href="javascript:anysale();" onclick="getPage('windows.asp?action=email&amp;title=<%=server.urlEncode(rslist("title"))%>&amp;detail=<%=server.urlEncode("老朋友好久不见，我是“"&anysale.nickname&"”. 我在 "&anysale.asInfo(1)&" 上发现一文章,也许你会感兴趣，看一下？ 详细信息请参看："&anysale.asInfo(1)&"bbsdetail.asp?ID="&ID)%>');">推荐</a>
    <a href="javascript:anysale();" onclick="getPage('windows.asp?action=message&amp;username=admin&amp;title=<%=server.urlEncode("举报帖子："&rslist("title"))%>&amp;detail=<%=server.urlEncode(anysale.asInfo(1)&"bbsdetail.asp?ID="&ID)%>');">举报</a>
   &nbsp;&nbsp;</li></ul>
   <ul><li class="line30"><h2>&nbsp;&nbsp;标题：<%=rslist("title")%></h2></li></ul>
  </div>
<%
page = clng(request("page"))
if page="" or page<1 then page=1 end if

set rs= Server.CreateObject("ADODB.Recordset")
sql="select bbsID,userID,username,addtime,layer,front,emot,title,detail,islock,isbest,parentID,rootID,agree,against,isdel from as_bbs where rootID="&ID&" and channelID="&channelID&" order by layer,orders"
rs.open sql,conn,1
if not rs.eof then
	rs.pageSize = 10
	if page>rs.pageCount then page=rs.pageCount end if
	rs.absolutePage = page
	npage=rs.pageCount
	ilist=1
	for ipage = 1 to rs.pageSize
%>
  <a name="<%=rs("bbsID")%>"></a>
  <div class="clear borderB<%if ipage mod 2=0 then response.write" bg" end if%>" style="width:100%;">
   <div class="left names">
	<ul class="f12" style="padding:10px 20px;">
<%
		set rsUser=conn.execute("select nickname,face,regtime,istrust,trustStartTime,sign,groups,[level],money,areaID,contact from as_user where islock=0 and username='"&rs("username")&"'")
		if not(rsUser.eof and rsUser.bof) then
		face=split(rsUser("face"),"|||")
		contact=split(rsUser("contact"),"|||")
		sign=rsUser("sign")
%>
	 <li><span class="right"><%if contact(1)=1 then response.write"先生" else response.write"女士" end if%></span><strong><%=rsUser("nickname")%></strong></li>
	 <%if cint(anysale.asUser(2))=1 then '使用头像设置%><li><img src="<%=face(0)%>" alt="face" class="border" width="<%=face(1)%>" height="<%=face(2)%>" /></li><%end if%>
	 <li><img src="<%=anysale.getValue("as_groups","levelpic","groupsID="&rsUser("level"))%>" alt="财富等级：<%=anysale.getValue("as_groups","groupsName","groupsID="&rsUser("level"))%>" /></li>
	 <li>会员分组：<%=anysale.getValue("as_groups","groupsName","groupsID="&rsUser("groups"))%></li>
	 <%if rsUser("istrust")=1 then%><p>诚信会员：第<%=year(now())-year(rsUser("trustStartTime"))+1%>年</p><%end if%>
	 <li>金钱财富：<%=rsUser("money")%></li>
	 <li>所在地区：<%=anysale.getValue("as_area","areaName","areaID="&rsUser("areaID"))%></li>
	 <li>注册时间：<%=anysale.formatDate(rsUser("regtime"),5)%></li>
<%
		else
			response.write"该用户已被锁定或被删除!"
		end if
		rsUser.close
		set rsUser=nothing
%>
	</ul>
   </div>
   
   <div class="left borderL" style="width:728px;overflow:hidden;word-wrap:break-word;word-break:normal;padding:10px 9px 10px 10px;">
    <div class="f12 clear borderB">
	 <span class="right"><%if rs("layer")=1 then response.write"楼主" else response.write "第"&rs("layer")&"楼"%></span>
	 <a href="companydetail.asp?u=<%=rs("username")%>">会员信息</a> | 
	 <a href="javascript:anysale();" onclick="getPage('windows.asp?action=contact&amp;username=<%=rs("username")%>');">联系方式</a> | 
	 <a href="javascript:anysale();" onclick="getPage('windows.asp?action=addFriend&amp;friend=<%=rs("username")%>&amp;readme=<%=rs("title")%>');">加为好友</a> | 
	 <a href="javascript:anysale();" onClick="getPage('windows.asp?action=message&amp;username=<%=rs("username")%>');">发送留言</a>
	</div>
	<div class="line10">&nbsp;</div>
	<h2><span class="right red"><h5 id="best<%=rs("bbsID")%>"><%if rs("isbest")=1 then%>本帖被加为精华<%end if%></h5></span><img src="<%=rs("emot")%>" alt="心情" align="absmiddle" /> <%=rs("front")%> <%=rs("title")%></h2>
	<div class="line10">&nbsp;</div>
	<div class="detail" style="min-height:180px;height:auto !important;height:180px;" id="detail<%=rs("bbsID")%>"><p>
	<%if rs("islock")=1 then
		response.write"本帖内容被屏蔽！"
	elseif rs("isdel")=1 then
		response.write"本帖内容被删除！"
	else
		response.write anysale.chkBadWords(rs("detail"))
	end if
	%>
	</p></div>
	<div class="line10">&nbsp;</div>
	<%if not isnull(adlist(ilist)) then response.write adlist(ilist) end if%>
	<%if sign<>"" and cint(anysale.asUser(0))=1 then%><div class="f12 borderT"><%if cint(anysale.asUser(1))=1 then response.write sign else response.write anysale.HTMLencode(sign) end if%></div><%end if%>
   </div>
  </div>
  <div class="clear borderB<%if ipage mod 2=0 then response.write" bg" end if%>" style="width:100%;">
   <div class="left names txtCen f12"><%=anysale.formatDate(rs("addtime"),6)%></div>   
   <div class="left borderL f12" style="width:747px;">
	<span class="right">
	 <a href="bbspost.asp?action=reply&amp;channelID=<%=channelID%>&amp;ID=<%=rslist("bbsID")%>&amp;quote=<%=rs("bbsID")%>">引用</a> | 
	 <%if rs("username")=anysale.username then%><a href="bbspost.asp?action=edit&amp;channelID=<%=channelID%>&amp;ID=<%=rs("bbsID")%>&amp;page=<%=page%>">编辑</a> | <%end if%>
	 <%if anysale.isAdmin or isbbsMaster then%>
	 <%if rs("isbest")=0 then%>
	 <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbsBest&amp;ID=<%=rs("bbsID")%>&amp;value=1&amp;parentID=<%=rs("parentID")%>&amp;rootID=<%=rs("rootID")%>&amp;userID=<%=rs("userID")%>&amp;channelID=<%=channelID%>','best<%=rs("bbsID")%>')">精华</a> |
	 <%else%>
	 <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbsBest&amp;ID=<%=rs("bbsID")%>&amp;value=0&amp;parentID=<%=rs("parentID")%>&amp;rootID=<%=rs("rootID")%>&amp;userID=<%=rs("userID")%>&amp;channelID=<%=channelID%>','best<%=rs("bbsID")%>')">取消精华</a> |
	 <%end if%>
	 <%if rs("islock")=0 then%>
	 <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbsLock&amp;ID=<%=rs("bbsID")%>&amp;value=1&amp;parentID=<%=rs("parentID")%>&amp;rootID=<%=rs("rootID")%>&amp;channelID=<%=channelID%>','detail<%=rs("bbsID")%>')">屏蔽</a> |
	 <%else%>
	 <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbsLock&amp;ID=<%=rs("bbsID")%>&amp;value=0&amp;parentID=<%=rs("parentID")%>&amp;rootID=<%=rs("rootID")%>&amp;channelID=<%=channelID%>','detail<%=rs("bbsID")%>')">取消屏蔽</a> |
	 <%end if%>
	 <%end if%>
	 <a href="javascript:anysale();" onclick="getPage('windows.asp?action=message&amp;username=admin&amp;title=<%=server.urlEncode("举报："&rslist("title"))%>&amp;detail=<%=server.urlEncode(anysale.asInfo(1)&"bbsdetail.asp?page="&page&"&amp;ID="&ID&"#"&rs("bbsID"))%>');">举报</a> |
	 <a href="#top">回到顶部</a>&nbsp;&nbsp;