*************************************
读取文件
*************************************

函数的LoadFromFile（一个文件）
昏暗的objstream
昏暗的放射
RTEXT =阵列（0，）
集objstream = server.createobject（ADODB。流）
与objstream
类型= 2
模式= 3
开。
。字符集=UTF-8
objstream大小。位置=。
下次继续出错
LoadFromFile Server.MapPath（文件）。
如果犯错，然后
RTEXT =阵列（err.number，错误描述）
LoadFromFile =放射
呃。清晰
退出功能
最后如果
RTEXT =阵列（0，。READTEXT）
关闭
结束
LoadFromFile =放射
集objstream =没有
端功能

*************************************
保存文件
*************************************

功能SaveToFile（ByVal strbody，ByVal文件）
昏暗的objstream
昏暗的放射
RTEXT =阵列（0，）
集objstream = server.createobject（ADODB。流）
与objstream
类型= 2
开。
。字符集=UTF-8
objstream大小。位置=。
strbody WRITETEXT =。
下次继续出错
SaveToFile Server.MapPath（文件），2。
如果犯错，然后
RTEXT =阵列（err.number，错误描述）
SaveToFile =放射
呃。清晰
退出功能
最后如果
关闭
结束
RTEXT =阵列（0，保存文件成功！）
SaveToFile =放射
集objstream =没有
端功能