asp³£ÓÃÎļþ²Ù×÷º¯Êý(Ò»)
<%
'*******************************************************
'º¯ÊýÃû£ºCreateFolder(sPath)
'×÷ ÓÃ: ´´½¨Ä¿Â¼
'²Î Êý£ºsPath : ´´½¨µÄÏà¶ÔĿ¼·¾¶
'·µ»ØÖµ£º³É¹¦ true , ʧ°Ü false
'*******************************************************
'response.Write createfolder("/dgsunshine/UploadFile/demo1/")
Function CreateFolder(sPath)
On Error Resume Next
Dim Fso,Arrfolder,Folder,i,j
If sPath="" then
CreateFolder = False
Exit Function
End If
If Left(sPath,1) = "/" Then
Folder = "/"
sPath = Mid(sPath,2,Len(sPath))
Else
Folder = "./"
End If
if Right(sPath,1) = "/" then sPath = Left(sPath,Len(sPath)-1)
ArrFolder = Split(sPath,"/")
Set Fso = Server.CreateObject("Scripting.FileSyste
Ïà¹ØÎĵµ£º
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØÖ¸Ê¹ÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
½ñÌìÓöµ½Ò»¸öasp³ÌÐò£¬ÓÃReWriteÖØÐ´URLºó£¬ÖÐÎIJÎÊýÂÒÂ룬²é×ÊÁϺó˵ÊÇReWriteËù½ÓÊյIJÎÊý×Ô¶¯×ªÎªUTF-8£¬¶øÎÒµÄÇ°Ì¨Ò³ÃæºÍÊý¾Ý¿â¶¼ÎªGB2312¸ñʽ£¬ºóÀ´ÔÚÍøÉÏÕÒÁ˺þã¬ÖÕÓÚÕÒµ½Ò»¸öÄܳɹ¦½«UTF-8ת»»ÎªGB2312µÄº¯Êý£¬º¯Êýת»»´úÂëÈçÏÂ
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.Crea ......
¡¡Ò»¡¢ »·¾³ÉèÖÃ
¡¡¡¡·þÎñÆ÷¶ËµÄ»·¾³ÉèÖôӲο¼Êý¾ÝÉÏ¿´£¬Î¢ÈíϵÁеÄÉèÖÃÓ¦¸Ã¶¼ÐУ¬¼´£º
¡¡¡¡1£®Win9x+PWS+Office
¡¡¡¡2£®Win2000 Professional+PWS+Office
¡¡¡¡3£®Win2000 Server+IIS+Office
¡¡¡¡Ä¿Ç°±ÊÕß²âÊԳɹ¦µÄ»·¾³ÊǺó¶þÕß¡£OfficeµÄ°æ±¾Ã»ÓÐÌØ±ðÐèÇ󣬿¼Âǵ½¿Í»§»úÉèÖõIJ»È·¶¨ÐÔºÍϼæÈÝÌØÐÔ£¬½¨Òé·þÎñÆ÷¶ËOf ......
<%
'©³©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©¥©·
'©§¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡©§
'©§ Õª¡¡Òª£º ͳ¼ÆÍ¼--ÇúÏßͼ &n ......
Using the global.asa to schedule ASP code execution.
Have you ever had some asp code that needed to execute every once in a while but, you just didn't know how ......