aspÈçºÎÈ¥³ýhtml±ê¼Ç
·½·¨Ò» : ½ûÓÃHTML
×î¼òµ¥µÄ·½·¨ÊÇÖ±½Ó½ûÓÃhtml±êÇ©¶ø²»ÓÃÒÆ³ýËüÃÇ. ¿ÉÒÔʹÓÃReplace()º¯Êý. ÀýÈç:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
»òÕßÖ±½Ó½ûÓÃËùÓеÄhtml:
strText = Replace(strText, "<", "<")
ÕâÑù×öËäÈ»ºÜ°²È«,µ«ÏԵò»¹»ÓѺÃ.(Óû§Ìá½»µÄÎı¾»á±äµÃÄÑÒÔÔĶÁ)
·½·¨¶þ: ʹÓÃ"<"ºÍ">"
ÔõÑùʹµÃhtml±êÇ©´ÓÎı¾ÖÐÏûÊ§ÄØ? ÎÒÃÇ¿ÉÒÔÈ¥µô"<"ºÍ">"ÖмäµÄËùÓÐÄÚÈÝ
ÔÚJavaScriptÖÐÕâºÜ¼òµ¥:
function RemoveHTML( strText )
{
var regEx = /<[^>]*>/g;
return strText.replace(regEx, "");
}
ÏÖÔڻص½VBScript, ¶ÔÓÚScriptingÒýÇæ5.0»ò¸ü¸ß°æ±¾(¿ÉÒÔͨ¹ýµ÷ÓÃScriptEngineMajorVersionºÍScriptEngineMinorVersionº¯ÊýÀ´¼ìÑé°æ±¾),ÎÒÃÇÒ²¿ÉÒÔʹÓÃRegExpÎïÌå:
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
Èô²»ÓÃÕýÔò±í´ïʽ,ÏÂÃæµÄº¯Êý¿ÉÒԴﵽͬÑùµÄÄ¿µÄ:
Function RemoveHTML( strText )
Dim nPos1
Dim nPos2
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
Else
Exit Do
End If
nPos1 = InStr(strText, "<")
Loop
&nbs
Ïà¹ØÎĵµ£º
¡¡¡¡Ç°Õó×Ó¸ÕÍê³ÉÒ»¸öB/S¼Ü¹¹µÄѧУ°ì¹«ÏµÍ³£¬Ìå»á¾ÍÊDZíÌ«¶à£¬ÎļþÌ«¶à£¬¶øÃ¿¸öÎļþÖÐÀàËÆµÄ²Ù×÷£¨´úÂ룩Ҳ̫¶àÁË£¬ÀýÈçѧÉúÐÅÏ¢ºÍ½ÌʦÐÅÏ¢²Ù×÷£¬student.asp,teacher.asp£¬ÕâÁ½¸öÎļþҪʵÏֵŦÄÜÓУ¬Ìí¼Ó¡¢É¾³ý¡¢Ð޸ġ¢ÏÔʾ½ÌʦºÍѧÉúÐÅÏ¢£¬Á½¸öÎļþÖоÍÓкܶàÏàͬµÄ´úÂ룺±ÈÈ磺
¡¡¡¡ÏÔʾÐÅÏ¢£¬do while not rs.eof,rs ......
1¡¢WITH TEMPLETÒâ˼ÊÇ£¬Éú³ÉµÄÒ³Ãæ¼Ü¹¹½«²ÉÓÃij¸öÒÑÉ趨µÄÄ£°å£¬ÔÚ´Ë֮ǰÎÒµÄһƪ½Ì³ÌÖнéÉܹý£¬Ï£Íû¸÷λÔÚ¿´±¾½Ì³Ì֮ǰ¶ÔASP²ÉÓÃÄ£°åÓ¦ÊìϤÏ¡£
¡¡¡¡2¡¢ASPת±äΪHTML¡£²»ÒªÎÒÔÙ˵ASPת±ä³ÉHTMLµÄºÃ´¦Á˰ɣ¬ÆäÖÐ×îÖµµÃÖªµÀµÄ¾ÍÊÇ£º¾²Ì¬HTMLÒ³ºÍ¶¯Ì¬Ò³¶Ô·þÎñÆ÷µÄÒªÇó³ÐÊÜÄÜÁ¦Ð¡µÃ¶à£¬Í¬Ñù£¬¾²Ì¬HTMLËÑË÷¼¸ÂÊÔ¶±È¶¯Ì¬Ò³Ãæ ......
ÔÚASPÏîÄ¿ÖУ¬µ±³öÏÖ“×¢²á±í´íÎó£¬ÎÞ·¨Ð´Èë”´íÎóµÄʱºò£¬±¾ÈËÓöµ½µÄ´íÎóÔÒòÓÐÁ½¸ö£¬ÔÚÕâÀï¸ú´ó¼Ò¹²Í¬Ì½ÌÖÏ¡£
µÚÒ»¸öÊÇ£¬µçÄÔµÄÎļþϵͳʽNTFS¸ñʽµÄ£¬ÕâÑùµÄ»°Êý¾Ý¿âûÓÐȨÏÞ¡£
½â¾ö·½·¨£ºÔÚÊý¾Ý¿âËùÔÚÎļþ¼ÐÉÏ£¨»ò±ÈËü¸ßµÄÈÎÒ ......
aspÏνÓMssqlµÄ°ì·¨¼°³£¼ûµÄ²î´í
//µÚÒ»ÖÖд·¨£º
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
R ......