subaveconfig ()
Dimfso, hf
setfso = server.createObject ("scripting.filesystemObject")
sethf = fso.createTextFile (server.mappath ("../ inc/config.asp"), true)
Hf.write "<" & "%" & vbcrlf
hf.write "constsitename =" & chr (34) & trimm (request ("sitename") & chr (34) & "'网站名称" & vbcrlf
hf.write "constsitititle =" & chr (34) & trimm (request ("sitetitle)) & chr (34) &" '网站标题 "& vbcrlf
hf.write "constSiteurl =" & chr (34) & trimm (request ("siteUrl)) & chr (34) &" '网站地址 "& vbcrlf
HF.Write "%" & ">"
hf.close
Sethf = nichts
setfso = nichts
Ende