encode.asp

功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.

<%
Function encode(sstring)
        Dim nei
        if Not isNull(sstring) then
		nei=sstring
nei=replace(nei,"<","&lt;")
nei=replace(nei,">","&gt;")
nei=replace(nei,"'","<|>")
nei=replace(nei,vbCrLf,"<br>")
nei=replace(nei," ","&nbsp")
Else
       nei = ""
        End if
        encode = nei
End Function 
%>