else geturlencodel=geturlencodel&mid(Url,i,1) end if next end function
Function GenerateRandomFileName(ByVal szFilename) '根据原文件名，自动以日期YYYY-MM-DD-RANDOM格式生成新文件名 Randomize ranNum = Int(90000 * Rnd) + 10000 If Month(Now) < 10 Then c_month = "0" & Month(Now) Else c_month = Month(Now) If Day(Now) < 10 Then c_day = "0" & Day(Now) Else c_day = Day(Now) If Hour(Now) < 10 Then c_hour = "0" & Hour(Now) Else c_hour = Hour(Now) If Minute(Now) < 10 Then c_minute = "0" & Minute(Now) Else c_minute = Minute(Now) If Second(Now) < 10 Then c_second = "0" & Second(Now) Else c_second = Minute(Now) fileExt_a = Split(szFilename, ".") FileExt = LCase(fileExt_a(UBound(fileExt_a))) GenerateRandomFileName = Year(Now) & c_month & c_day & c_hour & c_minute & c_second & "_" & ranNum & "." & FileExt End Function
Function CreateDIR(ByVal LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建 On Error Resume Next LocalPath = Replace(LocalPath, "\", "/") Set FileObject = server.CreateObject("Scripting.FileSystemObject") patharr = Split(LocalPath, "/") path_level = UBound(patharr) For I = 0 To path_level If I = 0 Then pathtmp = patharr(0) & "/" Else pathtmp = pathtmp & patharr(I) & "/" cpath = Left(pathtmp, Len(pathtmp) - 1) If Not FileObject.FolderExists(cpath) Then FileObject.CreateFolder cpath Next Set FileObject = Nothing If Err.Number <> 0 Then CreateDIR = False Err.Clear Else CreateDIR = True End If End Function
function GetfileExt(byval filename) fileExt_a=split(filename,".") GetfileExt=lcase(fileExt_a(ubound(fileExt_a))) end function %>
Function findurl(thisurl) if thisurl <> "" Then findurl="" strlen=InStr(8,thisurl,"/") If strlen=0 Then strlen =1 findurl=Mid(thisurl,strlen,28) end if end Function
function findurlpath(thisurl) thisurl = replace(thisurl,"//","@@") ary_tmp = split(thisurl,"/") for tmp = 0 to ubound(ary_tmp) if tmp < ubound(ary_tmp) then urltmp = urltmp & "/" & ary_tmp(tmp) end if next urltmp = right(urltmp,len(urltmp)-1) findurlpath = replace(urltmp,"@@","//") & "/" end function
function findurlhost(thisurl) thisurl = replace(thisurl,"//","@@")
精品推荐