页面导航：首页 → 网络编程 → ASP编程 → 应用技巧 → 正文内容 ASP 系统配置

ASP常用的系统配置函数

发布：dxy 发布日期：2008-4-29 22:22:32 字体：[增加减小] 类型：转载

这个函数多用来后台表单设置，然后生成asp配置文件的函数，这样不用每次都读取数据库，提高程序速度

sub SaveConfig()
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & "        '网站名称" & vbcrlf
hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & "        '网站标题" & vbcrlf
hf.write "Const SiteUrl=" & chr(34) & trim(request("SiteUrl")) & chr(34) & "        '网站地址" & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
end sub