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分页（自己整理的2个分页程序）