subSaveConfig()
dimfso,hf
setfso=Server.CreateObject("Scripting.FileSystemObject")
sethf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
hf.write"<"&"%"&vbcrlf
hf.write"ConstSiteName="&chr(34)&trim(request("SiteName"))&chr(34)&"'网站名称"&vbcrlf
hf.write"ConstSiteTitle="&chr(34)&trim(request("SiteTitle"))&chr(34)&"'网站标题"&vbcrlf
hf.write"ConstSiteUrl="&chr(34)&trim(request("SiteUrl"))&chr(34)&"'网站地址"&vbcrlf
hf.write"%"&">"
hf.close
sethf=nothing
setfso=nothing
endsub