<dl id="obfdf"></dl>

<progress id="obfdf"><tr id="obfdf"></tr></progress>

      <em id="obfdf"><ol id="obfdf"><mark id="obfdf"></mark></ol></em>

      <progress id="obfdf"><tr id="obfdf"><object id="obfdf"></object></tr></progress>
      <dl id="obfdf"><ins id="obfdf"></ins></dl>
      <em id="obfdf"><ol id="obfdf"><thead id="obfdf"></thead></ol></em>

      张金磊的个人网站

      当前位置:首页 > 建站知识
      服务热线
      18695836489
      联系邮箱
      [email protected]

      Asp开发中文件操作函数集技巧

      时间:2016-03-05 00:00:00 浏览:

      <% '===============asp 文件操作函数集1.0版本========================= 周口建网站
      '     整理作者: 张辉 周口建网站
      '     程序员代号:WJ008 周口建网站
      '     整理时间:2008年 6 月 1 日 周口建网站
      '     关注地址:www.wj008.net 周口建网站
      '     所有函数使用的文件地址 全部使用绝对地址 周口建网站
      '==================================================================== 周口建网站
      'LoadFile(ByVal File) 加载已经有的文件,并把文件的内容生成一个?#22336;?#20018;返回 周口建网站
      'SaveToFile(ByVal strBody,ByVal File) 把更改的文件保存,strBody为新的?#22336;?#20018; 周口建网站
      'DelFile(ByVal File)    删除已有的文件 周口建网站
      '加载已经有的文件,File为文件路径 周口建网站
      '------------------------------------------------------------------- 周口建网站
      Function LoadFile(ByVal File) 周口建网站
      Dim objStream 周口建网站
      On Error Resume Next 周口建网站
      Set objStream = Server.CreateObject("ADODB.Stream") 周口建网站
      If Err.Number=-2147221005 Then 周口建网站
      Response.Write " 非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序" 周口建网站
      Err.Clear 周口建网站
      Response.End 周口建网站
      End If 周口建网站
      With objStream 周口建网站
      .Type = 2 周口建网站
      .Mode = 3 周口建网站
      .Open 周口建网站
      .LoadFromFile File 周口建网站
      If Err.Number<>0 Then 周口建网站
      Response.Write " 文件"&File&"无法被打开,请检查是否存在!" 周口建网站
      Err.Clear 周口建网站
      Response.End 周口建网站
      End If 周口建网站
      .Charset = "GB2312" 周口建网站
      .Position = 2 周口建网站
      LoadFile = .ReadText 周口建网站
      .Close 周口建网站
      End With 周口建网站
      Set objStream = Nothing 周口建网站
      End Function 周口建网站
      '------------------------------------------------------------------- 周口建网站
      Function SaveToFile(ByVal strBody,ByVal File) '保存打开的文件,File为保存的文件路径,strBody为保存的内容 周口建网站
      Dim objStream 周口建网站
      On Error Resume Next 周口建网站
      Set objStream = Server.CreateObject("ADODB.Stream") 周口建网站
      If Err.Number=-2147221005 Then 周口建网站
      Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>" 周口建网站
      Err.Clear 周口建网站
      Response.End 周口建网站
      End If 周口建网站
      With objStream 周口建网站
      .Type = 2 周口建网站
      .Open 周口建网站
      .Charset = "GB2312" 周口建网站
      .Position = objStream.Size 周口建网站
      .WriteText = strBody 周口建网站
      .SaveToFile File,2 周口建网站
      .Close 周口建网站
      End With 周口建网站
      Set objStream = Nothing 周口建网站
      End Function 周口建网站
      '------------------------------------------------------------------- 周口建网站
      Function DelFile(ByVal File) 周口建网站
      Dim objFilesys 周口建网站
      On Error Resume Next 周口建网站
      Set objFilesys=server.createobject("scripting.filesystemobject") 周口建网站
      If objFilesys.FILEExists(File) then '如果文件存在着删除它 FILE为文件路径 周口建网站
      objFilesys.deleteFILE File 周口建网站
      End if 周口建网站
      If Err.Number<>0 Then 周口建网站
      Response.Write " 文件"&File&"无法被删除,可能文件正在被系统使用中!" 周口建网站
      Err.Clear 周口建网站
      Response.End 周口建网站
      End If 周口建网站
      Set objFilesys=nothing 周口建网站
      End Function周口建网站

      '检查文件是否存在 周口建网站
      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(Chk_Path) 周口建网站
      set fso = server.createobject("scripting.filesystemobject") 周口建网站
      if fso.FolderExists(Chk_Path)=false then 周口建网站
      CheckFolder=false 周口建网站
      else 周口建网站
      CheckFolder=true 周口建网站
      end if 周口建网站
      End function周口建网站

      '得到文件后缀名 周口建网站
      function GetFileExt(sFileName) 周口建网站
      GetFileExt = UCase(Mid(sFileName,InStrRev (sFileName, ".")+1)) 周口建网站
      End function周口建网站

      '******************************************************* 周口建网站
      '作 用: ASP上传漏洞 "" 防范 周口建网站
      '函数名: TrueStr(fileTrue) 周口建网站
      '参 数: sFileName 文件名 周口建网站
      '返回值: 合法文件返回 True ,否则返回False 周口建网站
      '******************************************************* 周口建网站
      function IsTrueFileName(sFileName) 周口建网站
      dim str_len,pos 周口建网站
      str_len=len(sFileName) 周口建网站
      pos=Instr(sFileName,chr(0)) 周口建网站
      If pos=0 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=1 周口建网站
      dim return 周口建网站
      dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8) 周口建网站
      dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D) 周口建网站
      dim png(3):png(0)=CByte(&H89):png(1)=CByte(&H50):png(2)=CByte(&H4E):png(3)=CByte(&H47) 周口建网站
      dim gif(5):gif(0)=CByte(&H47):gif(1)=CByte(&H49):gif(2)=CByte(&H46):gif(3)=CByte(&H39):gif(4)=CByte(&H38):gif(5)=CByte(&H61)周口建网站

      on error resume next周口建网站

      return=false 周口建网站
      dim fstream,fileExt,stamp,i 周口建网站
      '得到文件后缀并转化为小写 周口建网站
      FileExt = LCase(GetFileExt(sFileName)) 周口建网站
      '如果文件后缀为 jpg,jpeg,bmp,gif,png 中的?#25105;?#31181; 周口建网站
      '则执行真实图片判断 周口建网站
      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=0 周口建网站
      select case LCase(FileExt) 周口建网站
      case "jpg","jpeg" 周口建网站
      stamp=fstream.read(2) 周口建网站
      for i=0 to 1 周口建网站
      If ascB(MidB(stamp,i+1,1))=jpg(i) then return=true else return=false 周口建网站
      next 周口建网站
      'http://www.knowsky.com周口建网站
      case "gif" 周口建网站
      stamp=fstream.read(6) 周口建网站
      for i=0 to 5 周口建网站
      If ascB(MidB(stamp,i+1,1))=gif(i) then return=true else return=false 周口建网站
      next 周口建网站
      case "png" 周口建网站
      stamp=fstream.read(4) 周口建网站
      for i=0 to 3 周口建网站
      If ascB(MidB(stamp,i+1,1))=png(i) then return=true else return=false 周口建网站
      next 周口建网站
      case "bmp" 周口建网站
      stamp=fstream.read(2) 周口建网站
      for i=0 to 1 周口建网站
      If ascB(MidB(stamp,i+1,1))=bmp(i) then return=true else return=false 周口建网站
      next 周口建网站
      End select周口建网站

      fstream.Close 周口建网站
      Set fseteam=nothing 周口建网站
      If err.number<>0 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|COM|ASP|ASA|DLL|php|jsp|CGI" 周口建网站
      sFileExt = UCase(sFileExt) 周口建网站
      strExt   = UCase(strExt)    周口建网站
      arrExt = split(strExt,"|") 周口建网站
      If blnAllow=true then         '?#36745;?#35768;上传指定的文件 周口建网站
      return = false 周口建网站
      for i=0 to UBound(arrExt) 周口建网站
      If sFileExt=arrExt(i) then return=true 周口建网站
      next 周口建网站
      'response.write "Ext: "&sFileExt & " return: " & return & "   " 周口建网站
      else                        '禁止上传指定的文件 周口建网站
      return = true 周口建网站
      for i=0 to UBound(arrExt) 周口建网站
      If sFileExt=arrExt(i) then return=false 周口建网站
      next 周口建网站
      End If 周口建网站
      CheckFileExt = return 周口建网站
      End Function 周口建网站
      '******************************************************* 周口建网站
      '作 用: 格式化?#20801;?#25991;件大小 周口建网站
      'FileSize: 文件大小 周口建网站
      '******************************************************* 周口建网站
      Function FormatSize(FileSize) 周口建网站
      If FileSize<1024 then FormatSize = FileSize & " Byte" 周口建网站
      If FileSize/1024 <1024 And FileSize/1024 > 1 then 周口建网站
      FileSize = FileSize/1024 周口建网站
      FormatSize=round(FileSize*100)/100 & " KB" 周口建网站
      Elseif FileSize/(1024*1024) > 1 Then 周口建网站
      FileSize = FileSize/(1024*1024) 周口建网站
      FormatSize = round(FileSize*100)/100 & " MB" 周口建网站
      End If 周口建网站
      End function 周口建网站
      '******************************************************* 周口建网站
      '作用?#21512;?#36733;文件。 周口建网站
      '函数名: DownFile(FileName) 周口建网站
      ' FileName 周口建网站
      '******************************************************* 周口建网站
      Sub DownFile(FileName) 周口建网站
      fname = server.MapPath(fname) 周口建网站
      filename=split(fname,"")周口建网站

      Set objAdoStream=Server.createObject("ADODB.Stream") 周口建网站
      objAdoStream.Type=1 周口建网站
      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(10)) 周口建网站
      For I = 0 to UBound(Arr) 周口建网站
      Str_temp= Arr(I) 周口建网站
      Str_temp=Replace(Trim(Str_temp),chr(13),"") 周口建网站
      If Trim(Str_temp)<>"" and InStr(Trim(Str_temp),";")<>1 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(0))=MyItem and sesstion_temp=MySession then 周口建网站
      ReadIni= Trim(MyArray(1)) 周口建网站
      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_temp2,Rstr 周口建网站
      IsDo=false 周口建网站
      IsHave=false 周口建网站
      MyString=LoadFile(FilePath_Name) 周口建网站
      Arr=split(MyString,chr(10)) 周口建网站
      For I = 0 to UBound(Arr) 周口建网站
      Str_temp= Arr(I) 周口建网站
      Str_temp=Replace(Trim(Str_temp),chr(13),"") 周口建网站
      if not IsDo then 周口建网站
      If Trim(Str_temp)<>"" and InStr(Trim(Str_temp),";")<>1 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_temp2 and IsHave then 周口建网站
      Str_temp=MyItem&"="&MyValue&VbCrLf&Str_temp 周口建网站
      IsDo=true 周口建网站
      end if 周口建网站
      sesstion_temp2=sesstion_temp 周口建网站
      if sesstion_temp=MySession then IsHave=true 周口建网站
      Else 周口建网站
      MyArray = Split(Trim(Str_temp), "=") 周口建网站
      If Trim(MyArray(0))=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(),即输出200409071553464617,为2004年09月07日15时53分46秒4617随机数 周口建网站
      '关联函数:FormatIntNumber 周口建网站
      '**************************************** 周口建网站
      GetRanNum = "" 周口建网站
      GetRanNum = GetRanNum&FormatIntNumber(year(now),4) 周口建网站
      GetRanNum = GetRanNum&FormatIntNumber(month(now),2) 周口建网站
      GetRanNum = GetRanNum&FormatIntNumber(day(now),2) 周口建网站
      GetRanNum = GetRanNum&FormatIntNumber(hour(now),2) 周口建网站
      GetRanNum = GetRanNum&FormatIntNumber(minute(now),2) 周口建网站
      GetRanNum = GetRanNum&FormatIntNumber(second(now),2) 周口建网站
      randomize 周口建网站
      ranNum=int((9000*rnd)+1000) 周口建网站
      GetRanNum = GetRanNum&ranNum 周口建网站
      End Function周口建网站

      Function FormatIntNumber(ExPRession,Digit) 周口建网站
      '**************************************** 周口建网站
      '函数名:FormatIntNumber 周口建网站
      '作 用:输出Digit位左边带0整数 周口建网站
      '参 数:Expression   ----要格式化整数 周口建网站
      '参 数:Digit        ----要格式化位数 周口建网站
      '返回值:如0005,如FormatIntNumber(5,4),整数5被格式化为0005 周口建网站
      '关联函数:无 周口建网站
      '**************************************** 周口建网站
      While Len(Expression) < Digit 周口建网站
      Expression = "0"&Expression 周口建网站
      wend 周口建网站
      FormatIntNumber = Expression 周口建网站
      End Function 周口建网站
      %> 周口建网站
       周口建网站

      上一篇:C# 连接sql数据库对 access的操作
      下一篇:conn.asp相关知识点总结技巧
      分享到:

      联系我们

      三石网站,设计开发安全无漏洞网站。

      办公邮箱:[email protected]公司地址:河南省周口市太康县

      选择三石,选择快捷!三石网络,让您不同!
      广东十一选五杀号公式
      <dl id="obfdf"></dl>

      <progress id="obfdf"><tr id="obfdf"></tr></progress>

          <em id="obfdf"><ol id="obfdf"><mark id="obfdf"></mark></ol></em>

          <progress id="obfdf"><tr id="obfdf"><object id="obfdf"></object></tr></progress>
          <dl id="obfdf"><ins id="obfdf"></ins></dl>
          <em id="obfdf"><ol id="obfdf"><thead id="obfdf"></thead></ol></em>
          <dl id="obfdf"></dl>

          <progress id="obfdf"><tr id="obfdf"></tr></progress>

              <em id="obfdf"><ol id="obfdf"><mark id="obfdf"></mark></ol></em>

              <progress id="obfdf"><tr id="obfdf"><object id="obfdf"></object></tr></progress>
              <dl id="obfdf"><ins id="obfdf"></ins></dl>
              <em id="obfdf"><ol id="obfdf"><thead id="obfdf"></thead></ol></em>