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 = tidak ada
setfso = tidak ada
endsub