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
如对本文有疑问,
点击进行留言回复!!
网友评论