?? ubbcode.asp

?? 一個(gè)ASP做的論壇
?? ASP
?? 第 1 頁 / 共 4 頁
字號:
12 3 4 下一頁
<%
'入口參數(shù):strContent內(nèi)容，PostUserGroup用戶組ID，PostType使用類型（1表示帖子，2表示公告，3表示短信）
function DvBCode(strContent,PostUserGroup,PostType)
'HTML Code
if PostType=3 or PostType=2 then
	redim Board_Setting(23)
	Board_Setting(6)=1
	Board_Setting(5)=0:Board_Setting(7)=1
	Board_Setting(8)=1:Board_Setting(9)=1
	Board_Setting(10)=0:Board_Setting(11)=0
	Board_Setting(12)=0:Board_Setting(13)=0
	Board_Setting(14)=0:Board_Setting(15)=0
	Board_Setting(23)=0
end if
if Cint(Board_Setting(5)) <> 1 then
	strContent = dvHTMLEncode(strContent)
else
	strContent = HTMLcode(strContent)
end if
'UbbCode
if Cint(Board_Setting(6))<>1 and PostUserGroup>2 then
	DvBCode=strContent
	exit function
end if
dim re
dim po,ii,iii
dim SplitBuyUser,iPostBuyUser
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0

dim AlertFontColor
AlertFontColor="#000000"
re.Pattern="(\/惡心)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"忽然覺得一陣惡心，哇啦哇啦地吐了一地……</b></font><img src=dongz/043.gif border=0 align=middle>")
re.Pattern="(\/高興)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"高興地跳了起來。</b></font><img src=dongz/046.gif border=0 align=middle>")
re.Pattern="(\/招呼)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"逢人就打招呼：大家好，大家好，偶終于找到組織了。藝雅的朋友，我愛你們！</b></font><img src=dongz/05.gif border=0 align=middle>")
re.Pattern="(\/歡迎)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &":高興的叫道：歡迎、歡迎、熱烈歡迎～～</b></font><img src=dongz/085.gif border=0 align=middle>")
re.Pattern="(\/灌水)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"嚷道：“新來的，別亂欺負(fù)哦，灌水先”</b></font><img src=dongz/034.gif border=0 align=middle>")
re.Pattern="(\/無聊)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"拿出一張鈔票：“好無聊啊，誰要陪我灌水？” </b></font><img src=dongz/01.gif border=0 align=middle>")
re.Pattern="(\/負(fù)責(zé))"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"哭著說：“都這樣了，555，你可要對我負(fù)責(zé)呀！”嗚～～</b></font><img src=dongz/02.gif border=0 align=middle>")
re.Pattern="(\/生氣)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"撅了撅嘴說：“氣死我了呀！呀！呀！”</b></font><img src=dongz/03.gif border=0 align=middle>")
re.Pattern="(\/鼓掌)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"鼓掌喝采“好ＹＥ！好ＹＥ！”</b></font><img src=dongz/06.gif border=0 align=middle>")
re.Pattern="(\/等待)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"悲傷的唱到：“你知不知道，你知不知道？我等到花兒也謝了...” </b></font><img src=dongz/07.gif border=0 align=middle>")
re.Pattern="(\/反對)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"說：<img src=dongz/08.gif border=0 align=middle>不行！我堅(jiān)決反對！</b></font>")
re.Pattern="(\/浪漫)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"像羅密歐與朱麗葉式的吹起曲子來“我悄悄地蒙上你的眼睛，讓你猜猜我是誰？” </b></font><img src=dongz/019.gif border=0 align=middle>")
re.Pattern="(\/不要)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"擺了擺手，說：“不要呀！” </b></font><img src=dongz/010.gif border=0 align=middle>")
re.Pattern="(\/找死)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"說：跟我斗，你還嫩著哩；剛練成的無筋腿，拿你試試先！</b></font><img src=dongz/023.gif border=0 align=middle>")
re.Pattern="(\/去死)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"說：嘿嘿，你去死吧！</b></font><img src=dongz/011.gif border=0 align=middle>")
re.Pattern="(\/狂笑)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"仰天狂笑<img src=dongz/012.gif border=0 align=middle>“普天之下，竟然沒有我的對手...”</b></font>")
re.Pattern="(\/傻笑)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>西西、禾禾～～ 突然笑了起來.. </b></font><img src=dongz/031.gif border=0 align=middle>")
re.Pattern="(\/痛哭)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"鼻子一酸，開始叭嗒叭嗒掉眼淚了…… </b></font><img src=dongz/013.gif border=0 align=middle>")
re.Pattern="(\/道別)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"向在場的所有人道：“小生先行告退，后會(huì)有期。” </b></font><img src=dongz/015.gif border=0 align=middle>")
re.Pattern="(\/跳舞)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"樂地手舞足蹈！</b></font><img src=dongz/017.gif border=0 align=middle>")
re.Pattern="(\/失望)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"低下頭，神情失望極了。</b></font><img src=dongz/018.gif border=0 align=middle>")
re.Pattern="(\/唱歌)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"清清嗓子唱起歌來：東方紅，太陽升…… </b></font><img src=dongz/09.gif border=0 align=middle>")
re.Pattern="(\/害羞)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"害羞地臉都紅了，恨沒有地洞，好鉆進(jìn)去躲起來~~ </b></font><img src=dongz/020.gif border=0 align=middle>")
re.Pattern="(\/比酷)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &":擺了個(gè)ＰＯＳＥ道：“你、你、你沒我酷..” </b></font><img src=dongz/021.gif border=0 align=middle>")
re.Pattern="(\/救命)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"大叫：狼來了！狼來了！救命啊！救命啊！</b></font><img src=dongz/022.gif border=0 align=middle>")
re.Pattern="(\/狂妄)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &":劍眉一軒，冷冷的瞥了一眼，背轉(zhuǎn)身淡淡說道：你，不是我的，對手！</b></font><img src=dongz/025.gif border=0 align=middle>")
re.Pattern="(\/拳擊)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"叫道:這位仁兄身材好有型哦！給我練拳不？</b></font><img src=dongz/026.gif border=0 align=middle>")
re.Pattern="(\/我踢)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"說：我踢、我踢、我踢死你 </b></font><img src=dongz/029.gif border=0 align=middle>")
re.Pattern="(\/我踩)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"大叫：我踩、我踩、踩死樓上的，踩扁樓下的！</b></font><img src=dongz/027.gif border=0 align=middle>")
re.Pattern="(\/饒命)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"大喊：老婆！你就饒了我吧！</b></font><img src=dongz/028.gif border=0 align=middle>")
re.Pattern="(\/眨眼)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"天真地眨了眨眼睛！一對會(huì)說話的眼睛閃閃動(dòng)人^)^ </b></font><img src=dongz/032.gif border=0 align=middle>")
re.Pattern="(\/臭美)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"嚷道：“你當(dāng)你是誰呀，你以為你是劉德華呀？” </b></font><img src=dongz/033.gif border=0 align=middle>")
re.Pattern="(\/變態(tài))"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"對僂上的說：“你真的好變態(tài)哦”</b></font><img src=dongz/037.gif border=0 align=middle>")
re.Pattern="(\/拼酒)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"說：“什么時(shí)候咋倆拼拼酒啊。” </b></font><img src=dongz/038.gif border=0 align=middle>")
re.Pattern="(\/深情)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"深情地唱道：我早已為你種下，九百九十九朵玫瑰.. </b></font><img src=dongz/042.gif border=0 align=middle>")
re.Pattern="(\/驚訝)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"驚訝得兩眼瞪得賊大！</b></font><img src=dongz/044.gif border=0 align=middle>")
re.Pattern="(\/抽煙)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"從煙缸中揀出個(gè)煙屁股，用兩根手指夾著點(diǎn)著了，瞇起眼睛狂嘬幾口。</b></font><img src=dongz/045.gif border=0 align=middle>")
re.Pattern="(\/懷疑)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"抓了抓頭皮，問道：“有這回事嗎？” </b></font><img src=dongz/047.gif border=0 align=middle>")
re.Pattern="(\/拉勾)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"對樓上的說：我們<img src=dongz/050.gif border=0 align=middle>就不許反悔了。</b></font>")
re.Pattern="(\/經(jīng)典)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"呢喃道：“好久沒見過這么經(jīng)典的東東了。”</b></font><img src=dongz/051.gif border=0 align=middle>")
re.Pattern="(\/同意)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"說：“你們都對，行了吧！￣”</b></font><img src=dongz/052.gif border=0 align=middle>")
re.Pattern="(\/ＯＫ)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"怪腔怪調(diào)地說：“ＯＫ啦！～”</b></font><img src=dongz/084.gif border=0 align=middle>")
re.Pattern="(\/kiss)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"<img src=dongz/053.gif border=0 align=middle>小孩子不要偷看！</b></font>")
re.Pattern="(\/生日)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"豬你生日快樂！</b></font><img src=dongz/055.gif border=0 align=middle>")
re.Pattern="(\/暈倒)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"突然覺得天昏地暗，一聲“我要暈了”后就倒下了！</b></font><img src=dongz/056.gif border=0 align=middle>")
re.Pattern="(\/氣你)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"對樓上的說：“哈哈，我氣死你。”</b></font><img src=dongz/058.gif border=0 align=middle>")
re.Pattern="(\/錯(cuò)啦)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"說：“又搞錯(cuò)啦！”</b></font><img src=dongz/059.gif border=0 align=middle>")
re.Pattern="(\/加油)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"內(nèi)心在默默地喊著加油。</b></font><img src=dongz/060.gif border=0 align=middle>")
re.Pattern="(\/恭喜)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"恭喜、賀喜<img src=dongz/061.gif border=0 align=middle>什么時(shí)候請吃酒啊？</b></font>")
re.Pattern="(\/簡單)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"<img src=dongz/063.gif border=0 align=middle>抓了抓腦袋道：喔，原來這么簡單呀？！</b></font>")
re.Pattern="(\/加油)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"內(nèi)心在默默地喊著加油。</b></font><img src=dongz/063.gif border=0 align=middle>")
re.Pattern="(\/鼓勵(lì))"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"揮著手說道：同志們辛苦了！</b></font><img src=dongz/064.gif border=0 align=middle>")
re.Pattern="(\/過獎(jiǎng))"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"拱了拱手道：<img src=dongz/065.gif border=0 align=middle>過獎(jiǎng)，過獎(jiǎng)！</b></font>")
re.Pattern="(\/原諒)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"&HTMLEncode(UserName) &"連哭帶喊跪在地上<img src=dongz/066.gif border=0 align=middle>叫道：你們大家再原諒我一次吧！</b></font>")
re.Pattern="(\/大笑)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"開懷大笑。</b></font><img src=dongz/067.gif border=0 align=middle>")
re.Pattern="(\/感動(dòng))"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"感動(dòng)極了，一行熱淚奪眶而出。</b></font><img src=dongz/069.gif border=0 align=middle>")
re.Pattern="(\/嘆氣)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"長嘆了一口氣那神情仿佛是在說：“我都是要進(jìn)棺材的人了，還在乎些什么？？！”</b></font>")
re.Pattern="(\/道謝)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"對在場的所有人鞠躬道謝！</b></font><img src=dongz/075.gif border=0 align=middle>")
re.Pattern="(\/搖頭)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"拼命地?fù)u搖頭, 一副很無辜的樣子。</b></font><img src=dongz/077.gif border=0 align=middle>")
re.Pattern="(\/點(diǎn)頭)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"同意地點(diǎn)了點(diǎn)頭。</b></font><img src=dongz/078.gif border=0 align=middle>")
re.Pattern="(\/擁抱)"
	strContent=re.Replace(strContent,"<br><font color="&AlertFontColor&"><b>"& HTMLEncode(UserName) &"張開雙臂來吧，小寶貝兒！讓叔叔抱！</b></font><img src=dongz/080.gif border=0 align=middle>")

re.Pattern="(javascript)"
strContent=re.Replace(strContent,"&#106avascript")
re.Pattern="(jscript:)"
strContent=re.Replace(strContent,"&#106script:")
re.Pattern="(js:)"
strContent=re.Replace(strContent,"&#106s:")
re.Pattern="(value)"
strContent=re.Replace(strContent,"&#118alue")
re.Pattern="(about:)"
strContent=re.Replace(strContent,"about&#58")
re.Pattern="(file:)"
strContent=re.Replace(strContent,"file&#58")
re.Pattern="(document.cookie)"
strContent=re.Replace(strContent,"documents&#46cookie")
re.Pattern="(vbscript:)"
strContent=re.Replace(strContent,"&#118bscript:")
re.Pattern="(vbs:)"
strContent=re.Replace(strContent,"&#118bs:")
re.Pattern="(on(mouse|exit|error|click|key))"
strContent=re.Replace(strContent,"&#111n$2")
12 3 4 下一頁
?? 文件大小 1300 K
?? 上傳用戶 RR15133422795
?? 所屬分類多國語言處理
??? 相關(guān)標(biāo)簽

#ASP #論壇
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ubbcode.asp

?? 快捷鍵說明
