myreplace.asp

来自「blog 又搭工」· ASP 代码 · 共 16 行

	<%function myreplace(mystring)
		mystring=replace(mystring,"&","&amp")
		mystring=replace(mystring,"<","&lt;")
		mystring=replace(mystring,">","&gt;")
		mystring=replace(mystring,chr(13),"<br>")
		mystring=replace(mystring,chr(32),"&nbsp")
		mystring=replace(mystring,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
		mystring=replace(mystring,chr(39),"&Aacute;")
		mystring=replace(mystring,chr(34),"&quot;")
		mystring=replace(mystring,"[b]","<b>")
		mystring=replace(mystring,"[/b]","</b>")
		mystring=replace(mystring,"[u]","<u>")
		mystring=replace(mystring,"[/u]","</u>")
		myreplace=mystring
	end function
	%>