这个函数多用来后台表单设置,然后生成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

作者: 来源: 时间: 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
隐藏区块

会员注册

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

Login

社交帐号登陆

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

Close section
Close

联系我们

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