|
Displaying Source Code(s)
|
|
Stop New Spam with ASP
--------------------------------------------------------------------------------
Description : EXAMPLE USE
------------------------
">
function ASCIICode(strInput)
strOutput = ""
For i = 1 To Len(strInput)
strOutput = strOutput & "&#" & ASC(Mid(strInput, i, 1)) & ";"
Next
ASCIICode = strOutPut
End function |
|
|