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 

上一个：用ASP实现MSSQL用户密码破解
下一个：用cookies实现闪电登录论坛方法