ASPÈ¥³ý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,"")
LoseHtml = ClsTempLoseStr
End function
Ïà¹ØÎĵµ£º
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='¼Ò×°¿ÎÌÃ' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
response.Write("ÔÝʱûÓмǼ")
else
%>
......
Õ⼸ÌìºÃ¶àÈËÎÊÎÒÈçºÎÔÚasp³ÌÐòÖпØÖÆÉãÏñÍ·È¥×¥ÅÄÕÕÆ¬£¬asp¼¼Êõ»¹ÊÇ99ÄêµÄʱºò¿´¹ýÒ»µãµã£¬Ôç¾Í×ÅÃ×·¹³ÔÁË£¬²»¹ý¼ÈÈ»ÓÐÈËÎÊ£¬ÄǾÍÊÇ¿´µÃÆðÔÛ£¬»¨ÁËÒ»¸öÍíÉϵÄʱ¼ä°Ñasp³ÌÐòµ÷ÓÃÉãÏñÍ·ÅÄÕÕµÄÎÊÌâ¸ã¶¨ÁË£¬ÏּǼÈçÏ£¬ÈÃÓÐÀàËÆÐèÇóµÄͬѧ¿ÉÒÔÉÙ×ßЩÍä·¡£
Óõ½µÄ¼¼Êõ£º
1.asp³ÌÐòÖÐ×÷base64±àÂëºÍ½âÂ룬ʹÓõÄÊÇmsxml×é¼þ£ ......
¡¡IISĬÈϵĴíÎóÒ³ÊǺܲ»ÓѺõģ¬ºÜ¶àÈË¿´µ½Ä¬ÈϵĴíÎóҳʱ¶¼»á˵£ºÍøÕ¾´ò²»¿ªÁË£¡°×°×ËðʧÁËÕⲿ·ÖÁ÷Á¿¡£¶øÈç¹û´íÎóÒ³Ö±½ÓÌø×ªµ½Ê×Ò³ÓÖ¶ÔËÑË÷ÒýÇæºÜ²»ÓѺ㬸㲻ºÃÊ×Ò³»¹»á±»·âµô¡£ËùÒÔ¸ù¾ÝÇé¿ö£¬ÓÐÁ½¸ö·½·¨½â¾öÕâ¸öÎÊÌ⣺
¡¡¡¡Èç¹ûÊDz©¿ÍµÈÄÚÈÝÐ͵ÄÍøÕ¾£¬¿ÉÒÔ·µ»ØÒ»¸ö´øÓÐ404´íÎóµÄËÑË÷¿òÈ÷ÿÍËÑË÷£¬ÈôÊǵç×ÓÉÌÎñÐÍÍøÕ¾ ......
×î½üдվÄÚËÑË÷£¬ËùÒÔÑо¿ÁËÒ»ÏÂËã·¨£¬¸ÃËã·¨µÄÔÀíÈçͼÏÔʾ¡£
ÒÔÏÂÊÇÒ»¸öÓÃaspдµÄ¼òµ¥µÄ·Ö´Ê³ÌÐòÖ÷ÒªµÄ´úÂ룬´Ê¿âÎÒÒѾÓÃaccess½¨Á¢ºÃÁË¡£
Èç¹ûÒª×¢ÖØÐ§ÂÊ£¬MarLenµÄѡȡºÜÊÇÖØÒª£¬·ñÔòЧÂÊ»áÊ®·ÖµÍÏ£¬ÕâÀïMarLenÎÒѡȡµÄÊÇ5¡£
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fwor ......