ASP寻常的系统配置函数

ASP寻常的系统配置函数：

sub SaveConfig()

 dim fso,hf

 set fso=Server.CreateObject("Scripting.FileSystemObject")

 set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)

 hf.write "<" & "%" & vbcrlf

 hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & "        '网站名称" & vbcrlf

 hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & "        '网站标题" & vbcrlf

 hf.write "Const SiteUrl=" & chr(34) & trim(request("SiteUrl")) & chr(34) & "        '网站地址" & vbcrlf

 hf.write "%" & ">"

 hf.close

 set hf=nothing

 set fso=nothing 

end sub

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!