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