結(jié)合FSO操作和Aspjpeg組件寫的Class
《結(jié)合FSO操作寫的一個Class》
尚在完善中,基本功能已具備.
也可作為初學(xué)者的教程
程序代碼
<% '*****************************?CDS系統(tǒng)?FSO操作類?Beta1?***************************** '調(diào)用方法:?Set?Obj=New?FSOControl '所有路徑必須為絕對路徑,請采用Server.MapPath方法轉(zhuǎn)換路徑后再定義變量 '------?FileRun?--------------------------------------- ' '必選參數(shù): 'FilePath?------?處理文件路徑 ' '可選參數(shù): 'FileAllowType?------?處理文件允許的類型,定義方法例:?gif|jpg|png|txt 'FileNewDir?------?文件處理后保存到的目錄 'FileNewName?------?新文件名前綴,請不要添加后綴,?例:?sample.txt?則為?sample 'CoverPr?------?是否覆蓋已有的文件?0為否?1為是?默認(rèn)為1 'deletePr?------?是否刪除原文件?0為否?1為是?默認(rèn)為1 '--------------------------------------------------------- '------?UpDir(path)?取path的父目錄 'path可為文件,也可為目錄 '------?GetPrefixName(path)?取文件名前綴 'path必須為文件,可為完整路徑,也可是單獨文件名 '------?GetFileName(path)?取文件名 'path必須為文件,可為完整路徑,也可是單獨文件名 '------?GetExtensionName(path)?取文件名后綴,不包含"." 'path必須為文件,可為完整路徑,也可是單獨文件名 '------?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="指定要創(chuàng)建目錄已存在" Exit?Function ElseIf?Not(fso.FolderExists(UpDir(Path)))?then FolderCreat="指定要創(chuàng)建的目錄路徑錯誤" Exit?Function End?If fso.createFolder(Path) FolderCreat=True End?Function Public?Function?Folderdelete(Path,FileIF) If?Not(fso.FolderExists(Path))?then Folderdelete="指定要刪除的目錄不存在" 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="只要要刪除的目錄下含有文件或子目錄,不允許刪除" 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="指定要移動的文件不存在" Exit?Function ElseIf?Not(fso.FolderExists(UpDir(Path_To)))?then FileMove="指定要移動到的目錄不存在" Exit?Function End?If If?fso.FileExists(Path_To)?then If?CoverIF=0?then FileMove="指定要移動到的目錄下已存在相同名稱文件,不允許覆蓋" 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="指定要刪除的文件不存在" 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í)行后并未對指定文件產(chǎn)生變動,系統(tǒng)自動中止" Exit?Function ElseIf?File_Path=""?or?Not(fso.FileExists(File_Path))?then FileRun="要進行操作的文件不存在" Exit?Function ElseIf?Instr(File_AllowType,GetExtensionName(File_Path))=0?then FileRun="要進行操作的文件被系統(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="指定要移動到的目錄不存在" 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í)行后并未對指定文件產(chǎn)生變動,系統(tǒ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》
>>>---------我想分頁!--這么長的文章,在這里來個分頁多好?。」?---------<<<
《ASPJPEG綜合操作CLASS》
基本上能實現(xiàn)ASPJPEG的所有功能
代碼有詳細(xì)注釋,還不懂的請?zhí)岢?/p>
有建議及更多功能提議的請?zhí)岢?/p>
謝謝
程序代碼
<% '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 '--------------保存文件時是否覆蓋已有文件 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)前文件的上一級路徑 '******************************************* 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<Img_Reduce_Size?or?AspJpeg_Obj.Height<Img_Reduce_Size?then Set?AspJpeg_Obj_New=createObject("Persits.Jpeg") AspJpeg_Obj_New.new?Img_Reduce_Size,Img_Reduce_Size,&HFFFFFF AspJpeg_Obj_New.DrawImage?(150-AspJpeg_Obj.width)/2,(150-AspJpeg_Obj.height)/2,AspJpeg_Obj If?Img_Frame_Size>0?then Call?Img_Pen(AspJpeg_Obj_New) End?If If?Img_Font_Content<>""?then Img_Font_X=AspJpeg_Obj_New.Width/2 Img_Font_Y=AspJpeg_Obj_New.Height-15 Call?Img_Font(AspJpeg_Obj_New) End?If AspJpeg_Obj_New.Sharpen?1,?130 AspJpeg_Obj_New.Save?Img_MathPath_To Set?AspJpeg_Obj_New=Nothing Else If?Img_Frame_Size>0?then Call?Img_Pen(AspJpeg_Obj) End?If If?Img_Font_Content<>""?then Img_Font_X=AspJpeg_Obj.Width/2 Img_Font_Y=AspJpeg_Obj.Height-15 Call?Img_Font(AspJpeg_Obj) End?If AspJpeg_Obj.Sharpen?1,?130 AspJpeg_Obj.Save?Img_MathPath_To End?If Else If?Img_Frame_Size>0?then Call?Img_Pen(AspJpeg_Obj) End?If If?Img_Font_Content<>""?then Img_Font_X=AspJpeg_Obj.Width/2 Img_Font_Y=AspJpeg_Obj.Height-15 Call?Img_Font(AspJpeg_Obj) End?If AspJpeg_Obj.Sharpen?1,?130 AspJpeg_Obj.Save?Img_MathPath_To End?If End?Function '生成水印 Public?Function?Img_WaterMark() If?Not(FileIs(Img_MathPath_From))?then Img_WaterMark=Errors(0) Exit?Function End?If If?Img_MathPath_To=""?then Img_MathPath_To=Img_MathPath_From ElseIf?Not(FolderIs(UpDir(Img_MathPath_To)))?then Img_WaterMark=Errors(1) Exit?Function End?If If?CoverIf=0?or?CoverIf=false?then If?Img_MathPath_To<>Img_MathPath_From?and?FileIs(Img_MathPath_To)?then Img_WaterMark=Errors(2) Exit?Function End?If End?If AspJpeg_Obj.Open?Img_MathPath_From If?Img_PicIn_Path<>""?then If?Not(FileIs(Img_PicIn_Path))?then Img_WaterMark=Errors(0) Exit?Function End?If Set?AspJpeg_Obj_New=createObject("Persits.Jpeg") AspJpeg_Obj_New.Open?Img_PicIn_Path AspJpeg_Obj.PreserveAspectRatio?=?True AspJpeg_Obj_New.PreserveAspectRatio?=?True If?AspJpeg_Obj.OriginalWidth<Img_Reduce_Size?or?AspJpeg_Obj.OriginalHeight<Img_Reduce_Size?then Img_WaterMark=Errors(3) Exit?Function End?If If?AspJpeg_Obj_New.OriginalWidth>AspJpeg_Obj_New.OriginalHeight?Then AspJpeg_Obj_New.Width=Img_Reduce_Size Else AspJpeg_Obj_New.Height=Img_Reduce_Size End?If If?Img_PicIn_X=""?then?Img_PicIn_X=AspJpeg_Obj.Width-AspJpeg_Obj_New.Width If?Img_PicIn_Y=""?then?Img_PicIn_Y=AspJpeg_Obj.Height-AspJpeg_Obj_New.Height AspJpeg_Obj.DrawImage?Img_PicIn_X,Img_PicIn_Y,AspJpeg_Obj_New Set?AspJpeg_Obj_New=Nothing End?If If?Img_Frame_Size>0?then Call?Img_Pen(AspJpeg_Obj) End?If If?Img_Font_Content<>""?then Call?Img_Font(AspJpeg_Obj) End?If 'AspJpeg_Obj.Sharpen?1,?130 AspJpeg_Obj.Save?Img_MathPath_To End?Function '生成框架 Private?Function?Img_Pen(Obj) If?Img_Frame_Width=0?then?Img_Frame_Width=Obj.Width If?Img_Frame_Height=0?then?Img_Frame_Height=Obj.Height Obj.Canvas.Pen.Color?=?Img_Frame_Color Obj.Canvas.Pen.Width?=?Img_Frame_Size Obj.Canvas.Brush.Solid?=?Img_Frame_Solid Obj.Canvas.Bar?1,1,Img_Frame_Width,Img_Frame_Height End?Function '生成水印字 Private?Function?Img_Font(Obj) Obj.Canvas.Font.Color?=?Img_Font_Color? Obj.Canvas.Font.Family?=?Img_Font_Family? Obj.Canvas.Font.Quality=Img_Font_Quality Obj.Canvas.Font.Size=Img_Font_Size Obj.Canvas.Font.Bold?=?Img_Font_Bold? Obj.Canvas.Print?Img_Font_X,Img_Font_Y,Img_Font_Content End?Function End?Class %>?
到此這篇關(guān)于結(jié)合FSO操作和Aspjpeg組件寫的Class的文章就介紹到這了,更多相關(guān)FSO結(jié)合Aspjpeg內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家!
- ASP組件AspJpeg(加水印)生成縮略圖等使用方法
- aspJpeg圖片水印有雜點的完美解決方法
- win2003 AspJpeg安裝圖文教程
- 基于ASPJPEG 制作了一個夢寐已久的批量水印工具步驟
- aspjpeg 添加水印教程及生成縮略圖教程
- aspjpeg組件通用加水印函數(shù)代碼
- 動網(wǎng)論壇驗證碼改進 加法驗證碼(ASPJpeg版)
- 使用ASPJPEG出現(xiàn)0177 800401F3 錯誤的解決辦法
- asp水印組件之AspJpeg的結(jié)合代碼實例
- ASPJPEG綜合操作的CLASS類
- 水印組件AspJpeg1.801最新官方原版下載+注冊碼
- 利用ASPUPLOAD,ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印
- ASPJPEG學(xué)習(xí)手記
- 圖片自動保存到本地并利用aspjpeg為圖片加水印
- Aspjpeg添加水印完整方法
- AspJpeg?V1.5.0?破解版使用方法
- aspjpeg組件使用方法
相關(guān)文章
ASP中類Class相關(guān)內(nèi)容的整理資料
ASP中類Class相關(guān)內(nèi)容的整理資料...2007-03-03