¼òÒ×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
Ïà¹ØÎĵµ£º
Õâ¸öÄ£°åÒýÇæ±È½Ï·½±ã,¸úHTML½áºÏÁË
Class template
Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr
Private TagName
' ***************************************
' ÉèÖñàÂë
' ***************************************
Public Property Let Char( ......
ASP¸ß¼¶¼¼Êõ¾«Ñ¡¼¯
Ò»¡¢GetRowsµÄʹÓ÷½·¨£º
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select Top 2 * from ±íÃû",conn,0,1 &nb ......
Ò»¡¢Asp»ù±¾ÖªÊ¶
1£®AspÊÇActive Server PagesµÄ¼ò³Æ£¬ÊǽâÊÍÐ͵Ľű¾ÓïÑÔ»·¾³£»
2£®AspµÄÔËÐÐÐèÒªWindows²Ù×÷ϵͳ£¬9xÏÂÐèÒª°²×°PWS£»¶øNT/2000/XPÔòÐèÒª°²×°Internet Information Server£¨¼ò³ÆIIS£©£»
3£®AspºÍJSPµÄ½Å±¾±êÇ©ÊÇ“<%%>”£¬PHPµÄÔò¿ÉÒÔÉ趨Ϊ¶àÖÖ£»
4£®AspµÄ×¢ÊÍ·ûºÅÊÇ“'”£ ......
´´½¨Ö¸¶¨µÄÎļþÃû²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔʹÓÃÕâ¸ö¶ÔÏó¶ÔÎļþ½øÐжÁд¡£
object.CreateTextFile(filename[, overwrite[, unicode]])
²ÎÊý
object
±ØÑ¡ÏӦΪ FileSystemObject »ò Folder ¶ÔÏóµÄÃû³Æ¡£
filename
±ØÑ¡Ïî¡£Ö¸Ã÷ËùÒª´´½¨ÎļþµÄ×Ö·û´®±í´ïʽ¡£
overwrite
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã ......