Tutorials to .com

Tutorials to .com » Asp » Fso » asp commonly used in document processing function

asp commonly used in document processing function

Print View , by: iSee ,Total views: 10 ,Word Count: 585 ,Date: Thu, 16 Apr 2009 Time: 4:36 AM

asp file upload, as well as dealing with often used to delete a custom function

<%
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
'All the custom function of VBS
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
function DeleteFile (Filename) 'Delete Files
if Filename <> "" then
Set fso = server.CreateObject ( "Scripting.FileSystemObject")
if fso.FileExists (Filename) then
fso.DeleteFile Filename
end if
set fso = nothing
end if
end function
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
function CreateDIR (byval LocalPath) 'create the directory of the procedure, if a number of class directory, create a level
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 SaveRandFileName (byval szFilename) 'in accordance with the original file name to generate a new random file name
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)))

SaveRandFileName = replace (replace (replace (now ,":",""),"-","")," ","")& int (10 * rnd )&"."& fileExt
'GenerateRandomFileName = year (now) & c_month & c_day & c_hour & c_minute & c_second &"_"& ranNum &"."& fileExt
end function
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
function jaron_replacer (strContent, start_string, end_string, replace_string)
'CMS replace function: the source string, the first part, the latter part of the characters replaced by
'Return after the string is replaced
jaron_replacer = replace (strContent, mid (strContent, instr (strContent, start_string), instr (strContent, end_string) + len (end_string) -1), replace_string)
end function
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
function replaceplus (strContent, start_string, end_string, replace_string)
'Document of all the beginning and end of the deletion of all characters between the
on error resume next
MARKCOUNTS = ubound (split (strContent, start_string))
PRESTRING = strContent
for i = 0 to MARKCOUNTS
STARTMARK = instr (1, PRESTRING, start_string, 1)
if STARTMARK = 0 then exit for
COMPMARK = instr (1, PRESTRING, end_string, 1) + len (end_string)
VerString = mid (PRESTRING, STARTMARK, COMPMARK - STARTMARK)
PRESTRING = replace (PRESTRING, VerString, replace_string)
next
replaceplus = PRESTRING
if err.number <> 0 then err.Clear
end function
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
%>


ASP File System Object Articles


Can't Find What You're Looking For?


Rating: Not yet rated

Comments

No comments posted.