bbspost.asp

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

				
					conn.execute("update as_channel set attribute='"&newAttribute&"' where channelID="&parentStr(i))
				end if
			next
			rspath.close
			set rspath=nothing
		end if
		rsc.close
		set rsc=nothing
		
		upID=anysale.getValue("as_bbs","bbsID","userID="&anysale.userID&" order by bbsID desc")
		conn.execute("update as_upfile set ID="&clng(upID)&" where userID="&anysale.userID&" and [group]=8 and ID=0")
		
		response.write"<div class=""line25"" style=""padding:20px 50px;""><div><a href=""bbs.asp"">返回论坛</a></div><div><a href=""bbslist.asp?channelID="&channelID&""">返回目录</a></div><div><a href=""bbsdetail.asp?ID="&rootID&""">"&request("title")&"</a></div></div>"
	case else
		if anysale.userID="" then call anysale.asNote("未登录或登录超时","你未登录或登录超时，请登录后再进行相关操作。") end if
		title="发表帖子"
		bbsEmot="images/emot/emot1.gif"
		subAct="Add"
		parentID=0
		
		if cint(anysale.asGroups(32))=0 then
			anysale.errWin("<li>你所在的用户组没有发布帖子的权限。</li>")
		elseif cint(anysale.asGroups(33))>0 and cint(anysale.userInfo(8))>=cint(anysale.asGroups(33)) then
			anysale.errWin("<li>你所在的用户组已超过发布帖子"&cint(anysale.asGroups(33))&"条的总数。</li>")
		else
			call main()
		end if
end select

sub main()
call anysale.header("bbs",title &" - "& anysale.nav("channel",channelID,2,"")&"行业论坛",anysale.asInfo(3),anysale.asInfo(4))
%>
<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;<%=title%></li></ul>
 </div>  
 <!--1.end-->
</div>

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

<div class="bodyer">
 <!--2-->
 
 <div class="tab" style="width:948px;">
  <div class="tabList">
   <ul><li class="line30"><h2>&nbsp;&nbsp;<%=title%></h2></li></ul>
  </div>
  
  <form name="bbsForm" id="bbsForm" method="post">
  <div class="list line30" id="saveBbs">
   <ul><li>&nbsp;</li></ul>
   <ul>
    <li class="name txtRig"><span class="red">*</span> 主题：</li>
	<li class="intro">
     <select name="front">
      <option value="">选择话题</option>
	  <option value="[原创]"<%if bbsFront="[原创]" then%> selected="selected"<%end if%>>[原创]</option>
	  <option value="[转帖]"<%if bbsFront="[转帖]" then%> selected="selected"<%end if%>>[转帖]</option>
	  <option value="[灌水]"<%if bbsFront="[灌水]" then%> selected="selected"<%end if%>>[灌水]</option>
	  <option value="[讨论]"<%if bbsFront="[讨论]" then%> selected="selected"<%end if%>>[讨论]</option>
	  <option value="[求助]"<%if bbsFront="[求助]" then%> selected="selected"<%end if%>>[求助]</option>
	  <option value="[推荐]"<%if bbsFront="[推荐]" then%> selected="selected"<%end if%>>[推荐]</option>
	  <option value="[公告]"<%if bbsFront="[公告]" then%> selected="selected"<%end if%>>[公告]</option>
	  <option value="[注意]"<%if bbsFront="[注意]" then%> selected="selected"<%end if%>>[注意]</option>
	  <option value="[贴图]"<%if bbsFront="[贴图]" then%> selected="selected"<%end if%>>[贴图]</option>
	  <option value="[建议]"<%if bbsFront="[建议]" then%> selected="selected"<%end if%>>[建议]</option>
	  <option value="[下载]"<%if bbsFront="[下载]" then%> selected="selected"<%end if%>>[下载]</option>
	  <option value="[分享]"<%if bbsFront="[分享]" then%> selected="selected"<%end if%>>[分享]</option>
     </select>
	 <input type="text" name="title" id="bbsTitle" class="inpWidth" value="<%=bbsTitle%>" onblur="check('主题',this.value,'bbsTitleNote',0,0,1,200)" />
	</li>
	<li class="value"><span class="note" id="bbsTitleNote"></span></li>
   </ul>
   <ul>
    <li class="name txtRig">当前心情：</li>
    <li class="left">
	<%
	dim emot,imgUrl,imgFiles,i
	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 10=0 then response.write"<br />"
	next%>
	</li>
   </ul>
   <ul>
    <li class="name txtRig"><span class="red">*</span> 内容：</li>
    <li class="left">
     <textarea name="detail" id="bbsDetails" style="display:none"><%=bbsDetail%></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>
   <%if parentID=0 then%>
   <ul>
    <li class="name txtRig">关键字：</li>
    <li class="value"><input type="text" name="tags" id="bbsTags" class="inpWidth" value="<%=bbsTags%>" maxlength="250" onblur="check('关键字',this.value,'bbsTagsNote',1,0,1,250)" /></li>
    <li><span class="note" id="bbsTagsNote">多个关键字用,号隔开</span></li>
   </ul>
   <%end if%>
   <ul>
    <li class="name txtRig">&nbsp;</li>
	<li class="value"><%if action="" then%><input name="toarticle" type="checkbox" value="1" /> 推荐到文章资料<%end if%></li>
   </ul>

   <ul>
    <li class="name">&nbsp;</li>
    <li>
	 <input type="button" name="button" value="确 定" 
	 onclick="if(
	 check('主题',$('bbsTitle').value,'bbsTitleNote',0,0,1,200) &&
	 <%if parentID=0 then%>check('关键字',$('bbsTags').value,'bbsTagsNote',1,0,1,250) &&<%end if%>
	 check('内容',$('bbsDetails').value,'bbsDetailsNote',0,0,1)
	 ){getPage('bbspost.asp?action=save<%=subAct%>','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="parentID" value="<%=parentID%>" />
	 <input type="hidden" name="page" value="<%=clng(request("page"))%>" />
    </li>
   </ul>
   <ul><li class="name">&nbsp;</li><li class="note">&nbsp;</li></ul>
  </div>
  </form>

 </div>
 
 <!--2.end-->
</div>

<%
anysale.footer
end sub

call closeConn()
%>