知识大全 Asp文件操作函数集

Posted 2022-07-17 文件

篇首语：树高千尺有根，水流万里有源。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Asp文件操作函数集相关的知识，希望对你有一定的参考价值。

Asp文件操作函数集 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　<% ===============asp 文件操作函数集版本=========================

　　检查文件是否存在 Function CheckFile(sFileName) CheckFile=false Dim objFilesys On Error Resume Next Set objFilesys=server createobject("scripting filesystemobject") If objFilesys FILEExists(sFileName) then 如果文件存在着删除它 FILE为文件路径 CheckFile=true End if Set objFilesys=nothing End function 检查文件夹是否存在 Function CheckFolder(C_Path) set fso = server createobject("scripting filesystemobject") if fso FolderExists(C_Path)=false then CheckFolder=false else CheckFolder=true end if End function

　　得到文件后缀名 function GetFileExt(sFileName) GetFileExt = UCase(Mid(sFileName InStrRev (sFileName " ")+ )) End function

　　 ******************************************************* 作用: ASP上传漏洞 "" 防范函数名: TrueStr(fileTrue) 参数: sFileName 文件名返回值: 合法文件返回 True 否则返回False ******************************************************* function IsTrueFileName(sFileName) dim str_len pos str_len=len(sFileName) pos=Instr(sFileName chr( )) If pos= or pos=str_len then IsTrueFileName = true else IsTrueFileName = false End If End function ******************************************************* 作用: 检测上传的图片文件(jpeg gif bmp png)是否真的为图片函数名: TrueStr(fileTrue) 参数: sFileName 文件名(此处文件名是文件夹的物理全路径) 返回值: 确实为图片文件则返回 True 否则返回False ******************************************************* Function IsImgFile(sFileName) const adTypeBinary= dim return dim jpg( ):jpg( )=CByte(&HFF):jpg( )=CByte(&HD ) dim bmp( ):bmp( )=CByte(&H ):bmp( )=CByte(&H D) dim png( ):png( )=CByte(&H ):png( )=CByte(&H ):png( )=CByte(&H E):png( )=CByte(&H ) dim gif( ):gif( )=CByte(&H ):gif( )=CByte(&H ):gif( )=CByte(&H ):gif( )=CByte(&H ):gif( )=CByte(&H ):gif( )=CByte(&H )

　　on error resume next

　　return=false dim fstream fileExt stamp i 得到文件后缀并转化为小写 FileExt = LCase(GetFileExt(sFileName)) 如果文件后缀为 jpg jpeg bmp gif png 中的任一种则执行真实图片判断 If strInString(FileExt "jpg|jpeg|bmp|gif|png")=true then Set fstream=Server createobject("ADODB Stream") fstream Open fstream Type=adTypeBinary fstream LoadFromFile sFileName fstream position= select case LCase(FileExt) case "jpg" "jpeg" stamp=fstream read( ) for i= to If ascB(MidB(stamp i+ ))=jpg(i) then return=true else return=false next case "gif" stamp=fstream read( ) for i= to If ascB(MidB(stamp i+ ))=gif(i) then return=true else return=false next case "png" stamp=fstream read( ) for i= to If ascB(MidB(stamp i+ ))=png(i) then return=true else return=false next case "bmp" stamp=fstream read( ) for i= to If ascB(MidB(stamp i+ ))=bmp(i) then return=true else return=false next End select

　　fstream Close Set fseteam=nothing If err number<> then return = false else return = true End If IsImgFile = return End function ******************************************************* 作用: 上传文件扩展名检测函数名: CheckFileExt 参数: sFileExt 上传文件夹的后缀　　　 strExt　允许或禁止上传文件夹的后缀多个以"|"分隔　　　 blnAllow 是允许还是禁止上传 strExt 中指定的后缀返回值: 合法文件返回 True 否则返回False ******************************************************* Function CheckFileExt(sFileExt strExt blnAllow) dim arrExt return = 禁止上传的文件列表 strExt = "EXE|JS|BAT|HTML|HTM||ASP|ASA|DLL|php|jsp|CGI" sFileExt = UCase(sFileExt) strExt　 = UCase(strExt)　 arrExt = split(strExt "|") If blnAllow=true then　　　　只允许上传指定的文件 return = false for i= to UBound(arrExt) If sFileExt=arrExt(i) then return=true next response write "Ext: "&sFileExt & " return: " & return & "　 " else　　　　　　　　　　　禁止上传指定的文件 return = true for i= to UBound(arrExt) If sFileExt=arrExt(i) then return=false next End If CheckFileExt = return End Function ******************************************************* 作用: 格式化显示文件大小 FileSize: 文件大小 ******************************************************* Function FormatSize(FileSize) If FileSize< then FormatSize = FileSize & " Byte" If FileSize/ < And FileSize/ > then FileSize = FileSize/ FormatSize=round(FileSize* )/ & " KB" Elseif FileSize/( * ) > Then FileSize = FileSize/( * ) FormatSize = round(FileSize* )/ & " MB" End If End function ******************************************************* 作用下载文件函数名 DownFile(FileName) FileName ******************************************************* Sub DownFile(FileName) fname = server MapPath(fname) filename=split(fname "")

　　Set objAdoStream=Server createObject("ADODB Stream") objAdoStream Type= objAdoStream open() objAdoStream LoadFromFile(fname) strchar=objAdoStream Read() fsize=objAdoStream size objAdoStream Close() Set objAdoStream=nothing

　　Response AddHeader "content type" "application/x msdownload" response AddHeader "Content Disposition" "attachment;filename=" & filename(ubound(filename)) Response AddHeader "content length" fsize

　　Response BinaryWrite(strchar) Response Flush() End Sub ==================================================================================================== 读取INI文件 Function ReadIni(FilePath_Name Mysession MyItem) Dim MyString MyArray str_temp sesstion_temp MyString=LoadFile(FilePath_Name) Arr=split(MyString chr( )) For I = to UBound(Arr) Str_temp= Arr(I) Str_temp=Replace(Trim(Str_temp) chr( ) "") If Trim(Str_temp)<>"" and InStr(Trim(Str_temp) ";")<> Then If InStr(Trim(Str_temp) "[")<InStr(Trim(Str_temp) "]") Then sesstion_temp=Trim(Str_temp) sesstion_temp=Replace(Trim(sesstion_temp) "[" "") sesstion_temp=Replace(Trim(sesstion_temp) "]" "") Else MyArray = Split(Trim(Str_temp) "=") If Trim(MyArray( ))=MyItem and sesstion_temp=MySession then ReadIni= Trim(MyArray( )) Exit Function End if End If End if Next　 ReadIni="" End Function 写入INI文件 Function WriteIni(FilePath_Name MySession MyItem MyValue) Dim MyString MyArray str_temp sesstion_temp sesstion_temp Rstr IsDo=false IsHave=false MyString=LoadFile(FilePath_Name) Arr=split(MyString chr( )) For I = to UBound(Arr) Str_temp= Arr(I) Str_temp=Replace(Trim(Str_temp) chr( ) "") if not IsDo then If Trim(Str_temp)<>"" and InStr(Trim(Str_temp) ";")<> Then If InStr(Trim(Str_temp) "[")<InStr(Trim(Str_temp) "]") Then sesstion_temp=Trim(Str_temp) sesstion_temp=Replace(Trim(sesstion_temp) "[" "") sesstion_temp=Replace(Trim(sesstion_temp) "]" "") if sesstion_temp<>sesstion_temp and IsHave then Str_temp=MyItem&"="&MyValue&VbCrLf&Str_temp IsDo=true end if sesstion_temp =sesstion_temp if sesstion_temp=MySession then IsHave=true Else MyArray = Split(Trim(Str_temp) "=") If Trim(MyArray( ))=MyItem and sesstion_temp=MySession then Str_temp= MyItem&"="&MyValue IsDo=true End if End If End if End if if(I<>UBound(Arr)) then if Str_temp<>"" then Rstr=Rstr&Str_temp&VbCrLf else if Str_temp<>"" then Rstr=Rstr&Str_temp end if Next if IsHave and IsDo=false then Rstr=Rstr&VbCrLf&MyItem&"="&MyValue if IsHave=false and IsDo=false then Rstr=Rstr&VbCrLf&"["&MySession&"]"&VbCrLf&MyItem&"="&MyValue call SaveToFile(Rstr FilePath_Name) End Function ====================================================================================================== Function GetRanNum() **************************************** 函数名 GetRanNum 作用输出带日期格式的随机数参数无　返回值如GetRanNum() 即输出为年月日时分秒随机数关联函数 FormatIntNumber **************************************** GetRanNum = "" GetRanNum = GetRanNum&FormatIntNumber(year(now) ) GetRanNum = GetRanNum&FormatIntNumber(month(now) ) GetRanNum = GetRanNum&FormatIntNumber(day(now) ) GetRanNum = GetRanNum&FormatIntNumber(hour(now) ) GetRanNum = GetRanNum&FormatIntNumber(minute(now) ) GetRanNum = GetRanNum&FormatIntNumber(second(now) ) randomize ranNum=int(( *rnd)+ ) GetRanNum = GetRanNum&ranNum End Function

cha138/Article/program/net/201311/14329