bbsadd.asp

进入后台

	rs.update
	rs("bbsid")=rs("id")
	aid=rs("id")
	rs.update
	rs.Close
	rs.open "update bbsbm set lastuserid="&session("xyluserid")&",lastbbsid="&aid&",lastdate='"&now&"',lasttitle='"&atitle&"',todaycount=todaycount+1,bbscount=bbscount+1 where id="&bid&"",conn,1,3
	rs.open "update user set sitemoney=sitemoney+1 where id="&session("xyluserid")&"",conn,1,3
	Set rs = Nothing
	CloseConn
	a=obj.gourl("　本页面将在5秒后自动返回您所发表的帖子，可以继续选择以下操作：<br><br>　返回<A href='bbsbm.asp?bid="&bid&"'>["&bmname&"]</a>论坛版面<br><br>　到<A href='bbsview.asp?aid="&aid&"'>[刚发表的帖子]</a>","bbsview.asp?aid="&aid&"")
end sub
sub reply%>
<script language=javascript>
<!--
	var EFlag = 1;
	var ValidationPassed = true;
	function rightStr(str,n)
	{
		if(str.length<=n)
		{
			return(str);
		}
		{
			return(str.substr(str.length-n,n));
		}
	}
	
	function insertHTML2(html) {
			LEADEDT.focus();
			if (!validateMode()) return;
			if (LEADEDT.document.selection.type.toLowerCase() != "none")
				LEADEDT.document.selection.clear() ;
			LEADEDT.document.selection.createRange().pasteHTML(html) ; 
			LEADEDT.focus();
	}

	function addcontent(str1,str2)
	{
		if(EFlag == 1)
		{
			bbsadd.Form_Content.focus();
			if ((document.selection)&&(document.selection.type== "Text"))
			{
				var range= document.selection.createRange();
				var ch_text=range.text;
				range.text= str1 + ch_text + str2;
			} 
			else
			{
				document.bbsadd.Form_Content.value=document.bbsadd.Form_Content.value+str1+str2;
				bbsadd.Form_Content.focus();
			}
		}
		else{insertHTML2(str1+str2);return;}
	}
	function submitonce(theform)
	{
		var lg;
		if(EFlag == 1)
		{
			lg = theform.Form_Content.value.length
		}
		else
		{
			lg = LEADEDT.document.body.innerHTML.length;
		}
		if(lg > 16384)
		{
			alert("发表的内容超过了16384文字，目前长度" + lg + "文字\n");
			ValidationPassed = false;
			return;
		}
		else
		{
			ValidationPassed = true;
		}
		if (document.all||document.getElementById)
		{
			for (i=0;i<theform.length;i++)
			{
				var tempobj=theform.elements[i];
				if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
				tempobj.disabled=true;
			}
		}
	}

	function storeCaret (textEl)
	{
		if (textEl.createTextRange) 
		textEl.caretPos = document.selection.createRange().duplicate(); 
	}

	function checklength()
	{
		if(EFlag == 1)
		{
			alert("帖子内容长度: "+document.bbsadd.Form_Content.value.length+" 个字，\n最多允许16384字节。");
		}
		else
		{
			alert("帖子内容长度: "+LEADEDT.document.body.innerHTML.length+" 个字，\n最多允许16384字。");
		}
	}

	function ctlkey()
	{
		if(event.ctrlKey && window.event.keyCode==13){submitonce(document.bbsadd);if(ValidationPassed)document.bbsadd.submit();}
		if(event.altKey && (window.event.keyCode==83 || window.event.keyCode==115)){submitonce(document.bbsadd);if(ValidationPassed)document.bbsadd.submit();}
	}
	function changemode(mode)
	{
		submitonce(document.bbsadd);
		if(ValidationPassed == true)
		{
			document.bbsadd.LMT_DefaultEdit.value = mode;
			document.bbsadd.submit();
		}
	}
	var ie = (document.all)? true:false
	if (ie)
	{
		window.document.onkeydown=ctlkey;
	}
//-->
</script>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25" bgcolor="#CCCCCC"> 　<b>回复帖子</b></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="1" bgcolor="#FFFFFF"></td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="1" cellspacing="1" class="tableborder">
  <form name="bbsadd" method="post" action="?bid=<%=bid%>&aid=<%=aid%>&action=re2" onSubmit="submitonce(this);return ValidationPassed;">
  <tr bgcolor="#FFFBF7">
    <td width="109" height="25"><div align="center">表情：        </div></td>
    <td width="645" bgcolor="#FFFBF7"><%for i=1 to 18%>
	<input type="radio" name="bbsface" value="face<%=i%>.gif"<%if i=1 then response.write " checked" end if%>>
    <img src="skins/1/bbsface/face<%=i%>.gif">
	<%if i mod 9=0 then response.write "<br>"
	next%></td>
  </tr>
    <tr bgcolor="#F7F3F7">
    <td width="109" height="25"><div align="center">UBB标签：
      </div></td><td width="645" bgcolor="#F7F3F7"><a href="javascript:addcontent('[B]','[/B]');" title=粗体><img src="skins/1/bbsface/bold.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[I]','[/I]');" title=斜体><img src="skins/1/bbsface/italicize.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[U]','[/U]');" title=下划线><img src="skins/1/bbsface/underline.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[ALIGN=CENTER]','[/ALIGN]');" title=居中><img src="skins/1/bbsface/center.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[URL]','[/URL]');" title=链接><img src="skins/1/bbsface/url1.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[EMAIL]','[/EMAIL]');" title=邮件><img src="skins/1/bbsface/email1.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[IMGA]','[/IMGA]');" title=图片><img src="skins/1/bbsface/image.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[FLASH]','[/FLASH]');" title=Flash><img src="skins/1/bbsface/swf.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[CODE]','[/CODE]');" title=代码><img src="skins/1/bbsface/code.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[QUOTE]','[/QUOTE]');" title=引用><img src="skins/1/bbsface/quote1.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[FLY]','[/FLY]');" title=飞行><img src="skins/1/bbsface/fly.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[LIGHT]','[/LIGHT]');" title=闪烁文字><img src="skins/1/bbsface/light.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[GLOW=255,RED,2]','[/GLOW]');" title=发光><img src="skins/1/bbsface/glow.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[SHADOW=255,RED,2]','[/SHADOW]');" title=阴影><img src="skins/1/bbsface/shadow.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[SIZE=3]','[/SIZE]');" title=3号字><img src="skins/1/bbsface/size3.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[COLOR=blue]','[/COLOR]');" title=蓝色字><img src="skins/1/bbsface/blue.gif" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[COLOR=red]','[/COLOR]');" title=红色字><img src="skins/1/bbsface/red.GIF" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[MP=320,240]','[/MP]');" title=插入Media文件><img src="skins/1/bbsface/media.gif" width="20" height="20" align="absmiddle" border=0></a>
				<a href="javascript:addcontent('[RM=320,240]','[/RM]');" title=插入RealPlay文件><img src="skins/1/bbsface/real.gif" width="20" height="20" align="absmiddle" border=0></a>
			</td>
  </tr>
  <%repquote=request("repquote")
  if repquote<>"" then
		rs.open "select userid,cantent from [bbs] where id="&repquote&"",conn,1,1
		reContent=obj.GetReContent(rs("cantent"))
			If Len(reContent)>100 Then
					reContent = "[QUOTE][b]下面引用由[u]" & obj.getname(rs("userid"),1,SiteDatabase) & "[/u]发表的内容：[/b]" & VbCrLf & Left(reContent,100) & "...[/QUOTE]" & VbCrLf
				Else
					reContent = "[QUOTE][b]下面引用由[u]" & obj.getname(rs("userid"),1,SiteDatabase) & "[/u]发表的内容：[/b]" & VbCrLf &reContent & "[/QUOTE]" & VbCrLf
				End If
		rs.close
		End If%>
  <tr bgcolor="#FFFBF7">
    <td height="100" valign="top"><div align="center">内容：</div></td>
    <td bgcolor="#FFFBF7"><textarea name="Form_Content" cols="85" rows="15" id="Form_Content"><%=reContent%></textarea>
    <br>&nbsp;<INPUT tabIndex=3 type=submit value=发表帖子 name=submit>
    &nbsp;&nbsp;<INPUT tabIndex=5 type=reset value=清空内容 name=topicsreset>
     [完成后可按 Ctrl+Enter 发布]</td>
  </tr></form>
</table>
<br>
<%end sub
sub re2
Form_Content=request.form("Form_Content")
bbsface=obj.HtmlEncode(request.form("bbsface"))
if Form_Content="" or bbsface="" then ShowError("请将表单填写完整")
rs.open "select * from bbs where id="&aid&"",conn,1,3
if rs.eof or rs("lock")=1 then ShowError("帖子不存在或已被锁定")
rs("hf")=rs("hf")+1
rs("lastuserid")=session("xyluserid")
rs("lastdate")=now()
rs.update
atitle=rs("title")
rs.Close
rs.open "select * from bbs where 1=2",conn,1,3
	rs.addnew
	rs("content")=UBB_Code(obj.HtmlEncode(Form_Content))
	rs("cantent")=Form_Content
	rs("face")=bbsface
	rs("bbsbm")=bid
	rs("bbsid")=aid
	rs("laye")=1
	rs("userid")=session("xyluserid")
	rs("adddate")=now()
	rs("ip")=Request.ServerVariables("REMOTE_ADDR")
	rs.update
	rs.Close
	rs.open "update bbsbm set lastuserid="&session("xyluserid")&",lastbbsid="&aid&",lastdate='"&now&"',lasttitle='"&atitle&"',todaycount=todaycount+1,bbscount=bbscount+1 where id="&bid&"",conn,1,3
	rs.open "update user set sitemoney=sitemoney+1 where id="&session("xyluserid")&"",conn,1,3
	Set rs = Nothing
	CloseConn
	a=obj.gourl("　本页面将在3秒后自动返回您所回复的帖子，可以继续选择以下操作：<br><br>　返回<A href='bbsbm.asp?bid="&bid&"'>["&bmname&"]</a>论坛版面<br><br>　到<A href='bbsview.asp?aid="&aid&"'>[刚回复的帖子]</a>","bbsview.asp?aid="&aid&"")
end sub
call sitebottom%>
</body>
</html>