ASPÒÆ³ýËùÓÐHTML´úÂëµÄº¯Êý
´úÂëÈçÏ£º
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
ÕâÊÇ×î»ù±¾µÄÕýÔòÌæ»»£¬ÓÐÄ³Ð©ÌØÊâ×Ö·û»¹Ã»¹ýÂË£¬¿É×ÔÐÐÌí¼Ó£¡
È磺
RemoveHTML = Replace(RemoveHTML," ","")
Ïà¹ØÎĵµ£º
ODBCÊý¾ÝÔ´¿É·ÖΪ“ϵͳÐÍ”ºÍ“ÎļþÐÍ”£¬ËûÃǵÄÇø±ðÔÚÓړϵͳÐÍ”ÊÇÁ¬½ÓÊý¾Ý¿âµÄÐÅÏ¢½¨Á¢Ôړϵͳע²á±í”À“ÎļþÐÍ”ÔòÊÇÒÔdsnÎļþÐÎʽ´æ´¢ÔÚODBCÔ´µÄĿ¼ÏÂÃæ
Ò»¡¢½¨Á¢ODBCÊý¾ÝÔ´µÄ·½·¨£º
¿ØÖÆÃæ°å - ¹ÜÀí¹¤¾ß - Êý¾ÝÔ´£¨ODBC£©
´ò¿ªODBCÊý¾ÝÔ´¹ÜÀíÆ÷£¬È»ºóÒ ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Request("MailtoAddress") <> "" then
¡¡¡¡¡¡¡¡msg = SendMail
(Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
Request("MailDom ......
תÌû£¬²»Ëµ»°
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
"
"
"
&
&
&
<
<
<
>
>
>
²»¶Ï¿ª¿Õ¸ñ(non-breaking space)
 
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
?
¡
& ......
Ò»¡¢conn.asp
<%
'@Language="VBSCRIPT" CODEPAGE=65001
'meta http-equiv="Content-Type" content="text/html; charset=gb2312"
' 936 utf-8
class TDB
function qry(byval sqlquery)
& ......
HTML:
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="Wed, 26 Feb 1997 08:21:57 GMT">
<META HTTP-EQUIV="expires" CONTENT="0">
PHP£º
header("Expires: Mon, 26 Jul 1997 ......