|
主题:[求助]发布首页出错!,请官方帮助! [收藏主题] | 转到: |
'*********************************************************************************************************
'函数名:FSOSaveFile '作 用:生成文件 '参 数: Content内容,路径 注意虚拟目录 '********************************************************************************************************* Sub FSOSaveFile(Content, LocalFileName) Dim FSO, FileObj Set FSO = Server.CreateObject(KS.Setting(99)) Set FileObj = FSO.CreateTextFile(Server.MapPath(LocalFileName), True) '创建文件 FileObj.Write Content FileObj.Close '释放对象 Set FileObj = Nothing:Set FSO = Nothing End Sub |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |