subsaveConfig ()
dimfso, hf
setfso = server.createObject ("scripting.filesystemobject")
sethf = fso.createTextFile (server.mappath ("../ inc/config.asp"), true)
hf.Write "<" & "%" e vbcrlf
hf.Write "ConstSitename =" & Chr (34) & Trim (request ("sitename")) & Ch (34) & "'' 网站名称" & vbcrlf
hf.Write "ConstSiteTitle =" & Chr (34) & Trim (request ("sitetitle")) & ch (34) & "'网站标题" & vbcrlf
hf.Write "ConstSiteurl =" & Chr (34) & Trim (request ("siteurl")) & ch (34) & "'网站地址" & vbcrlf
hf.Write "%" & ">"
hf.close
Sethf = nada
setfso = nada
endsub