<%
									'-------------------- 读取模本 --------------------
'function read_mb(path)
'dim files,txt
'const ForReading=1,ForWriteing=2,ForAppending=8
'const TristateUseDefault=-2,TristateTrue=-1,Tristatefalse=0
'files=server.mappath(path)
'set fso=server.createobject("scripting.filesystemobject")
'set f=fso.getfile(files)
'set txt=f.openastextstream(forreading,tristateusedefault)
'	read_mb=txt.readall
'	txt.close
'	set txt=nothing
'end function

Function read_mb(path,CharSet)
Dim str
Set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(path)
str=stm.readtext
stm.Close
Set stm=nothing
read_mb=str
End Function
									'-------------------- /读取模本 --------------------
									'-------------------- 保存文件 --------------------
'sub save_html(path,content,charset)
'dim files,txt
'const ForReading=1,ForWriteing=2,ForAppending=8
'const TristateUseDefault=-2,TristateTrue=-1,Tristatefalse=0
'files=server.mappath(path)
'set fso=server.createobject("scripting.filesystemobject")
'set txt=fso.opentextfile(files,2,charset)
'	txt.write content
'	txt.close
'	set txt=nothing
'end sub


Sub save_html(path,byval content,charset)
Set stm=Server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText content
stm.SaveToFile server.MapPath(path),2
stm.flush
stm.Close
Set stm=Nothing
End Sub
									'-------------------- /保存文件 --------------------
%>
