客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
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 |
请发表评论