k
 

视点

视频

网站设计与维护:山东大学品牌与传播研究所 地址:山东大学中心校区知新楼423室

电话:88346807 83071058 邮编:250100 鲁ICP备05001952号

align="center" class="STYLE10"> <% dim count Set fs=CreateObject("scripting.filesystemobject") Set hs=fs.opentextfile(server.Mappath("count.txt")) count=hs.readline if session("count")="" then session("count")="count" count=count+1 end if response.write "您是本站第" & count & "位访问者!" Set hs=fs.createtextfile(server.Mappath("count.txt")) hs.writeline(count) hs.close set fs=nothing %>