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) & trim (request ("siteName") و chr (34) و "'网站名称" & vbcrlf
hf.write "constsititle =" & chr (34) & trim (request ("sitetitle)) & chr (34) &" '网站标题 "& vbcrlf
hf.write "constsiteurl =" & chr (34) & trim (request ("siteurl") & chr (34) & "'网站地址" & vbcrlf
hf.write "٪" و ">"
HF.Close
sethf = لا شيء
setfso = لا شيء
ينتهي