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
Ïà¹ØÎĵµ£º
ÓÉÓÚ¹¤×÷ÔÒò£¬±ÊÕß¾³£ÐèҪʹÓÃAsp¿ª·¢Ò»Ð©Ð¡ÐͳÌÐò£¬ÔÚWindows 2000Ï¿ª·¢ºÍʹÓÃÏà¹Ø³ÌÐòʱһ°ã²»»á³öÏÖʲôÎÊÌ⣬²¢ÇÒÒ²ºÜÈÝÒ×½â¾ö¡£µ«ÊÇÓÉÓÚ±ÊÕßΪÁ˳¢ÏÊʹÓÃÁËWindows 2003 Serverʱ£¬¿ª·¢Ïà¹Ø³ÌÐò¾Í³öÏÖÁËÕâÑùÄÇÑùµÄÎÊÌ⣬±ÈÈçä¯ÀÀÆ÷²»ÄÜÏÔʾÏêϸ³ö´íÐÅÏ¢£¬Á¬½ÓAccessʱ×ÜÊDZ¨´íµÈ£¬ÈñÊÕ߿಻¿°ÑÔ¡£ÔÚ¶à´Îʵ¼ùºÍ²é¿´ ......
ASPÓëJSPµÄ±È½Ï
¡¡¡¡´Ó΢ÈíÍÆ³öÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌØµã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆä¹¦ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java
ServerPages)Ê ......
µÚÈý¸öÀà,ÊÇÊý¾Ý¿âÁ¬½ÓÀà,Õâ¸ö¿ÉÒÔ¿´×öÊǸºÔð×îµ×²ãµÄÊý¾Ý¿â·ÃÎʵÄÒ»¸ö¶ÔÏó,²¢²»ÊôÓÚÊý¾Ý²ã. ËüÖ»ÊÇÒ»¸ö¹¤¾ß,¶ø²»Éæ¼°µ½ÈκιØÓÚÊý¾Ý¿âÄÚÈݵÄÂß¼.
ÔÙ´ÎÖØÉêÒ»ÏÂ,ÕâÈý¸öÀà,Ö»ÊÇÔÚASPÈý²ã¼Ü¹¹ÖеÄÈý´ó»ù±¾¶ÔÏó,ÏóÕâÖÖ¶ÔÏó,ÎÒÔÚ¾ßÌåµÄÒµÎñ ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......