ASP based on ADODB.stream file operation class _ Application Skills

Copy Code code as follows:

<%

'*************************************************************
' Please keep this declaration information when forwarding, this statement does not affect your speed!
'*************************************************************


'*************************************************************
' @author: Noodles
' @realname: Xu Renru
' @email: xurenlu@sohu.com
' @QQ: 55547082
' @Homepage: http://www.ksdn.net
' @ Copyright statement:
' Non-Profit groups or individuals are free to use.
'*************************************************************


'*************************************************************
' Class name: Files
' class function: to realize the file read and write function, using ADODB.stream implementation, in the host does not support the FSO can also read and write files.
'*************************************************************

class files


Private Adsavecreateoverwrite ' creates files that can overwrite files that already exist.
Private adsavecreatenotexist ' save file when file is not present, you can create a file.


'*************************************************************
' Event name: Class_Initialize ()
' Event occurrence Condition: The event occurs when the class is created
' Event content: Assigning a value to a private variable
' Event incoming parameter: none
'*************************************************************


Sub Class_Initialize ()
Adsavecreateoverwrite =2
Adsavecreatenotexist = 1
End Sub


'*************************************************************
' Function name: function ReadFile (filepath)
' function content: Read the file
' Incoming parameter: filepath: The absolute path of the file to be read
' Return parameter: The contents of the file to be read.
'*************************************************************
function ReadFile (filepath)


On Error Resume Next

Dim stm2


Set STM2 =server.createobject ("ADODB.") Stream ")
STM2. Charset = "gb2312"
STM2. Open
STM2. LoadFromFile filepath
ReadFile = stm2. ReadText
End Function


'*************************************************************
' Function name: function WriteFile (FILEPATH,STR)
' Function contents: writing to File
' Incoming parameter: filepath: The absolute path of the file to be read
' Str: What to write
' Return parameter: no return
'*************************************************************
function WriteFile (FILEPATH,STR)
On Error Resume Next
Set stm = Server.CreateObject ("ADODB.") Stream ")
Stm. Charset = "gb2312"
Stm. Open
Stm. WRITETEXT Str
Stm. SaveToFile filepath, Adsavecreateoverwrite
End Function



'*************************************************************
' Functions name: function copy (filepath_s,filepath_d)
' function content: Read the file
' Incoming parameter: filepath_d: Absolute path of destination file
' filepath_s: Source file path
'*************************************************************
function Copy (filepath_s,filepath_d)
On Error Resume Next
Dim stm2
Set STM2 =server.createobject ("ADODB.") Stream ")
STM2. Charset = "gb2312"
STM2. Open
STM2. LoadFromFile filepath_s
STM2. SaveToFile Filepath_d, Adsavecreateoverwrite
End Function
End Class
%>