newsconvert.asp

来自「是一种图片动画制作的源代码。是制作动画变成的实例。共各位参考」· ASP 代码 · 共 37 行

<%
function convert(str)
    str=replace(str,"'","’")
    str=replace(str,"""","&quot;")
    str=replace(str," ","&nbsp;")
    str=replace(str,"<","&lt;")
    str=replace(str," ","&gt;")
    str=replace(str,chr(13),"<br>")
    convert=str
End function
%><%
function newsConvert(str)
dim tempstr
dim theStr
dim canConvert
dim theChr
tempStr=str
theChr=""
theStr=""
canConvert=1
for i=1 to len(tempStr)
	theChr=mid(tempStr,i,1)
	if theChr="<" then
		canConvert=0
	end if
	if theChr=">" then
		canConvert=1
	end if
	if theChr=" " and canConvert=1 then
		theChr= "&nbsp;&nbsp;"
	end if
	theStr=theStr&theChr
next
    theStr=replace(theStr,chr(13),"<br>")
	newsConvert=theStr
End function
%>