<%
'***************************** cds系統(tǒng) fso操作類 beta1 *****************************
'調(diào)用方法: set obj=new fsocontrol
'所有路徑必須為絕對(duì)路徑,請(qǐng)采用server.mappath方法轉(zhuǎn)換路徑后再定義變量
'------ filerun ---------------------------------------
'
'必選參數(shù):
'filepath ------ 處理文件路徑
'
'可選參數(shù):
'fileallowtype ------ 處理文件允許的類型,定義方法例: gif|jpg|png|txt
'filenewdir ------ 文件處理后保存到的目錄
'filenewname ------ 新文件名前綴,請(qǐng)不要添加后綴, 例: sample.txt 則為 sample
'coverpr ------ 是否覆蓋已有的文件 0為否 1為是 默認(rèn)為1
'deletepr ------ 是否刪除原文件 0為否 1為是 默認(rèn)為1
'---------------------------------------------------------
'------ updir(path) 取path的父目錄
'path可為文件,也可為目錄
'------ getprefixname(path) 取文件名前綴
'path必須為文件,可為完整路徑,也可是單獨(dú)文件名
'------ getfilename(path) 取文件名
'path必須為文件,可為完整路徑,也可是單獨(dú)文件名
'------ getextensionname(path) 取文件名后綴,不包含"."
'path必須為文件,可為完整路徑,也可是單獨(dú)文件名
'------ fileis(path) path是否為一文件
'如為,返回 true 否則返回 false
'------ foldercreat(path)
'------ folderdelete(path,fileif)
'------ filecopy(path_from,path_to,coverif)
'------ filemove(path_from,path_to,coverif)
'------ filedelete(path)
'------ filerename(oldname,newname,coverif)
class fsocontrol
dim fso
private file_path,file_allowtype,file_newfolder_path,file_newname,file_coverif,file_deleteif
public property let filepath(strtype)
file_path=strtype
end property
public property let fileallowtype(strtype)
file_allowtype=strtype
end property
public property let filenewdir(strtype)
file_newfolder_path=strtype
end property
public property let filenewname(strtype)
file_newname=strtype
end property
public property let coverpr(lngsize)
if isnumeric(lngsize) then
file_coverif=clng(lngsize)
end if
end property
public property let deletepr(lngsize)
if isnumeric(lngsize) then
file_deleteif=clng(lngsize)
end if
end property
private sub class_initialize()
set fso=createobject("scripting.filesystemobject") 
file_path=""
file_allowtype="gif|jpg|png|txt"
file_newfolder_path=""
file_newname=""
file_coverif=1
file_deleteif=0
end sub 
private sub class_terminate()
err.clear
set fso=nothing
end sub
public function updir(byval d)
if len(d) = 0 then
updir=""
else
updir=left(d,instrrev(d,"\")-1)
end if
end function
public function getprefixname(byval d)
if len(d) = 0 then
getprefixname=""
else
filename=getfilename(d)
getprefixname=left(filename,instrrev(filename,".")-1)
end if
end function
public function getfilename(name)
filename=split(name,"\")
getfilename=filename(ubound(filename))
end function
public function getextensionname(name)
filename=split(name,".")
getextensionname=filename(ubound(filename))
end function
public function fileis(path)
if fso.fileexists(path) then
fileis=true
else
fileis=false
end if
end function
public function fileopen(path,newfile,readaction,linecount)
if fileis(path)=false then
if newfile<>1 then
fileopen=false
elseif folderis(updir(path))=false then
fileopen=false
exit function
else
fso.opentextfile path,1,true
fileopen=""
end if
exit function
end if
set fileoption=fso.getfile(path)
if fileoption.size=0 then
set fileoption=nothing
fileopen=""
exit function
end if
set fileoption=nothing
set filetext=fso.opentextfile(path,1)
if isnumeric(readaction) then
fileopen=filetext.read(readaction)
elseif ucase(readaction)="all" then
fileopen=filetext.readall()
elseif ucase(readaction)="line" then
if not(isnumeric(linecount)) or linecount=0 then
fileopen=false
set filetext=nothing
exit function
else
i=0
do while not filetext.atendofstream
fileopen=fileopen&filetext.readline
i=i+1
if i=linecount then exit do
loop
end if
end if
set filetext=nothing 
end function
public function filewrite(path,writestr,newfile)
if folderis(updir(path))=false then
filewrite=false
exit function
elseif fileis(path)=false and newfile<>1 then
filewrite=false
exit function
end if
set filetext=fso.opentextfile(path,2,true)
filetext.write writestr
set filetext=nothing
filewrite=true
end function
public function folderis(path)
if fso.folderexists(path) then
folderis=true
else
folderis=false
end if
end function
public function foldercreat(path)
if fso.folderexists(path) then
foldercreat="指定要?jiǎng)?chuàng)建目錄已存在"
exit function
elseif not(fso.folderexists(updir(path))) then
foldercreat="指定要?jiǎng)?chuàng)建的目錄路徑錯(cuò)誤"
exit function
end if
fso.createfolder(path)
foldercreat=true
end function
public function folderdelete(path,fileif)
if not(fso.folderexists(path)) then
folderdelete="指定要?jiǎng)h除的目錄不存在"
exit function
end if
if fileif=1 then
set fsofile = fso.getfolder(path)
if(fsofile.subfolders.count>0 or fsofile.files.count>0) then
set fsofile=nothing
folderdelete="只要要?jiǎng)h除的目錄下含有文件或子目錄,不允許刪除"
exit function
end if
set fsofile=nothing
end if
fso.deletefolder(path)
folderdelete=true
end function
public function filecopy(path_from,path_to,coverif)
if not(fso.fileexists(path_from)) then
filecopy="指定要復(fù)制的文件不存在"
exit function
elseif not(fso.folderexists(updir(path_to))) then
filecopy="指定要復(fù)制到的目錄不存在"
exit function
end if
if coverif=0 and fso.fileexists(path_to) then
filecopy="指定要復(fù)制到的目錄下已存在相同名稱文件,不允許覆蓋"
exit function
end if
fso.copyfile path_from,path_to
filecopy=true
end function
public function filemove(path_from,path_to,coverif)
if not(fso.fileexists(path_from)) then
filemove="指定要移動(dòng)的文件不存在"
exit function
elseif not(fso.folderexists(updir(path_to))) then
filemove="指定要移動(dòng)到的目錄不存在"
exit function
end if
if fso.fileexists(path_to) then
if coverif=0 then
filemove="指定要移動(dòng)到的目錄下已存在相同名稱文件,不允許覆蓋"
exit function
else
call filedelete(path_to)
end if
end if
fso.movefile path_from,path_to
filemove=true
end function
public function filedelete(path)
if not(fso.fileexists(path)) then
filedelete="指定要?jiǎng)h除的文件不存在"
exit function
end if
fso.deletefile path
filedelete=true
end function
public function filerename(oldname,newname,coverif)
newname=newname&"."&getextensionname(oldname)
if getfilename(oldname)=newname then
filerename="更改前的文件與更改后的文件名稱相同"
exit function
elseif not(fso.fileexists(oldname)) then
filerename="指定更改名稱的文件不存在"
exit function
elseif fso.fileexists(updir(oldname)&"\"&newname) then
if coverif=0 then
filerename="目錄下已存在與更改后的文件名稱相同的文件,不允許覆蓋"
exit function
else
call filedelete(updir(oldname)&"\"&newname)
end if
end if
set fsofile=fso.getfile(oldname)
fsofile.name=newname
set fsofile=nothing
filerename=true
end function
public function filerun()
if file_newfolder_path="" and file_newname="" then
filerun="此操作執(zhí)行后并未對(duì)指定文件產(chǎn)生變動(dòng),系統(tǒng)自動(dòng)中止"
exit function
elseif file_path="" or not(fso.fileexists(file_path)) then
filerun="要進(jìn)行操作的文件不存在"
exit function
elseif instr(file_allowtype,getextensionname(file_path))=0 then
filerun="要進(jìn)行操作的文件被系統(tǒng)拒絕,允許的格式為: "&replace(file_allowtype,"|"," ")
exit function
end if
if file_newfolder_path="" then
file_newfolder_path=updir(file_path)
elseif not(fso.folderexists(file_newfolder_path)) then
filerun="指定要移動(dòng)到的目錄不存在"
exit function
end if
if right(file_newfolder_path,1)<>"\" then file_newfolder_path=file_newfolder_path&"\"
if file_newname="" then
file_newpath=file_newfolder_path&getfilename(file_path)
else
file_newpath=file_newfolder_path&file_newname&"."&getextensionname(file_path)
end if
if file_path=file_newpath then
filerun="此操作執(zhí)行后并未對(duì)指定文件產(chǎn)生變動(dòng),系統(tǒng)自動(dòng)中止"
exit function
elseif updir(file_path)<>updir(file_newpath) then
if file_deleteif=1 then
call filemove(file_path,file_newpath,file_coverif)
else
call filecopy(file_path,file_newpath,file_coverif)
end if
filerun=true
else
'if file_deleteif=1 then
call filerename(file_path,getprefixname(file_newpath),file_coverif)
'else
' call filecopy(file_path,file_newpath,file_coverif)
'end if
filerun=true
end if
end function
end class
%> 

<%
'aspjpeg綜合操作class
'authour: tony 05/09/05
class aspjpeg
dim aspjpeg_obj,obj
private img_mathpath_from,img_mathpath_to,img_reduce_size,coverif
private img_frame_size,img_frame_color,img_frame_solid,img_frame_width,img_frame_height
private img_font_content,img_font_family,img_font_color,img_font_quality,img_font_size,img_font_bold,img_font_x,img_font_y
private img_picin_path,img_picin_x,img_picin_y
'--------------取原文件路徑
public property let mathpathfrom(strtype)
img_mathpath_from=strtype
end property
'--------------取文件保存路徑
public property let mathpathto(strtype)
img_mathpath_to=strtype
end property
'--------------保存文件時(shí)是否覆蓋已有文件
public property let covepro(lngsize)
if lngsize=0 or lngsize=1 or lngsize=true or lngsize=false then
coverif=lngsize
end if
end property
'---------------取縮略圖/放大圖 縮略值
public property let reducesize(lngsize)
if isnumeric(lngsize) then
img_reduce_size=lngsize
end if
end property
'---------------取描邊屬性
'邊框粗細(xì)
public property let framesize(lngsize)
if isnumeric(lngsize) then
img_frame_size=clng(lngsize)
end if
end property
'邊框?qū)挾?
public property let framewidth(lngsize)
if isnumeric(lngsize) then
img_frame_width=clng(lngsize)
end if
end property
'邊框高度
public property let frameheight(lngsize)
if isnumeric(lngsize) then
img_frame_height=clng(lngsize)
end if
end property
'邊框顏色
public property let framecolor(strtype)
if strtype<>"" then
img_frame_color=strtype
end if
end property
'邊框是否加粗
public property let framesolid(lngsize)
if lngsize=1 or lngsize=0 or lngsize=true or lngsize=false then
img_frame_solid=lngsize
end if
end property
'---------------取插入文字屬性
'插入的文字
public property let content(strtype)
if strtype<>"" then
img_font_content=strtype
end if
end property
'文字字體
public property let fontfamily(strtype)
if strtype<>"" then
img_font_family=strtype
end if
end property
'文字顏色
public property let fontcolor(strtype)
if strtype<>"" then
img_font_color=strtype
end if
end property
'文字品質(zhì)
public property let fontquality(lngsize)
if isnumeric(lngsize) then
img_font_quality=clng(lngsize)
end if
end property
'文字大小
public property let fontsize(lngsize)
if isnumeric(lngsize) then
img_font_size=clng(lngsize)
end if
end property
'文字是否加粗
public property let fontbold(lngsize)
if lngsize=1 or lngsize=0 or lngsize=true or lngsize=false then
img_font_bold=lngsize
end if
end property
'輸入文字的x坐標(biāo)
public property let fontx(lngsize)
if isnumeric(lngsize) then
img_font_x=clng(lngsize)
end if
end property
'輸入文字的y坐標(biāo)
public property let fonty(lngsize)
if isnumeric(lngsize) then
img_font_y=clng(lngsize)
end if
end property
'---------------取插入圖片屬性
'插入圖片的路徑
public property let picinpath(strtype)
img_picin_path=strtype
end property
'圖片插入的x坐標(biāo)
public property let picinx(lngsize)
if isnumeric(lngsize) then
img_picin_x=clng(lngsize)
end if
end property
'圖片插入的y坐標(biāo)
public property let piciny(lngsize)
if isnumeric(lngsize) then
img_picin_y=clng(lngsize)
end if
end property
private sub class_initialize()
set aspjpeg_obj=createobject("persits.jpeg") 
img_mathpath_from=""
img_mathpath_to=""
img_reduce_size=150
img_frame_size=1
'img_frame_width=0
'img_frame_height=0
'img_frame_color="&h000000"
'img_frame_bold=false
img_font_content="goldenleaf"
'img_font_family="arial"
'img_font_color="&h000000"
img_font_quality=3
img_font_size=14
'img_font_bold=false
img_font_x=10
img_font_y=5
'img_picin_x=0
'img_picin_y=0
coverif=1
end sub 
private sub class_terminate()
err.clear
set aspjpeg_obj=nothing
end sub
'判斷文件是否存在
private function fileis(path)
set fsos=server.createobject("scripting.filesystemobject")
fileis=fsos.fileexists(path)
set fsos=nothing
end function
'判斷目錄是否存在
private function folderis(path)
set fsos=server.createobject("scripting.filesystemobject")
folderis=fsos.folderexists(path)
set fsos=nothing
end function
'*******************************************
'函數(shù)作用：取得當(dāng)前文件的上一級(jí)路徑
'*******************************************
private function updir(byval d)
if len(d) = 0 then
updir=""
else
updir=left(d,instrrev(d,"\")-1)
end if
end function
private function errors(errors_id)
select case errors_id
case "0"
errors="指定文件不存在"
case 1
errors="指定目錄不存在"
case 2
errors="已存在相同名稱文件"
case 3
errors="參數(shù)溢出"
end select
end function
'取圖片寬度
public function imginfo_width(img_mathpath)
if not(fileis(img_mathpath)) then
'exit function
imginfo_width=errors(0)
else
aspjpeg_obj.open img_mathpath
imginfo_width=aspjpeg_obj.width
end if
end function
'取圖片高度
public function imginfo_height(img_mathpath)
if not(fileis(img_mathpath)) then
'exit function
imginfo_height=errors(0)
else
aspjpeg_obj.open img_mathpath
imginfo_height=aspjpeg_obj.height
end if
end function
'生成縮略圖/放大圖
public function img_reduce()
if not(fileis(img_mathpath_from)) then
img_reduce=errors(0)
exit function
end if
if not(folderis(updir(img_mathpath_to))) then
img_reduce=errors(1)
exit function
end if
if coverif=0 or coverif=false then
if fileis(img_mathpath_to) then
img_reduce=errors(2)
exit function
end if
end if
aspjpeg_obj.open img_mathpath_from
aspjpeg_obj.preserveaspectratio = true
if aspjpeg_obj.originalwidth>aspjpeg_obj.originalheight then
aspjpeg_obj.width=img_reduce_size
else
aspjpeg_obj.height=img_reduce_size
end if
if aspjpeg_obj.originalwidth>img_reduce_size or aspjpeg_obj.originalheight>img_reduce_size then
if aspjpeg_obj.width