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