Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

aspÈçºÎÈ¥³ýhtml±ê¼Ç

·½·¨Ò» : ½ûÓÃHTML
×î¼òµ¥µÄ·½·¨ÊÇÖ±½Ó½ûÓÃhtml±êÇ©¶ø²»ÓÃÒÆ³ýËüÃÇ. ¿ÉÒÔʹÓÃReplace()º¯Êý. ÀýÈç:
strText = Replace(strText, "<script", "&lt;script", 1, -1, 1)
»òÕßÖ±½Ó½ûÓÃËùÓеÄhtml: 
strText = Replace(strText, "<", "&lt;")
ÕâÑù×öËäÈ»ºÜ°²È«,µ«ÏԵò»¹»ÓѺÃ.(Óû§Ìá½»µÄÎı¾»á±äµÃÄÑÒÔÔĶÁ) 
·½·¨¶þ: ʹÓÃ"<"ºÍ">"
ÔõÑùʹµÃ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×ÊÁÏ

¸ÅÊö
¡¡¡¡ASPÊÇActive Server PageµÄËõд£¬ÒâΪ“¶¯Ì¬·þÎñÆ÷Ò³Ãæ”¡£ASPÊÇ΢Èí¹«Ë¾¿ª·¢µÄ´úÌæCGI½Å±¾³ÌÐòµÄÒ»ÖÖÓ¦ÓÃ,Ëü¿ÉÒÔÓëÊý¾Ý¿âºÍÆäËü³ÌÐò½øÐн»»¥£¬ÊÇÒ»ÖÖ¼òµ¥¡¢·½±ãµÄ±à³Ì¹¤¾ß¡£ASPµÄÍøÒ³ÎļþµÄ¸ñʽÊÇ.asp£¬ÏÖÔÚ³£ÓÃÓÚ¸÷ÖÖ¶¯Ì¬ÍøÕ¾ÖС£ ASPÊÇÒ»ÖÖ·þÎñÆ÷¶Ë½Å±¾±àд»·¾³£¬¿ÉÒÔÓÃÀ´´´½¨ºÍÔËÐж¯Ì¬ÍøÒ³»òWebÓ¦ ......

ASP³£ÓÃÄÚÖú¯Êý

¡¡ÔÚASPÖУ¬°Ñ´øÓзµ»ØÖµµÄÕâÑùµÄÒ»¶Î´úÂë½Ð×öº¯Êý¡£ÀýÈçͨ¹ý±àдһ¶Î´úÂë¼ÆËã³öÒ»¸ö×ÔÈ»ÊýÊÇ·ñÊÇÖÊÊý£¬·µ»Ø¸øµ÷ÓóÌÐò£¬ÓÉÓÚµ÷ÓóÌÐòÐèÒªÖªµÀÄǸö×ÔÈ»ÊýÊÇ·ñÊÇÖÊÊý£¬ËùÒÔ±ØÐëÒª·µ»ØÒ»¸öÖµ¡£
¡¡¡¡1£¬ÈÕÆÚ/ʱ¼äº¯Êý
¡¡¡¡ÕâЩº¯Êý°üÀ¨¶Ô“Äꔡ¢“Ô”¡¢“ÈÕ”¡¢“ʱ”¡¢“·Ö ......

[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 6.ConvertÀà

    µÚ¶þ¸öÖØÒªµÄÀà,×÷ÓÃÊÇÀàÐÍת»»,ÀàÃûCon_Convert.ÔÚÒ³Ãæ´úÂëµÄ¿ªÍ·ÊµÀý»¯,¶ÔÏóÃûΪConvert,½èÓÃÁË.netµÄÀàÐÍת»»µÄ¶ÔÏóÃû³Æ.
   
   
    Õâ¸öÀàÖ÷Òª½â¾öÔÚÀàÐÍת»»Ê±,Èç¹ûÖ±½ÓʹÓÃÀàÐÍת»»º¯Êý,»áÒòΪ±äÁ¿Îª¿Õ»òÕ߸ñʽ²»¶Ô¶øµ¼Ö³ÌÐò±¨´í,¶øÕâÖÖ±¨´ ......

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    ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......

[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 5.Error´¦ÀíÀà

    ¿´µ½ÓÐÅóÓÑËµÇ°ÃæÒ»Õ½²µÃû±ØÒª,ÏëÏëҲȷʵ.±¾À´ÊÇûÓдòËã½²ÕâЩ»ù´¡µÄ,Ö»ÊÇÐÐÎÄÆðÀ´Ã»ÓÐÔ¼Êø,¾Íµ´¿ªµ½»ù´¡ÖªÊ¶ÉÏÃæÁË.
    ´ÓÕâ½Ú¿ªÊ¼,½«»á¸ø´ó¼Ò½éÉÜASPÖеÄÈý´óͨÓÃÀà,Ëü¹á´©ÓÚÎÒËùÉè¼ÆµÄÈý²ã¼Ü¹¹ÖÐ,ÊǶÔASPÓï·¨µÄÀ©Õ¹,¿ÉÒÔÌá¸ßºÜ¶àϸ½Ú´¦ÀíÉϵÄЧÂÊ,¿ÉÒÔËãÊÇÒ»µãµã¿ò¼ÜµÄζµÀ.
& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ