subsaveconfig ()
dimfso, hf
setfso = server.createObject ("scripting.filesystemObject")
sethf = fso.createTextFile (server.mappath ("../ inc/config.asp"), verdadero)
hf.write "<" & "%" y vbcrlf
hf.write "constsiteName =" & chr (34) & TRIM (request ("Sitename") y chr (34) y "'网站名称" & vbcrlf
hf.write "constsitetitle =" & chr (34) & TRIM (request ("Sitetitle") y chr (34) y "'网站标题" & vbcrlf
hf.write "constsiteUrl =" & chr (34) & TRIM (request ("SiteUrl)) & Chr (34) y" '网站地址 "& Vbcrlf
hf.write "%" & ">"
hf.lose
sethf = nada
setfso = nada
Endsub