2007年10月6日星期六

关于网站文件自动备份程序的思考 | 站长资讯

ͻ񻣼

±¾ÎÄÌṩÁËÒ»ÖÖʹÓÃasp php½Å±¾À´ÊµÏÖÍøÕ¾Îļþ±¸·ÝµÄ˼·£¬¿ÉÒÔʵÏÖÖ¸¶¨ÎļþµÄ°´Ì챸·Ý¡£

¸öÈËÍøÕ¾ÍùÍùÔÚÐéÄâÖ÷»úÉÏ£¬¶ÔÖ÷»úµÄ¿ØÖÆÈ¨ÏÞºÜС£¬Òò´Ë²»ÄÜʹÓÃÖîÈçÈÎÎñ¼Æ»®À´ÊµÏÖ¶¨Ê±±¸·Ý£¬ÎÒÃÇÐèÒª»»Ò»ÖÖ˼·À´ÊµÏÖÏàËÆµÄ×Ô¶¯±¸·Ý¡£ÄÚÈÝÀ´×ÔÖйúÕ¾³¤×ÊÑ¶Íø(www.chinahtml.com)

ÎÒÃÇ¿ÉÒÔÀûÓÃÓû§¶ÔÍøÕ¾µÄ·ÃÎÊÀ´ÊµÏÖ¶ÔÖ¸¶¨ÎļþµÄ°´Ì챸·Ý¡£

»ù±¾Ë¼Â·ÊÇ£ºÓû§·ÃÎÊÍøÕ¾ ¡ú ¶ÁÈ¡×îºó±¸·ÝÈÕÆÚ¡¢¶ÁÈ¡µ±Ç°ÈÕÆÚÈ»ºó±È½Ï£¬Èç¹ûÕâÁ½¸öÈÕÆÚ²»Ò»ÖÂÔòµ÷Óñ¸·Ý³ÌÐòÀ´ÊµÏÖ¶ÔÖ¸¶¨ÎļþµÄ±¸·Ý£¬±¸·ÝÍê³ÉºóÔÙдÈëеÄÈÕÆÚ±ê¼Ç£¬ÕâʱºòÓû§ÔÙ·ÃÎÊÍøÕ¾£¬ÈÕÆÚÒѾ­ÊÇ×îеÄÁË£¬¾Í»áÌø¹ý±¸·Ý³ÌÐò¼Ì¶øÖ´ÐÐÆäËû³ÌÐò¡£ÄÚÈÝÀ´×ÔÖйúÕ¾³¤×ÊÑ¶Íø(www.chinahtml.com)

·ÖÎöÕâ¸ö˼·£º±¸·Ý³ÌÐò»áÔÚÿÌìµÄµÚÒ»¸öÓû§·ÃÎÊÍøÕ¾µÄʱºòÆô¶¯£¬±ã¿ÉÒÔ´ïµ½°´Ì챸·ÝµÄЧ¹û£¬È»¶øÈç¹ûÕâÌìûÓÐÓû§·ÃÎÊÔò²»»á±¸·Ý£¬Õâ¸ö²¢ÎÞ¶à´ó¹ØÏµ£¬ÒòΪÈç¹ûûÓÐÓû§·ÃÎÊÍøÕ¾£¬ÔòÍøÕ¾ÄÚÈݲ»»á·¢ÉúºÜ´ó¸Ä±ä¡£Òò´Ë¿ÉÒÔºöÂÔÕâ¸öÇé¿ö¡£

ÐèҪעÒâµÄÊÇ£¬ÄÚÈÝÀ´×ÔÖйúÕ¾³¤×ÊÑ¶Íø(www.chinahtml.com)¿ÉÄÜ´æÔÚÁ½¸öÈËͬʱ·ÃÎÊÍøÕ¾£¬¶øÍ¬Ê±Æô¶¯±¸·Ý³ÌÐòµÄÇé¿ö£¬±ã¿ÉÄÜ»á¶Ô±¸·ÝÄÚÈÝÔì³É¸²¸Ç£¬¶Ô´ËÎÒÃÇ¿ÉÒÔÔÚ³ÌÐòÖÐÌí¼ÓÅжÏÓï¾ä£¬ Õ¾³¤×ÊÑ¶Íø»¶Ó­Äú(www.chinahtml.com)Èç¹ûÎļþÒѾ­´æÔÚÔò²»È¥¸²¸ÇËü¡£

Èç¹ûÊÇÒª±¸·ÝµÄÁ½¸öÎļþµÄÎļþÃûÒ²ÏàͬÔòÒ²»áÔì³É¸²¸Ç£¬ÎÒÃǼٶ¨ÎļþÊÇÈ«²»ÏàͬµÄ¡£

»¹ÓÐÒ»¸ö±È½ÏÖØÒªµÄÎÊÌâÊÇ£¬ÔÚ±¸·Ý³ÌÐòÖбØÐë²ÉÓõÄʱÆÚ¸ñʽÊÇ 4λÊýÄêºÍ2λÊýÔ¡¢ÈÕ£¬²»×ãλÊý±ØÐë²¹Áã¡£ ÀýÈç:2006-05-31Ö»ÓÐÕâÑù²ÅÄÜʵÏÖÈÕÆÚ´óСµÄ±È½Ï£¬ÔÚaspÖÐÎÒÃÇ¿ÉÒÔÓÃÒ»¸öС³ÌÐòÀ´ÊµÏÖ£¬ÔÚphpÖÐÒѾ­ÓÐÕâÑùµÄÈÕÆÚ¸ñʽÁË¡£

ÏÂÃæÏêϸ˵Ã÷³ÌÐòµÄ¹¹Ô죬ÒÔaspΪÀý¡£

===bak_set.asp===

Dim root_dir
root_dir = %26quot;/%26quot;
Dim bak_set
Set bak_set = Server.createobject(%26quot;Scripting.Dictionary%26quot;)
bak_set.Add %26quot;last_bak%26quot; , %26quot;2006-05-30%26quot;
bak_set.Add %26quot;file_list%26quot; , %26quot;data.mdb|system.mdb%26quot;
bak_set.Add %26quot;file_path%26quot; , %26quot;database/|database/%26quot;
bak_set.Add %26quot;bak_dir%26quot; , %26quot;backup/%26quot;
bak_set.Add %26quot;bak_date%26quot; , %26quot;2006-05-27|2006-05-28|2006-05-29|2006-05-30%26quot;
bak_set.Add %26quot;perfix%26quot; , %26quot;@%26quot;
bak_set.Add %26quot;date_out%26quot; , %26quot;2%26quot;

ÒÔÉÏÊDZ¸·ÝÉèÖÃÎļþ£¬root_dir ÊÇÍøÕ¾Ö÷Ŀ¼µÄ·¾¶£¬ÊÇÍøÕ¾µÄÒ»¸öÈ«¾ÖÉèÖã¬Ê£ÏµÄÊDZ¸·ÝÉèÖã¬ÎÒÃÇÐèÒªÖªµÀ£ºÒª±¸·ÝµÄÎļþÃû¡¢Â·¾¶£¬±¸·ÝÔÚʲôµØ·½£¬±¸·Ý±£Áô¼¸Ì죬±¸·ÝÎļþµÄÎļþÃûǰ׺£¬Á½¸ö¾­³£±ä»¯µÄÉèÖÃÊÇ×îºó±¸·ÝÈÕÆÚºÍ±¸·Ý Õ¾³¤×ÊÑ¶Íø»¶Ó­Äú(www.chinahtml.com)¹ýµÄÈÕÆÚµÄÁÐ±í¡£ÔÚÈ«²¿µÄ·¾¶ÉèÖÃÖж¼ÐèÒªÓá°/¡±½áÊø

Iso±ê×¼ÈÕÆÚº¯Êý£º

Function IsoDate(str_date) Dim temp
If IsDate(str_date) Then
temp = Year(str_date)%26amp;%26quot;-%26quot;%26amp; Right(%26quot;0%26quot;%26amp;Month(str_date),2) %26amp; %26quot;-%26quot;%26amp; Right(%26quot;0%26quot; %26amp; Day(str_date),2)
Else
temp = str_date
End If
IsoDate=temp
End Function

没有评论: