当前位置：主页 > 查看内容

ASP常用的系统配置函数

发布时间：2021-07-04 00:00| 有 位朋友查看

简介：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)"'网站……
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

原文链接：https://m.jb51.net/article/14309.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：雨哲防采集策略之列表篇 下一篇：没有了

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐