ASP常用函数(一) - IdeaGrace | Web开发

ASP常用函数(一) - IdeaGrace | Web开发 | ASP,IdeaGrace,web,开发,技术,交流,教程 - http://www.ideagrace.com/
'自动识别url



function AutoUrl(strContent)

dim re

Set re=new RegExp

re.IgnoreCase =true

re.Global=True



re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"

strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")

re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"

strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")

re.Pattern = "[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"

strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")



AutoUrl=strContent

end function

ubb解码



function UBBDecode(fString)

	fString = doCode(fString, "[b]", "[/b]", "<b>", "</b>")

	fString = doCode(fString, "[u]", "[/u]", "<u>", "</u>")

	fString = doCode(fString, "[i]", "[/i]", "<i>", "</i>")

	fString = doCode(fString, "[font=Andale Mono]", "[/font=Andale Mono]", "<font face='Andale Mono'>", "</font id='Andale Mono'>")

	fString = doCode(fString, "[font=Arial]", "[/font=Arial]", "<font face='Arial'>", "</font id='Arial'>")

	fString = doCode(fString, "[font=Arial Black]", "[/font=Arial Black]", "<font face='Arial Black'>", "</font id='Arial Black'>")

	fString = doCode(fString, "[font=Book Antiqua]", "[/font=Book Antiqua]", "<font face='Book Antiqua'>", "</font id='Book Antiqua'>")













	fString = doCode(fString, "[font=Century Gothic]", "[/font=Century Gothic]", "<font face='Century Gothic'>", "</font id='Century Gothic'>")

	fString = doCode(fString, "[font=Courier New]", "[/font=Courier New]", "<font face='Courier New'>", "</font id='Courier New'>")

	fString = doCode(fString, "[font=Comic Sans MS]", "[/font=Comic Sans MS]", "<font face='Comic Sans MS'>", "</font id='Comic Sans MS'>")

	fString = doCode(fString, "[font=Georgia]", "[/font=Georgia]", "<font face='Georgia'>", "</font id='Georgia'>")

	fString = doCode(fString, "[font=Impact]", "[/font=Impact]", "<font face='Impact'>", "</font id='Impact'>")



	fString = doCode(fString, "[font=Tahoma]", "[/font=Tahoma]", "<font face='Tahoma'>", "</font id='Tahoma'>")

	fString = doCode(fString, "[font=Times New Roman]", "[/font=Times New Roman]", "<font face='Times New Roman'>", "</font id='Times New Roman'>")

	fString = doCode(fString, "[font=Trebuchet MS]", "[/font=Trebuchet MS]", "<font face='Trebuchet MS'>", "</font id='Trebuchet MS'>")

	fString = doCode(fString, "[font=Script MT Bold]", "[/font=Script MT Bold]", "<font face='Script MT Bold'>", "</font id='Script MT Bold'>")

	fString = doCode(fString, "[font=Stencil]", "[/font=Stencil]", "<font face='Stencil'>", "</font id='Stencil'>")

	fString = doCode(fString, "[font=宋体]", "[/font=宋体]", "<font face='宋体'>", "</font id='宋体'>")

	fString = doCode(fString, "[font=Lucida Console]", "[/font=Lucida Console]", "<font face='Lucida Console'>", "</font id='Lucida Console'>")

	'颜色

	fString = doCode(fString, "[red]", "[/red]", "<font color=red>", "</font id=red>")

	fString = doCode(fString, "[green]", "[/green]", "<font color=green>", "</font id=green>")

	fString = doCode(fString, "[blue]", "[/blue]", "<font color=blue>", "</font id=blue>")

	fString = doCode(fString, "[white]", "[/white]", "<font color=white>", "</font id=white>")

	fString = doCode(fString, "[purple]", "[/purple]", "<font color=purple>", "</font id=purple>")

	fString = doCode(fString, "[yellow]", "[/yellow]", "<font color=yellow>", "</font id=yellow>")

	fString = doCode(fString, "[violet]", "[/violet]", "<font color=violet>", "</font id=violet>")

	fString = doCode(fString, "[brown]", "[/brown]", "<font color=brown>", "</font id=brown>")

	fString = doCode(fString, "[black]", "[/black]", "<font color=black>", "</font id=black>")

	fString = doCode(fString, "[pink]", "[/pink]", "<font color=pink>", "</font id=pink>")

	fString = doCode(fString, "[orange]", "[/orange]", "<font color=orange>", "</font id=orange>")

	fString = doCode(fString, "[gold]", "[/gold]", "<font color=gold>", "</font id=gold>")



	fString = doCode(fString, "[beige]", "[/beige]", "<font color=beige>", "</font id=beige>")

	fString = doCode(fString, "[teal]", "[/teal]", "<font color=teal>", "</font id=teal>")

	fString = doCode(fString, "[navy]", "[/navy]", "<font color=navy>", "</font id=navy>")

	fString = doCode(fString, "[maroon]", "[/maroon]", "<font color=maroon>", "</font id=maroon>")

	fString = doCode(fString, "[limegreen]", "[/limegreen]", "<font color=limegreen>", "</font id=limegreen>")

	'大小

	fString = doCode(fString, "[size=1]", "[/size=1]", "<font size=1>", "</font id=size1>")

	fString = doCode(fString, "[size=2]", "[/size=2]", "<font size=2>", "</font id=size2>")

	fString = doCode(fString, "[size=3]", "[/size=3]", "<font size=3>", "</font id=size3>")

	fString = doCode(fString, "[size=4]", "[/size=4]", "<font size=4>", "</font id=size4>")

	fString = doCode(fString, "[size=5]", "[/size=5]", "<font size=5>", "</font id=size5>")

	fString = doCode(fString, "[size=6]", "[/size=6]", "<font size=6>", "</font id=size6>")

	'对齐

	fString = doCode(fString, "[left]", "[/left]", "<div align=left>", "</div id=left>")

	fString = doCode(fString, "[center]", "[/center]", "<center>", "</center>")

	fString = doCode(fString, "[centre]", "[/centre]", "<center>", "</center>")

	fString = doCode(fString, "[right]", "[/right]", "<div align=right>", "</div id=right>")

	'引用

	fString = doCode(fString, "[quote]", "[/quote]", "<BLOCKQUOTE id=quote><font size=" & strFooterFontSize & " face=""" & strDefaultFontFace & """ id=quote><hr height=1 noshade id=quote>", "<hr height=1 noshade id=quote></font id=quote></BLOCKQUOTE id=quote>")



	fString = replace(fString, "[br]", "<br>", 1, -1, 1)

	fString = doCode(fString, "[img]", "[/img]", "<img src=", ">")

	UBBDecode = fString

end function



function doCode(fString, fOTag, fCTag, fROTag, fRCTag)

	fOTagPos = Instr(1, fString, fOTag, 1)

	fCTagPos = Instr(1, fString, fCTag, 1)

	while (fCTagPos > 0 and fOTagPos > 0)

		fString = replace(fString, fOTag, fROTag, 1, 1, 1)

		fString = replace(fString, fCTag, fRCTag, 1, 1, 1)

		fOTagPos = Instr(1, fString, fOTag, 1)

		fCTagPos = Instr(1, fString, fCTag, 1)

	wend

	doCode = fString

end function

喜欢本文？那就在线订阅更多文章更新吧！

加入技术论坛讨论
访问IdeaGrace开发者博客
浏览更多java开源项目
IdeaGrace开发者Wiki

更好的浏览体验，