|
asp 简单ubb代码转换程序 <script>ec(2);</script> function HTMLConvert(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(34), """)
fString = replace(fString, CHR(32)," ")
fString = Replace(fString, CHR(39), "'")
Fstring = Replace(fString, "-[ChangeLine]-","<br>")
HTMLConvert = fString
end if
end function
|
