Cls_Fso.asp
上传用户:jiajie98
上传日期:2020-04-24
资源大小:1206k
文件大小:6k
源码类别:

网格计算

开发平台:

PHP

  1. <%
  2. '==========================================
  3. '文 件 名:Cls_Fso.asp
  4. '文件用途:常规函数类
  5. '版权所有:方卡在线
  6. '==========================================
  7. Class Cls_Fso
  8. '==============================
  9. '函 数 名:FsoLineWrite
  10. '作    用:按行写入文件
  11. '参    数:文件相对路径FilePath,写入行号LineNum,写入内容LineContent
  12. '==============================
  13. Function FsoLineWrite(FilePath,LineNum,LineContent)
  14. If LineNum<1 Then Exit Function
  15. Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  16. If Not Fso.FileExists(Server.MapPath(FilePath)) Then Exit Function
  17. Temp=FsoFileRead(FilePath)
  18. TempArr=Split(Temp,Chr(13)&Chr(10))
  19. TempArr(LineNum-1)=LineContent
  20. Temp=Join(TempArr,Chr(13)&Chr(10))
  21. Call CreateFile(FilePath,Temp)
  22. Set Fso=Nothing
  23. End Function
  24. '==============================
  25. '函 数 名:FsoFileRead
  26. '作    用:读取文件
  27. '参    数:文件相对路径FilePath
  28. '==============================
  29. Function FsoFileRead(FilePath) 
  30. Set objAdoStream = Server.CreateObject("A"&"dod"&"b.St"&"r"&"eam")
  31. With objAdoStream
  32. .type=2
  33. .mode=3
  34. .Charset = "utf-8"
  35. .Open
  36. .LoadFromFile Server.MapPath(FilePath)
  37. .Position = 2 
  38. FsoFileRead=.ReadText
  39. End With
  40. FsoFileRead=Replace(FsoFileRead,"�","")
  41. objAdoStream.Close
  42. Set objAdoStream=Nothing
  43. End Function
  44. '==============================
  45. '函 数 名:CreateFolder
  46. '作    用:创建文件夹
  47. '参    数:文件夹相对路径FolderPath
  48. '==============================
  49. Function CreateFolder(FolderPath)
  50. If FolderPath<>"" Then
  51. Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  52. Set F=Fso.CreateFolder(Server.MapPath(FolderPath))
  53. CreateFolder=F.Path
  54. Set F=Nothing
  55. Set Fso=Nothing
  56. End If
  57. End Function
  58. '==============================
  59. '函 数 名:CreateFile
  60. '作    用:创建文件
  61. '参    数:文件相对路径FilePath,文件内容FileContent
  62. '==============================
  63. Function CreateFile(FilePath,FileContent)
  64. Dim Temps
  65. Temps=""
  66. TempArr=Split(FilePath,"/")
  67. For i=0 to UBound(TempArr)-1
  68. If Temps="" Then
  69. Temps=TempArr(i)
  70. Else
  71. Temps=Temps&"/"&TempArr(i)
  72. End If
  73. If IsFolder(Temps)=False Then
  74. Call CreateFolder(Temps)
  75. End If
  76. Next
  77. Set objAdoStream = Server.CreateObject("A"&"dod"&"b.St"&"r"&"eam")
  78. objAdoStream.Type = 2
  79. objAdoStream.Charset = "utf-8" 
  80. objAdoStream.Open
  81. objAdoStream.WriteText = FileContent
  82. objAdoStream.SaveToFile Server.MapPath(FilePath),2
  83. objAdoStream.Close()
  84. Set objAdoStream = Nothing
  85. End Function
  86. '==============================
  87. '函 数 名:DelFolder
  88. '作    用:删除文件夹
  89. '参    数:文件夹相对路径FolderPath
  90. '==============================
  91. Function DelFolder(FolderPath)
  92. If IsFolder(FolderPath)=True Then
  93. Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  94. Fso.DeleteFolder(Server.MapPath(FolderPath))
  95. DeleteFile delgkHtmlFilepath,True 
  96. Set Fso=Nothing
  97. End If 
  98. End Function 
  99. '==============================
  100. '函 数 名:DelFile
  101. '作    用:删除文件
  102. '参    数:文件相对路径FilePath
  103. '==============================
  104. Function DelFile(FilePath)
  105. If IsFile(FilePath)=True Then 
  106. Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  107. Fso.DeleteFile(Server.MapPath(FilePath))
  108. Set Fso=Nothing
  109. End If
  110. End Function 
  111.  
  112. '==============================
  113. '函 数 名:IsFile
  114. '作    用:检测文件是否存在
  115. '参    数:文件相对路径FilePath
  116. '==============================
  117. Function IsFile(FilePath)
  118. Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  119. If (Fso.FileExists(Server.MapPath(FilePath))) Then
  120. IsFile=True
  121. Else
  122. IsFile=False
  123. End If
  124. Set Fso=Nothing
  125. End Function
  126. '==============================
  127. '函 数 名:IsFolder
  128. '作    用:检测文件夹是否存在
  129. '参    数:文件相对路径FolderPath
  130. '==============================
  131. Function IsFolder(FolderPath)
  132. If FolderPath<>"" Then
  133. Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  134. If Fso.FolderExists(Server.MapPath(FolderPath)) Then  
  135. IsFolder=True
  136. Else
  137. IsFolder=False
  138. End If
  139. Set Fso=Nothing
  140. End If
  141. End Function
  142. '==============================
  143. '函 数 名:CopyFiles
  144. '作    用:复制文件
  145. '参    数:文件来源地址SourcePath,文件复制到地址CopyToPath
  146. '==============================
  147. Function CopyFiles(SourcePath,CopyToPath)
  148. Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  149.  Fso.CopyFile Server.MapPath(SourcePath),Server.MapPath(CopyToPath)
  150.  Set Fso=nothing
  151. End Function
  152. '==============================
  153. '函 数 名:SaveRemoteFile
  154. '作    用:保存远程图片
  155. '参    数:图片来源网址SourceUrl,图片保存地址SavePath
  156. '==============================
  157. Sub SaveRemoteFile(SourceUrl,SavePath)
  158. On Error Resume Next
  159. Set Temp = Server.CreateObject("Mic"&"roso"&"ft.XML"&"HT"&"TP")
  160. With Temp
  161. .Open "Get", SourceUrl, False, "", ""
  162. .Send
  163. If Err.number<>0 Then
  164. Exit Sub
  165. End If
  166. F = .ResponseBody
  167. End With
  168. Set Temp = Nothing
  169. Set objAdoStream = Server.CreateObject("A"&"dod"&"b.St"&"r"&"eam")
  170. With objAdoStream
  171. .Type = 1
  172. .Open
  173. .Write F
  174. .SaveToFile Server.MapPath(SavePath), 2
  175. .Cancel()
  176. .Close()
  177. End With
  178. Set objAdoStream=nothing
  179. End Sub
  180. End Class
  181. %>