say.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

			If lcase(BBS94KK.MyName)=lcase(rs("name")) And TopicRs(3,0) Then BBS94KK.GoToErr(12)
		End If
		BbsCaption=rs("Caption")
		IF BbsCaption<>"" Then Hell(BbsCaption)
		IF Rs("TopicID")=0 Then
			IsTitle=False
			bbsCaption="<input type=hidden name='caption' value='"&BbsCaption&"'>编辑回复帖"
		Else 
			bbsCaption="<input name='caption' type=text value='"&bbsCaption&"' size=70 maxlength=200>"
		End IF
		BbsContent=hell(rs("Content"))
	End if
	Rs.Close
	BBS94KK.Stats="编辑帖子"
	Caption=BBS94KK.Stats
	Submiturl="SaySave.asp?Action=Edit&ID="&ID&"&BbsID="&BbsID&"&BoardID="&BBS94KK.BoardID&"&TB="&BBS94KK.TB&"&page="&page&""
End Sub
Function Hell(str)
		dim re
		Set re=new RegExp
		re.IgnoreCase=true
		re.Global=True
		re.Pattern=vbcrlf&vbcrlf&vbcrlf&"(\[right\])(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])(\[\/right\])"
		str=re.Replace(str," ")
		str = replace(str, ">", "&gt;")
		str = replace(str, "<", "&lt;")
		set re=Nothing
		Hell=str
End function
Function QuoteCode(str)
		Dim re,restr
		Set re=new RegExp
		re.IgnoreCase=true
		re.Global=True
		restr="[COLOR=RED]…… 加密内容不能引用 ……[/COLOR]"
		re.Pattern="(\[DATE=(.[^\[]*)\])(.+?)(\[\/DATE\])"
		str=re.Replace(str,restr)
		re.Pattern="(\[SEX=*([0-1]*)\])(.+?)(\[\/SEX\])"
		str=re.Replace(str,restr)
		re.Pattern="(\[COIN=*([0-9]*)\])(.+?)(\[\/COIN\])"
		str=re.Replace(str,restr)		
		re.Pattern="(\[USERNAME=(.[^\[]*)\])(.+?)(\[\/USERNAME\])"
		str=re.Replace(str,restr)	
		re.Pattern="(\[GRADE=*([0-9]*)\])(.+?)(\[\/GRADE\])"
		str=re.Replace(str,restr)	
		re.Pattern="(\[MARK=*([0-9]*)\])(.+?)(\[\/MARK\])"		
		str=re.Replace(str,restr)
		re.Pattern="(\[BUYPOST=*([0-9]*)\])(.+?)(\[\/BUYPOST\])"
		str=re.Replace(str,restr)
		re.Pattern=vbcrlf&vbcrlf&vbcrlf&"(\[RIGHT\])(\[COLOR=(.[^\[]*)\])(.[^\[]*)(\[\/COLOR\])(\[\/RIGHT\])"
		str=re.Replace(str,"")
		Str = Replace(Str, chr(10), "")
		re.Pattern="(\[reply\])(.+?)(\[\/reply\])"
		str=re.Replace(str,restr)	
		set re=Nothing
		QuoteCode=str
End Function
Function ShowMain()
	Dim Temp,Face,I
	Temp="<form  style='margin:0;' method=POST name='kk' onsubmit='if(content.value==""""){alert(""呵呵，您还没有填写帖子内容!"");content.focus();return (false);};if(caption.value==""""){alert(""呵呵，您忘了填写标题啦！"");caption.focus();return (false);};"
	If BBS94KK.BbsCache(11)=0 then Temp=Temp&"if(CheckCode.value==""""){alert(""呵呵，您还没有填写验证码！"");CheckCode.focus();return (false);};"
	Temp=Temp&"' action='"&Submiturl&"' >"
	If IsTitle Then
		Temp=Temp&"<tr><td width='24%'  height='30'><b>&nbsp;帖子主题：</b><select name=Title onChange=DoTitle(this.options[this.selectedIndex].value) style='font-size: 9pt'><option selected value="""">话题</option><option value=[原创]>[原创]</option><option value=[转帖]>[转帖]</option><option value=[灌水]>[灌水]</option><option value=[讨论]>[讨论]</option><option value=[求助]>[求助]</option><option value=[推荐]>[推荐]</option><option value=[公告]>[公告]</option><option value=[注意]>[注意]</option><option value=[贴图]>[贴图]</option><option value=[建议]>[建议]</option><option value=[下载]>[下载]</option><option value=[分享]>[分享]</option></select></td><td>"
	Else
		Temp=Temp&"<tr><td colspan=2 height='30'>"
	End If
	Temp=Temp&"&nbsp;"&bbsCaption&"</td></tr>"
	Temp=Temp&Quote&"<tr><td width='24%'>&nbsp;<b>你的表情：</b><br>&nbsp;在帖子前面</td><td>"
	Face="&nbsp;<input name=face type=radio value=1 checked><img src=pic/face/1.gif border=0 align='absmiddle'>&nbsp;"
	For i=2 to 18
	Face=Face&"<input type=radio value="&i&" name=face><img border=0 align='absmiddle' src='pic/face/"&i&".gif' >&nbsp;"
	if i=9 then Face=Face&"<br>&nbsp;"
	next
	Temp=Temp&Face&"</td></tr>"&bbsVote&"<tr><td>&nbsp;<b>附件上传类型：</b><br>&nbsp;"&Join(BBS94KK.UploadType,",")&"</td><td>"
	If (BBS94KK.BbsCache(7)=2 And Not BBS94KK.MyIsVip) And BBS94KK.MyAdmin<>1 Then
	Temp=Temp&"本论坛的上传功能只对VIP会员开放。<br>"
	ElseIf BBS94KK.BbsCache(7)=0 then
	Temp=Temp&"本论坛暂时关闭上传功能。<br>"
	Else
		Temp=Temp&"<div id='link'>&nbsp;<input type=button value=""上传附件"" onclick=""javascript:up.style.display='block';upf.location.href='UploadFile.asp';link.style.display='none'""> [每日您可以上传 <font color=blue>"&BBS94KK.BbsCache(8)&"</font> 个 小于 <font color=blue>"&BBS94KK.BbsCache(9)&"</font> KB / 每个]</div>"
		Temp=Temp&"<div id='up' style='display:none'><iframe id='upf' scrolling='no' frameborder='0' height='22' width='100%'></iframe></div>"
	End if
	Temp=Temp&"</td></tr><tr><td valign='top'><table width='100%'  border='0' cellpadding='0' cellspacing='4'><tr><td colspan='2'><b>帖子内容：</b></td></tr>"
	Temp=Temp&"<tr><td rowspan='5' width=10 ></td><td>HTML标签：<font color=red>×</font></td></tr><tr><td>UBB标签： <font color=red>√</font></td></tr><tr><td>表情符转换：<font color=red>√</font></td></tr><tr><td>内容最多：<font color=red>30KB</font></td></tr><tr><td>上传文件：<font color=red>√</font></td> </tr><tr><td rowspan='4' width='10'></td><td>发帖请遵守国家法律 </td></tr><tr> <td>禁止发表政治及色情内容</td></tr><tr><td>禁止发灌水的“付费帖子”</td></tr><tr><td>以上发现将删除帐号ID</td></tr></table></td>"
	Temp=Temp&"<td width='76%' valign='top'><table border='0' cellpadding='0' cellspacing='3'  width='100%'><tr><td colspan='2'><select onChange=""if(this.options[this.selectedIndex].value!=''){ybbsize(this.options[this.selectedIndex].value);this.options[0].selected=true;}"">"
	Temp=Temp&"<option selected>文字大小</option><option value=1>1号字</option><option value=2>2号字</option><option value=3>3号字</option><option value=4>4号字</option></select> "
	Temp=Temp&"<select onChange=""if(this.options[this.selectedIndex].value!=''){COLOR(this.options[this.selectedIndex].value);this.options[0].selected=true;}""><option>文字颜色</option><option style='COLOR:000000;BACKGROUND-COLOR:000000' value=000000>黑色</option><option style='COLOR:FFFFFF;BACKGROUND-COLOR:FFFFFF' value=FFFFFF>白色</option><option style='COLOR:008000;BACKGROUND-COLOR:008000' value=008000>绿色</option><option style='COLOR:800000;BACKGROUND-COLOR:800000' value=800000>褐色</option><option style='COLOR:808000;BACKGROUND-COLOR:808000' value=808000>橄榄色</option><option style='COLOR:000080;BACKGROUND-COLOR:000080' value=000080>深蓝色</option><option style='COLOR:800080;BACKGROUND-COLOR:800080' value=800080>紫色</option>"&_
			"<option style='COLOR:808080;BACKGROUND-COLOR:808080' value=808080>灰色</option><option style='COLOR:FFFF00;BACKGROUND-COLOR:FFFF00' value=FFFF00>黄色</option><option style='COLOR:00FF00;BACKGROUND-COLOR:00FF00' value=00FF00>浅绿色</option><option style='COLOR:00FFFF;BACKGROUND-COLOR:00FFFF' value=00FFFF>浅蓝色</option><option style='COLOR:FF00FF;BACKGROUND-COLOR:FF00FF' value=FF00FF>粉红色</option><option style='COLOR:C0C0C0;BACKGROUND-COLOR:C0C0C0' value=C0C0C0>银白色</option><option style='COLOR:FF0000;BACKGROUND-COLOR:FF0000' value=FF0000>红色</option><option style='COLOR:0000FF;BACKGROUND-COLOR:0000FF' value=0000FF>蓝色</option><option style='COLOR:008080;BACKGROUND-COLOR:008080' value=008080>蓝绿色</option></select> "
	Temp=Temp&"<select onChange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;this.options[0].selected=true;}"" name=sptie>"
	Temp=Temp&"<option selected>特殊贴↓</option><option value=javascript:Grade()>等级可见</option>+<option value=javascript:Especial(""[REPLY]"",""[/REPLY]"")>回复可见</option><option value=javascript:Name()>指定读者</option><option value=javascript:Coin()>金钱可见</option><option value=javascript:Mark()>积分可见</option><option value=javascript:Buypost()>付费可见</option><option value=javascript:Showdate()>日期可见</option><option value=javascript:Sex()>性别可见</option><option value=javascript:Especial(""[LOGIN]"",""[/LOGIN]"")>登陆可见</option></select> <input type=button value=插入代码 Class=Butt onClick=Code()> <input type=button value=上标 Class=Butt onClick=Especial('[sup]','[/sup]')> <input type=button value=下标 Class=Butt onClick=Especial('[sub]','[/sub]')>  <input type=button value='字数检查' Class=Butt onClick=checklength(document.kk) >"
	Temp=Temp&"</td></tr><tr><td colspan='2'><img onClick=Cbold() src=""Pic/Ubb/U_1.gif""  border=0 alt=粗体字> <img src=""Pic/Ubb/U_2.gif"" onClick=Citalic() border=0 alt=斜体字 > <img src=""Pic/Ubb/U_3.gif"" onClick=Cunder() border=0 alt=下划线> "&_
			"<img src=""Pic/Ubb/U_4.gif"" onClick=center() border='0' alt='居中'> <img src=""Pic/Ubb/U_5.gif"" onClick=fly() border=0 alt=飞行字> <img src=""Pic/Ubb/U_6.gif"" onClick=move() border=0 alt=移动字> <img src=""Pic/Ubb/U_7.gif"" onClick=LIGHT() border=0 alt=发光字> <img src=""Pic/Ubb/U_8.gif"" onClick=ying() border=0 alt=阴影字> <img src=""Pic/Ubb/U_9.gif"" onClick=Curl() border='0' alt='超连接'> <img src=""Pic/Ubb/U_10.gif"" onClick=Cemail() border='0' alt='Email连接'> <img src=""Pic/Ubb/U_11.gif"" onClick=showpic() border='0' alt='更多的心情图片'> <img src=""Pic/Ubb/U_12.gif"" onClick=image() border=0 alt=图片> <img src=""Pic/Ubb/U_13.gif"" onClick=swf() border=0 alt=Flash动画 > <img onClick=Cwmv()  src=""Pic/Ubb/U_14.gif"" border=0 alt='Media Player视频文件'> <img src=""Pic/Ubb/U_15.gif"" onClick=Crm() border=0 alt=realplay视频文件>  <img onClick=Csound() src=""Pic/Ubb/U_16.gif"" border='0' alt='插入背景音乐'> </td></tr>"
	Temp=Temp&"<tr><td width='95%'><TEXTAREA name='content'  cols=90 rows='11' style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px;WIDTH: 100%;' onkeydown=presskey();>"&BbsContent&"</textarea></td>"&_
	"<td width='5%' valign='top'><input type='button' style='BACKGROUND: url(Images/plus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(3,this.form.content)' ><br><br><input type='button' style='BACKGROUND: url(Images/minus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(-3,this.form.content)'></td>"&_
	"</tr></table></td></tr><tr><td height='40' colspan='2' align='center'>"
	If Action="edit" And (BBS94KK.MyAdmin=1 or BBS94KK.MyAdmin=2 or BBS94KK.MyAdmin=3) Then Temp= Temp & "<input name='EditChalk' type='checkbox' value='No'>不留下编辑标记 "
	If BBS94KK.BbsCache(11)=0 Then Temp=Temp&"验证码：<input  type=text name='CheckCode' size=8><img align='absmiddle' Src=Inc/code.asp> "
	Temp=Temp&"&nbsp;<input type=submit value=' 发 表！'> <input type=button value=' 预 览 ' onclick=openwin()> <input type=reset value=' 重 写 '> <input type=button value='剪贴板内容转换' onclick=""window.open('pic/html2ubb.htm',null,'Height=450,Width=640,resizable=0,status=0,scrollbar=0')"">" 
	Temp=Temp&"<font color=#D8D8D8></font></td></tr></form>"
	Call BBS94KK.ShowTable(Caption,Temp)
	Response.Write"<div id='MaoDiv' style='position: absolute; width:570px; height:160px; display:none;'><iframe id='MView' name='MView' src='about:blank' frameborder='0' scrolling='no' valign='top' width='100%' height='100%'></iframe></div><form  style='margin:0;' name=preview action=See.asp?Action=preview method=post target=preview><input type=hidden name=caption value=><input type=hidden name=content value=></form>"
End Function
%>