ASP常用的系统配置函数

1. sub SaveConfig()  
2.  dim fso,hf  
3.  set fso=Server.CreateObject("Scripting.FileSystemObject")  
4.  set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)  
5.  hf.write "<" & "%" & vbcrlf  
6.  hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & "        '网站名称" & vbcrlf  
7.  hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & "        '网站标题" & vbcrlf  
8.  hf.write "Const SiteUrl=" & chr(34) & trim(request("SiteUrl")) & chr(34) & "        '网站地址" & vbcrlf  
9.  hf.write "%" & ">"  
10.  hf.close  
11.  set hf=nothing  
12.  set fso=nothing   
13. end sub