Function HTML_Encode(byVal string) Dim tmp, i tmp = string For i = 160 to 255 tmp = Replace(tmp, chr(i), "&#" & i & ";") Next tmp ...
確定! 回上一頁