<%
'الوظيفة: تعادل ترقية HTMLEncode2. لا حاجة لتكرار السلسلة بأكملها.
'المصدر: http://www.downcodes.com/536459.html
الدالة BHTML(s)
BHTML = BStr(s)
BHTML = Server.HTMLEncode(BHTML)
BHTML = استبدال (BHTML، ""، "")
BHTML = استبدال (BHTML، ""، "")
BHTML = استبدال (BHTML، vbCr، "<br />")
BHTML = استبدال (BHTML، vbLf، "<br />")
BHTML = استبدال (BHTML، vbTab، " ")
وظيفة النهاية
%>