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

asp³£ÓõÄÕýÔò±í´ïʽʵÏÖ×Ö·û´®µÄÌæ»»


asp³£ÓõÄÕýÔò±í´ïʽʵÏÖ×Ö·û´®µÄÌæ»»,Ö÷Òª°üÀ¨È¥³ýhtml±êÇ©£¬È¥³ýclass±êÇ©ºÍÈ¥³ýscript±êÇ©µÈ
È¥³ýhtml±êÇ©ÕýÔò<\/*[^<>]*>
Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<\/*[^<>]*>"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
Set RegEx = Nothing
LoseHtml = ClsTempLoseStr
End function
È¥³ýÍøÒ³ÖеÄclass
Function LoseClassTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseClassTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseScriptTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseScriptTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseIFrameTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseIFrameTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseObjectTag(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "(<object){1,}[^<>]*>[^\0]*(<\/object>){1,}"
RegEx.IgnoreCase = True
RegEx.Global = True
ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
LoseObjectTag = ClsTempLoseStr
Set RegEx = Nothing
End Function
Function LoseSpanTag(Conte


Ïà¹ØÎĵµ£º

ASPÈ¡²»Öظ´µÄËæ»úÊý

dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next

for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")

tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubou ......

ajax+asp.net/asp/php+mssqlÎÞË¢ÐÂÁÄÌìÊÒ

ajax+asp.net+mssqlʵÏÖµÄajaxÎÞË¢ÐÂÁÄÌìÊÒ£¬Ö§³Öhtml web±à¼­Æ÷¡£
ΪÁ˼ӿìËٶȣ¬Ê¹ÓÃÁË´æ´¢¹ý³Ì¡£
asp¼°php°æ±¾Çë¿´ÏÂÃæµÄÎÄÕÂ
ajax+asp+mssqlÎÞË¢ÐÂÁÄÌìÊÒ
ajax+php+mssqlÎÞË¢ÐÂÁÄÌìÊÒ
´ËÀý×ÓÒ²¿ÉÒÔ×÷Ϊmssql´æ´¢¹ý³ÌʹÓõÄʾÀý£¬Èçphpµ÷ÓÃmssqlµÄ´æ´¢¹ý³Ì£¬php»ñÈ¡mssqlÊý¾Ý¿âµÄÊä³ö²ÎÊý¡£
ҪʹÓò»Í¬µÄ¶¯Ì¬Ò³Ãæ£ ......

ASPÖÐÓÃASPJPEGÈçºÎ¸øFCKEditorÉÏ´«µÄͼƬ¼Óˮӡ

´ò¿ªFCKEditor/Editor/Filemanager/Connectors/Asp/Commands.aspÎļþ£¬ÐÞ¸ÄFileUploadº¯Êý£¬ÈçÏÂËùʾ£º
Sub FileUpload( resourceType, currentFolder, sCommand )
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize = 0
oUploader.Allowed = ConfigAllowedExtensions.Item( ......

aspÏÂÈòÄê¼ÆËã·½·¨

¼ÆËãÈòÄêÖ÷ÒªÊÇΪÁËÅжÏ2Ô·ݵÄÌìÊý£¬Ò»°ãÈòÄê2Ô·ÝÊÇ29Ì죬ƽÄê2Ô·ÝÊÇ28Ìì¡£¼ÆËãÈòÄêµÄËã·¨·Ç³£¼òµ¥£¬¼´£ºÄܱ»400Õû³ý£¬»òÕßÄܱ»4Õû³ý¶ø²»Äܱ»100Õû³ý¡£
Ëã·¨ÈçÏ£º
 function isLeapYear(pYear)
    set oreg=new RegExp
    oreg.Pattern="^\d{4}$"
    if n ......

ASPºÍHTML±íµ¥ (ASP and HTML Forms)

ÔÚ ASP ÖУ¬ÓÐÁ½¸öºÜ³£Óõļ¯ºÏ£¬Ò»¸öÊÇ Request.QueryString£¬ÁíÒ»¸öÊÇ Request.Form¡£ÕâÁ½¸ö¼¯ºÏ¿ÉÒÔ»ñÈ¡ HTML ±íµ¥(HTML Forms) Ìá½»µÄÐÅÏ¢¡£
ÓÐ¹Ø HTML ±íµ¥£¬Çë²Î¼û HTML ½Ì³ÌÖÐµÄ HTML±íµ¥ Ò»Õ¡£
Request.QueryString
HTML ±íµ¥ÖÐµÄ method ÓÐÁ½ÖÖ£¬Ò»ÖÖÊÇ get£¬ÁíÍâÒ»ÖÖÊÇ post¡£µ± HTML ±íµ¥µÄ metho ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ