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