亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? ubbcode.asp

?? 電子書下載系統 后臺管理：admin/index.asp 超級用戶：admin 密碼：admin 請在db/usre.asp,admin/usres更新數據庫地址,防止他人下載。 建議把.
?? ASP
?? 第 1 頁 / 共 2 頁
字號: 
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_ALIGN=strContent
end function

function UBB_FLY(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[FLY\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "FLY" & chr(2))
		re.Pattern="\[\/FLY\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/FLY" & chr(2))
			re.Pattern="\x01FLY\x02(.[^\x01]*)\x01\/FLY\x02"
			strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_FLY=strContent
end function

function UBB_MOVE(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[MOVE\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "MOVE" & chr(2))
		re.Pattern="\[\/MOVE\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/MOVE" & chr(2))
			re.Pattern="\x01MOVE\x02(.[^\x01]*)\x01\/MOVE\x02"
			strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$1</marquee>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_MOVE=strContent
end function

function UBB_CENTER(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[CENTER\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "CENTER" & chr(2))
		re.Pattern="\[\/CENTER\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/CENTER" & chr(2))
			re.Pattern="\x01CENTER\x02(.[^\x01]*)\x01\/CENTER\x02"
			strContent=re.Replace(strContent,"<div align=center>$1</div>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_CENTER=strContent
end function

function UBB_SHADOW(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "SHADOW=$1,$2,$3" & chr(2))
		re.Pattern="\[\/SHADOW\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/SHADOW" & chr(2))
			re.Pattern="\x01SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\x02(.[^\x01]*)\x01\/SHADOW\x02"
			strContent=re.Replace(strContent,"<table width=$1><tr><td style=""filter:shadow(color=$2, strength=$3)"">$4</td></tr></table>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_SHADOW=strContent
end function

function UBB_GLOW(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "GLOW=$1,$2,$3" & chr(2))
		re.Pattern="\[\/GLOW\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/GLOW" & chr(2))
			re.Pattern="\x01GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\x02(.[^\x01]*)\x01\/GLOW\x02"
			strContent=re.Replace(strContent,"<table width=$1><tr><td style=""filter:glow(color=$2, strength=$3)"">$4</td></tr></table>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_GLOW=strContent
end function

function UBB_I(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[I\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "I" & chr(2))
		re.Pattern="\[\/I\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/I" & chr(2))
			re.Pattern="\x01I\x02(.[^\x01]*)\x01\/I\x02"
			strContent=re.Replace(strContent,"<i>$1</i>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_I=strContent
end function

function UBB_U(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[U\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "U" & chr(2))
		re.Pattern="\[\/U\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/U" & chr(2))
			re.Pattern="\x01U\x02(.[^\x01]*)\x01\/U\x02"
			strContent=re.Replace(strContent,"<u>$1</u>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_U=strContent
end function

function UBB_B(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[B\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "B" & chr(2))
		re.Pattern="\[\/B\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/B" & chr(2))
			re.Pattern="\x01B\x02(.[^\x01]*)\x01\/B\x02"
			strContent=re.Replace(strContent,"<b>$1</b>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_B=strContent
end function

function UBB_SIZE(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[SIZE=([1-7])\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "SIZE=$1" & chr(2))
		re.Pattern="\[\/SIZE\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/SIZE" & chr(2))
			re.Pattern="\x01SIZE=([1-7])\x02(.[^\x01]*)\x01\/SIZE\x02"
			strContent=re.Replace(strContent,"<font size=$1>$2</font>")
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_SIZE=strContent
end function

function UBB_QUOTE(strText)
	dim strContent
	dim re,Test
	
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	strContent=strText
	re.Pattern="\[QUOTE\]"
	Test=re.Test(strContent)
	if Test then
		strContent=re.replace(strContent, chr(1) & "QUOTE" & chr(2))
		re.Pattern="\[\/QUOTE\]"
		Test=re.Test(strContent)
		if Test then
			strContent=re.replace(strContent, chr(1) & "/QUOTE" & chr(2))
			do
				re.Pattern="\x01QUOTE\x02(.[^\x01]*)\x01\/QUOTE\x02"
				strContent=re.Replace(strContent,"<table style=""width:100%"" cellpadding=5 cellspacing=1 class=tablegubb><TR><TD width=""100%""><b>引用：</b><br>$1</td></tr></table><br>")
				Test=re.Test(strContent)
			loop while(Test)
			re.Pattern="\x02"
			strContent=re.replace(strContent, "]")
		end if
		re.Pattern="\x01"
		strContent=re.replace(strContent, "[")
	end if
	set re=Nothing
	UBB_QUOTE=strContent
end function


'參數：strContent內容
function UBBCode(strContent)
'HTML Code

	strContent = JScode(strContent)

'UbbCode
dim re,ii,po
dim reContent,Test
Set re=new RegExp
re.IgnoreCase =true
re.Global=True

'IMG Code
strContent=UBB_IMG(strContent)

'FLASH Code
strContent=UBB_FLASH(strContent)

'URL Code
strContent=UBB_URL(strContent)

'EMAIL Code
strContent=UBB_EMAIL(strContent)

'COLOR Code
strContent=UBB_COLOR(strContent)

'FACE Code
strContent=UBB_FACE(strContent)

'ALIGN Code
strContent=UBB_ALIGN(strContent)

'FLY Code
strContent=UBB_FLY(strContent)

'MOVE Code
strContent=UBB_MOVE(strContent)

'CENTER Code
strContent=UBB_CENTER(strContent)

'SHADOW Code
strContent=UBB_SHADOW(strContent)

'GLOW Code
strContent=UBB_GLOW(strContent)

'I Code
strContent=UBB_I(strContent)

'U Code
strContent=UBB_U(strContent)

'B Code
strContent=UBB_B(strContent)

'QUOTE Code
strContent=UBB_QUOTE(strContent)

'SIZE Code
strContent=UBB_SIZE(strContent)

'MP Code
strContent=UBB_MP(strContent)

'自動識別網址
re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)$"
strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
strContent = re.Replace(strContent,"$1<a target=_blank href=$2>$2</a>")

'自動識別 www 網址
re.Pattern = "([^(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)"
strContent = re.Replace(strContent,"<a target=_blank href=http://$2>$2</a>")

'em code
if instr(lcase(strContent),"[em")>0 then
	for i=1 to 28
	strContent=replace(lcase(strContent),"[em"&i&"]","<img src=emot/em"&i&".gif border=0 align=middle>")
	next
else
	re.Pattern="\[em(.[^\[]*)\]"
	strContent=re.Replace(strContent,"")
end if

	set objRegExp=Nothing
	UBBCode=strContent

set re=Nothing
UBBCode=strContent
end function

function HTMLcode(HtmlStr)
if not isnull(HtmlStr) then
    'HtmlStr = replace(HtmlStr, ">", "&gt;")
   ' HtmlStr = replace(HtmlStr, "<", "&lt;")
    'HtmlStr = Replace(HtmlStr, CHR(32), "<I></I>&nbsp;")
    'HtmlStr = Replace(HtmlStr, CHR(9), "&nbsp;")
    'HtmlStr = Replace(HtmlStr, CHR(34), "&quot;")
    'HtmlStr = Replace(HtmlStr, CHR(39), "&#39;")
    HtmlStr = Replace(HtmlStr, CHR(13), "")
    HtmlStr = Replace(HtmlStr, CHR(10) & CHR(10), "</P><P> ")
    HtmlStr = Replace(HtmlStr, CHR(10), "<BR> ")
    HTMLcode = HtmlStr
end if
end function

'——腳本字符處理	
Function JScode(JSstr)
if not isnull(JSstr) then
dim ts
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(javascript)"
ts=re.Replace(JSstr,"&#106avascript")
re.Pattern="(jscript:)"
ts=re.Replace(ts,"&#106script:")
re.Pattern="(js:)"
ts=re.Replace(ts,"&#106s:")
re.Pattern="(value)"
ts=re.Replace(ts,"&#118alue")
re.Pattern="(about:)"
ts=re.Replace(ts,"about&#58")
re.Pattern="(file:)"
ts=re.Replace(ts,"file&#58")
re.Pattern="(document.cookie)"
ts=re.Replace(ts,"documents&#46cookie")
re.Pattern="(vbscript:)"
ts=re.Replace(ts,"&#118bscript:")
re.Pattern="(vbs:)"
ts=re.Replace(ts,"&#118bs:")
re.Pattern="(on(mouse|exit|error|click|key))"
ts=re.Replace(ts,"&#111n$2")
re.Pattern="(&#)"
ts=re.Replace(ts,"＆#")
JScode=ts
set re=nothing
end if
End Function

function findgbchk(gbstr)

dim gbchk,forms,tempform,gbform
set rschk=server.createobject("adodb.recordset")
rschk.open "select gbchk from admin",conn,1,1
gbchk=rschk("gbchk")
rschk.close
gbchk=split(gbchk,"|")

	dim i
	for i = 0 to ubound(gbchk)
	  if instr(gbstr,gbchk(i))>0 then
		gbform=Replace(gbstr,gbchk(i),"***")
		exit for
	  else
	    gbform=gbstr
	  end if
	next
	findgbchk=gbform
end function
%>

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
97久久超碰精品国产| 欧美不卡激情三级在线观看| 欧美性videosxxxxx| 日韩精品一区二区三区在线观看| 国产午夜精品一区二区三区嫩草| 亚洲小少妇裸体bbw| 国产成人亚洲综合a∨婷婷图片| 色诱视频网站一区| 久久久久99精品国产片| 日本怡春院一区二区| 一本一本久久a久久精品综合麻豆 一本一道波多野结衣一区二区 | 欧美美女网站色| 国产精品久久久久久久久免费相片 | 成人欧美一区二区三区| 精品一区二区精品| 欧美日韩国产小视频在线观看| 国产精品美日韩| 国模无码大尺度一区二区三区| 欧美色图天堂网| 国产精品美女久久久久av爽李琼| 欧美a一区二区| 欧美日韩三级视频| 亚洲在线视频网站| 色婷婷久久久久swag精品| 国产精品网站导航| 国产成人午夜电影网| 精品国产三级电影在线观看| 免费观看成人av| 日韩美女在线视频| 捆绑调教一区二区三区| 欧美一区二区二区| 三级不卡在线观看| 7777精品伊人久久久大香线蕉超级流畅 | 在线视频一区二区免费| 国产日本欧洲亚洲| 国产精品亚洲午夜一区二区三区| 欧美xxxx在线观看| 精品一区二区影视| 精品国产欧美一区二区| 狠狠色狠狠色综合| 久久久www成人免费毛片麻豆 | 亚洲一区二区三区四区在线| 91视频观看视频| 一级做a爱片久久| 欧美视频日韩视频| 蜜臀a∨国产成人精品| 欧美成人vps| 国产91露脸合集magnet| 亚洲欧洲精品一区二区精品久久久| 91丨九色porny丨蝌蚪| 一区二区三区四区精品在线视频| 欧美吻胸吃奶大尺度电影| 午夜精品久久久久久不卡8050| 欧美久久一二三四区| 久久精品99国产精品日本| 欧美国产日本视频| 欧美性感一区二区三区| 日本少妇一区二区| 国产婷婷色一区二区三区在线| 成人黄色电影在线| 香港成人在线视频| 精品国产一区二区三区久久久蜜月| 成人高清免费观看| 亚洲电影中文字幕在线观看| 日韩三级在线免费观看| 不卡的电视剧免费网站有什么| 亚洲一区自拍偷拍| 精品国产乱子伦一区| 色999日韩国产欧美一区二区| 日本伊人色综合网| 国产精品高潮呻吟| 678五月天丁香亚洲综合网| 国产mv日韩mv欧美| 日韩av中文字幕一区二区三区| 26uuu国产电影一区二区| 色欧美日韩亚洲| 久久精品国产成人一区二区三区| 中文字幕在线观看不卡| 在线成人av网站| eeuss鲁片一区二区三区在线看| 日韩综合在线视频| 国产精品久久久久四虎| 欧美一区永久视频免费观看| 成人精品国产一区二区4080| 免费成人你懂的| 亚洲一区二区三区四区的| 久久久一区二区三区| 制服.丝袜.亚洲.中文.综合| 99精品1区2区| 国产综合色在线视频区| 日韩制服丝袜av| 一区二区三区欧美日韩| 国产欧美精品国产国产专区| 日韩欧美高清一区| 欧美午夜精品一区二区蜜桃| 丁香六月久久综合狠狠色| 99综合电影在线视频| 久久99最新地址| 婷婷成人激情在线网| 亚洲乱码国产乱码精品精小说| 久久久国产精华| 精品国产乱子伦一区| 91精品国产免费久久综合| 欧美在线999| 91一区二区三区在线播放| 国产成人99久久亚洲综合精品| 青娱乐精品在线视频| 视频一区二区欧美| 亚洲成人免费观看| 一个色综合av| 亚洲福利视频一区二区| 亚洲精品国产视频| 一个色综合av| 午夜精品久久久久久久久久久 | 日韩午夜在线观看| 欧美理论片在线| 欧美人牲a欧美精品| 欧美日韩国产一二三| 欧美日韩精品电影| 91精品国产一区二区三区| 欧美日韩一区 二区 三区 久久精品| 99精品1区2区| 欧美亚洲国产怡红院影院| 欧美探花视频资源| 欧美一区三区二区| 日韩精品一区二区三区老鸭窝| 日韩视频永久免费| 久久亚洲一区二区三区四区| 国产性做久久久久久| 亚洲欧美在线aaa| 亚洲午夜视频在线| 午夜精品久久久久久久99樱桃 | 日韩一区二区免费电影| 欧美xxxxx裸体时装秀| 久久久精品人体av艺术| 亚洲色图视频免费播放| 亚洲一区二区欧美| 麻豆传媒一区二区三区| 丁香啪啪综合成人亚洲小说| 91久久人澡人人添人人爽欧美| 欧美视频一区二区在线观看| 欧美一区二区三区视频| 国产女人18毛片水真多成人如厕 | 91精品国产全国免费观看| 亚洲精品在线观看网站| 中文字幕一区二区三中文字幕| 亚洲一区在线播放| 韩国v欧美v日本v亚洲v| 91在线你懂得| 欧美一级淫片007| 中文成人综合网| 五月天久久比比资源色| 国产一区二区三区在线观看免费视频| 成人免费高清在线| 欧美福利视频一区| 国产精品国产三级国产专播品爱网| 亚洲一区二区在线观看视频| 极品少妇xxxx精品少妇偷拍| 色综合久久66| 久久男人中文字幕资源站| 亚洲精品久久久久久国产精华液| 久久精品99国产精品日本| 色综合久久88色综合天天6| 日韩精品一区二区三区在线播放 | 久久这里只精品最新地址| 亚洲欧美日韩系列| 狠狠色综合色综合网络| 色综合av在线| 欧美激情一区二区在线| 日本不卡一区二区| 色噜噜久久综合| 国产日韩亚洲欧美综合| 麻豆精品久久精品色综合| 色综合久久六月婷婷中文字幕| www激情久久| 奇米精品一区二区三区在线观看| 91麻豆国产福利精品| 中文字幕av资源一区| 看电视剧不卡顿的网站| 91久久久免费一区二区| 国产精品久久毛片av大全日韩| 看片网站欧美日韩| 91精品欧美福利在线观看| 一区二区三区高清不卡| 91亚洲大成网污www| 国产精品女同一区二区三区| 国产乱色国产精品免费视频| 欧美一区二区三区免费在线看| 亚洲国产精品影院| 在线视频欧美精品| 综合在线观看色| 成人av影院在线| 国产精品久久毛片a| 成人污污视频在线观看| 久久精品人人做人人爽人人| 久热成人在线视频| 欧美电视剧在线看免费| 美女任你摸久久| 精品国产污污免费网站入口| 韩国av一区二区三区|