Function FormatStr(str)Dim s1,s2If str<>"" thenstr=replace(replace(Trim(str),chr(32)&chr(32),""),chr(9),"")DO While (ins

Function FormatStr(str)

Dim s1,s2

If str<>"" then

str=replace(replace(Trim(str),chr(32)&chr(32),""),chr(9),"")

DO While (instr(str,">")>0 and instr(str,"<")>0)

s1=InStr(str,"<")

s2=Instr(s1,str,">")

If s1>0 and s2>0 then

str=replace(str,mid(str,s1,s2-s1+1),"")

End if

Loop

str=replace(replace(str,"<","<"),">",">")

str=Replace(Replace(Replace(replace(replace(str,chr(13),""),chr(10),""),"""","”"),"'","’")," ","")

FormatStr=str

Else

FormatStr=""

End if

End Function

上一篇：SEO網站優化(huà)關鍵詞排名不穩定的(de)幾種原因 下(xià)一篇：ASP Select Count語句返回值的(de)方法