Function Dvhtmlcode (ByVal fstring)
If IsNull (fstring) or trim (fstring) = "" Then
Dvhtmlcode= ""
Exit function
End If
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = Replace (fstring, " ", "")
fstring = Replace (fstring, """, CHR (34))
fstring = Replace (fstring, "& #39;", CHR (39))
fstring = Replace (fstring, "</P><P>", CHR (Ten) & CHR (10))
fstring = Replace (fstring, "<BR>", CHR (10))
Dvhtmlcode = fstring
End Function
%>
<body>
<form name= "Form1" method= "Post" action= "Action=submit" >
<label>
<textarea name= "textarea" cols= "rows=" "7" ></textarea>
</label>
<p>
<label>
<input type= "text" name= "TextField" >
</label>
</p>
<p>
<label>
<input type= "Submit" name= "Submission" value= "submitted" >
</label>
</p>
</form>
</body>
<%
If Request ("action") = "Submit" Then
ubbhtml = Request. Form ("textarea")
Ubbtitle = Request. Form ("TextField")
If ubbhtml <> "" Then
Htmlcode = Dvhtmlcode (ubbhtml)
Else
' Save data
End If
Else
Response. Write ("uncommitted content")
End If
' We use it in the display
Response. Write (Dvhtmlencode (htmlcode)) ' So you can filter the code that destroys data or page effects perfectly
Function Dvhtmlencode (ByVal fstring)
If IsNull (fstring) or trim (fstring) = "" Then
Dvhtmlencode= ""
Exit function
End If
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "<")
fstring = Replace (fstring, CHR (), " ")
fstring = Replace (fstring, CHR (9), " ")
fstring = Replace (fstring, CHR (), """)
fstring = Replace (fstring, CHR (), "& #39;")
fstring = Replace (fstring, CHR (13), "")
fstring = Replace (fstring, CHR (a) & CHR (a), "</P><P>")
fstring = Replace (fstring, CHR (), "<BR>")
Dvhtmlencode = fstring
End Function
' original reproduced in this site annotated www.111cn.net