%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% function htmlencode2(fString) if fString<>"" and not isnull(fString) then fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, chr(32), " ") fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
htmlencode2=fString
else
htmlencode2="1"
end if
end function
function htmlencode3(fString)
if fString<>"" and not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " ", chr(32))
fString = Replace(fString, "
", CHR(10) & CHR(10))
fString = Replace(fString, "
", CHR(10))
htmlencode3=fString
else
htmlencode3="1"
end if
end function
%>
|
|||||||||||||||||||||||||||