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