ASP object: The file operation class based on ADODB.stream

Ado|stream| Object <%

’*************************************************************
' 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


’***************************************