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

¼òÒ×ASPÎļþ»º´æ¼¼Êõ

 ×¢Ò⣺ϵͳÐèÒªFSOȨÏÞ¡¢XMLHTTPȨÏÞ
ϵͳ°üÀ¨Á½¸öÎļþ£¬Æäʵ¿ÉÒԺϲ¢ÎªÒ»¸ö¡£Ö®ËùÒÔ·ÖΪÁ½¸öÊÇÒòΪ²¿·Öɱ¶¾Èí¼þ»áÒòΪÀï±ßº¬ÓÐFSO¡¢XMLHTTP²Ù×÷¶ø±»ÈÏΪÊǽű¾Ä¾Âí¡£
µ÷ÓÃʱ£¬ÐèÒªÔÚASPÒ³ÃæµÄ×îÉϱ߰üº¬Ö÷Îļþ£¬È»ºóÔÚϱßдÏÂÒÔÏ´úÂë
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5        'Ð޸ĹýÆÚʱ¼äÉèÖÃΪ5¸öСʱ
if MyCatch.CatchNow(Rev) then
        response.write MyCatch.CatchData
        response.end
end if
set MyCatch=nothing
¸´ÖÆ´úÂë
ÎļþÒ»£ºFileCatch.asp µÄ´úÂë
<!--#include file="FileCatch-Inc.asp"-->
<%
'---- ±¾ÎļþÓÃÓÚÇ©ÈëԭʼÎļþ£¬ÊµÏÖ¶ÔÒ³ÃæµÄÎļþCatch
'---- 1¡¢Èç¹ûÎļþÇëÇóΪPOST·½Ê½£¬ÔòÈ¡Ïû´Ë¹¦ÄÜ
'---- 2¡¢ÎļþµÄÇëÇó²»Äܰüº¬ÏµÍ³µÄʶ±ð¹Ø¼ü×Ö
'---- 3¡¢×÷Õß ºÎֱȺ (www.wozhai.com)
Class CatchFile
        Public Overdue,Mark,CFolder,CFile '¶¨Òåϵͳ²ÎÊý
        Private ScriptName,ScriptPath,ServerHost '¶¨Òå·þÎñÆ÷/Ò³Ãæ²ÎÊý±äÁ¿
        Public CatchData        'Êä³öµÄÊý¾Ý
        Private Sub Class_Initialize        '³õʼ»¯º¯Êý
                '»ñµÃ·þÎñÆ÷¼°½Å±¾Êý¾Ý
                ScriptName=Request.Servervariables("Script_Name") 'ʶ±ð³öµ±Ç°½Å±¾µÄÐéÄâµØÖ·
                ScriptPath=GetScriptPath(false)        'ʶ±ð³ö½Å±¾µÄÍêÕûGETµØÖ·
                ServerHost=Request.Servervariables("Server_Name") 'ʶ±ð³öµ±Ç°·þÎñÆ÷µÄµØÖ·
                '³õʼ»¯ÏµÍ³²ÎÊý
                Overdue=30        'ĬÈÏ30·ÖÖÓ¹ýÆÚ
                Mark="NoCatch"        'ÎÞCatchÇëÇó²ÎÊýΪ NoCatch
                CF


Ïà¹ØÎĵµ£º

asp±Ê¼Ç£¨ÕûÀíÓ²ÅÌ£¬ÕÒµ½¸ÃÎļþ£©

 ½ñÌìÖØÐÂÕûÀíµçÄÔ£¬ÕÒµ½Ò»¸öÎļþ£¬¿´ÁËÏÂÈÕÆÚ£¨2006.11.5£© £¬Å²»Ð¡ÐÄÔÙ¶ªÁË£¬´æµ½ÍøÉÏÀ´É¹É¹¡£
°²×°ÓëÅäÖÃ
1.5.1°²×°IIS
¿ØÖÆÃæ°å_  Ìí¼Óɾ³ý³ÌÐò_Ìí¼Óɾ³ýWindows×é¼þ_ 
"internetÐÅÏ¢·þÎñ(IIS)"¶Ô»°¿ò_ÏêϸÐÅÏ¢——"Word Wide Web·þÎñÆ÷" _ µ¥»÷Á½¸ö“È·¶¨”—&mda ......

ASPѧϰ£¬Äã×¼±¸ºÃÁËÂð£¿

ÈçºÎÁîÄãµÄÍøÕ¾“¶¯¸ÐÊ®×ã”
ÄúµÄÍøÕ¾ÊÇ·ñÈÔÒ»Èç¼ÈÍùµØ±£³Ö“¾²Ì¬”£¿Ä¿Ç°³Ê¼¸ºÎÔö³¤µÄ»¥ÁªÍøÍøÕ¾ÖУ¬ÓÐÏ൱һ²¿·ÖÈÔ¹ÌÊØ“¾²Ì¬”£¬ÎÞÐÎÖÐÒÑ´ó´óÂäºóÓÚʱ´úµÄ²½·¥¡£Ëùν“¾²Ì¬”Ö¸µÄ¾ÍÊÇÍøÕ¾µÄÍøÒ³ÄÚÈÝ“¹Ì¶¨²»±ä”£¬µ±Óû§ä¯ÀÀÆ÷ͨ¹ý»¥ÁªÍøµÄHTTP£¨Hypertext Transpor ......

asp ²Ù×÷ txt Îı¾Îļþ

 ´´½¨Ö¸¶¨µÄÎļþÃû²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔʹÓÃÕâ¸ö¶ÔÏó¶ÔÎļþ½øÐжÁд¡£
object.CreateTextFile(filename[, overwrite[, unicode]])
²ÎÊý
object
±ØÑ¡ÏӦΪ FileSystemObject »ò Folder ¶ÔÏóµÄÃû³Æ¡£
filename
±ØÑ¡Ïî¡£Ö¸Ã÷ËùÒª´´½¨ÎļþµÄ×Ö·û´®±í´ïʽ¡£
overwrite
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã ......

×öASPС͵³ÌÐò

 (Ò»)ÈçºÎ½ØÈ¡Ö¸¶¨ÇøÓòµÄHTML´úÂë?
¡¡¡¡(¶Ô·½ÍøÕ¾µÄHTML´úÂëÔÚÄĶù¿´£¿ÔΣºIEä¯ÀÀÆ÷>>²é¿´>>Ô´Îļþ¡£²»Òª¸æËßÎÒÄã²»ÖªµÀIEÊÇʲô£¡)£¬ÀýÈçÎÒÖ»Ïë»ñÈ¡ÒÔÏÂHTML´úÂëÖÐ"<td>"ºÍ"</td>"Ö®¼äµÄµÄÎÄ×Ö²¿·Ö£º
<html>
<title>ÍøÕ¾°®ºÃÕß__http://www.wwwfan.cn</title>
< ......

aspÎÞ×é¼þµÈ±ÈÀýËõ·ÅͼƬ

<%
'//////////// GPS£ºGet Picture Size //////////////
'//////////////ÀûÓÃADODB.stream»ñȡͼƬ³ß´ç//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
En ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ