bbsdetail.asp

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

	</span>
	&nbsp;&nbsp;
	<span id="vote<%=rs("bbsID")%>">
	<a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbsVote&amp;ID=<%=rs("bbsID")%>&amp;value=1','vote<%=rs("bbsID")%>')">支持[<span class="red"><%=rs("agree")%></span>]</a> |
	<a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbsVote&amp;ID=<%=rs("bbsID")%>&amp;value=0','vote<%=rs("bbsID")%>')">反对[<span class="red"><%=rs("against")%></span>]</a>
	</span>
   </div>
  </div>
<%
		ilist=ilist+1
		rs.moveNext
		if rs.eof then exit for end if
	next
end if
rs.close
set rs=nothing
%>
 </div>
 
 <!--4.end-->
</div>

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

<div class="bodyer">
 <ul>
  <li class="right f14"><%=anysale.pagelink(page,npage,"bbsdetail.asp?",search)%></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>

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

<div class="bodyer">
 <!--4-->
 <div class="tab" style="width:948px;">
  <!--images-->
  <div class="tabList">
   <ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">回复帖子</li><li class="tabR">&nbsp;</li></ul>
  </div>
  
  <form name="bbsForm" id="bbsForm" method="post">
  <div class="list line30" id="saveBbs">
   <ul><li>&nbsp;</li></ul>
   <ul>
    <li class="left txtCen" style="width:260px;">
	<%
	dim emot,imgUrl,imgFiles,i,bbsEmot
	bbsEmot="images/emot/emot1.gif"
	set rs=conn.execute("select emot from as_config")
	if not rs.eof then emot=rs(0) end if
	rs.close:set rs=nothing
	emot=split(emot,"@@@")	
	if not isarray(emot(0)) then
		imgUrl="images/emot/"
	else
		imgUrl=emot(0)
	end if
	imgFiles=split(emot(1),"|||")
	for i=0 to UBound(imgFiles)
	%>
	<input type="radio" name="emot" value="<%=imgUrl%><%=imgFiles(i)%>"<%if bbsEmot=imgUrl&imgFiles(i) then response.write" checked=""checked""" end if%>><img src="<%=imgUrl%><%=imgFiles(i)%>" />
	<%
	if (i+1) mod 5=0 then response.write"<br />"
	next%>
	</li>
    <li class="left">
     <textarea name="detail" id="bbsDetails" style="display:none"></textarea>
     <iframe name="editor" src="editor/anysale.htm?groups=@@@8@@@1@@@0@@@id=bbsDetails" frameBorder="0" marginHeight="0" marginWidth="0" scrolling="No" style="height:318px;width:602px;"></iframe>
	</li>
	<li><span class="note" id="bbsDetailsNote"></span></li>
   </ul>
   <ul><li class="left txtRig" style="width:260px;">&nbsp;</li><li>&nbsp;</li></ul>
   <ul>
    <li class="left" style="width:260px;">&nbsp;</li>
    <li>
     <input type="button" name="button" value="确 定" 
	 onclick="if(
	 check('内容',$('bbsDetails').value,'bbsDetailsNote',0,0,1)
	 ){getPage('bbspost.asp?action=saveReply','saveBbs',1,'bbsForm');};" 
	 class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
	 <input type="hidden" name="channelID" value="<%=channelID%>" />
	 <input type="hidden" name="ID" value="<%=ID%>" />
	 <input type="hidden" name="title" value="回复:<%=rslist("title")%>" />
    </li>
   </ul>
   <ul><li>&nbsp;</li></ul>
  </div>
  </form>
  
  <!--iamges.end-->
 </div>
 <!--4.end-->
</div>

<%if anysale.isAdmin or isbbsMaster then%>
<div class="line5"></div>
<div class="bodyer">
 <ul>
  <li class="right f14">
   <%if rslist("iselite")=0 then%>
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistElite&amp;ID=<%=ID%>&amp;channelID=<%=channelID%>&amp;value=1')">推荐</a> |
   <%else%>
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistElite&amp;ID=<%=ID%>&amp;channelID=<%=channelID%>&amp;value=0')">取消推荐</a> |
   <%end if%>
   
   <%if rslist("istop")=0 then%>
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistTop&amp;ID=<%=ID%>&amp;channelID=<%=channelID%>&amp;value=1')">固顶</a> |
   <%else%>
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistTop&amp;ID=<%=ID%>&amp;channelID=<%=channelID%>&amp;value=0')">取消固顶</a> |
   <%end if%>

   <%if rslist("isbest")=0 then%>
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistBest&amp;userID=<%=rslist("userID")%>&amp;ID=<%=ID%>&amp;channelID=<%=channelID%>&amp;value=1')">精华</a> |
   <%else%>
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistBest&amp;userID=<%=rslist("userID")%>&amp;ID=<%=ID%>&amp;channelID=<%=channelID%>&amp;value=0')">取消精华</a> |
   <%end if%>
   
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistLock&amp;ID=<%=ID%>&amp;channelID=<%=channelID%>')">锁定</a> |
   <a href="javascript:anysale();" onclick="getPage('windows.asp?action=bbslistDel&amp;bbsID=<%=ID%>&amp;isbest=<%=rslist("isbest")%>&amp;userID=<%=rslist("userID")%>&amp;channelID=<%=channelID%>')">删除</a>
  </li>
 </ul>
</div>
<%end if%>

<%
anysale.footer
end if
rslist.close
set rslist=nothing

'版主权限(编号)
function bbsMaster(ID)
	dim rs,rspath,parentStr,i,attribute
	set rs=conn.execute("select parentStr,attribute from as_channel where channelID="&ID)
	if not (rs.eof and rs.bof) then
		parentStr=split(rs(0),",")
		for i=0 to UBound(parentStr)
			set rspath=conn.execute("select attribute from as_channel where channelID="&parentStr(i))
			if not (rspath.eof and rspath.bof) then
				attribute=split(rspath(0),"|||")
				bbsMaster=bbsMaster+attribute(0)&","
			end if
		next
		rspath.close
		set rspath=nothing
		attribute=split(rs(1),"|||")
		bbsMaster=bbsMaster+attribute(0)
	end if
	rs.close
	set rs=nothing
end function

call closeConn()
%>