ASP常用的系统配置函数

也想出现在这里？点击联系我~

1. subSaveConfig()
2. dimfso,hf
3. setfso=Server.CreateObject("Scripting.FileSystemObject")
4. sethf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
5. hf.write"<"&"%"&vbcrlf
6. hf.write"ConstSiteName="&chr(34)&trim(request("SiteName"))&chr(34)&"'网站名称"&vbcrlf
7. hf.write"ConstSiteTitle="&chr(34)&trim(request("SiteTitle"))&chr(34)&"'网站标题"&vbcrlf
8. hf.write"ConstSiteUrl="&chr(34)&trim(request("SiteUrl"))&chr(34)&"'网站地址"&vbcrlf
9. hf.write"%"&">"
10. hf.close
11. sethf=nothing
12. setfso=nothing
13. endsub