免费开源的5UCMS5UCMS 免费开源的站群CMS系统

这个函数多用来后台表单设置，然后生成asp配置文件的函数，这样不用每次都读取数据库，提高程序速度

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

站群cms客户服务

作者: 来源: 时间: 17-11-23 15:44:47

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
11
22
33

5UCMS.COM

Since 2015 自豪地采用5ucms内核构建！
微信/QQ:3876307 皖ICP备09005092号
点下方图标可留言 网站地图

微信扫一扫

推荐内容

订阅



隐藏区块

会员注册

本功能为预留功能，暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section

网站栏目

服务范围

快捷导航

推荐/合作

Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们