<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "\ntcount\hits.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %> 电子科技大学成都学院
首页 | 学院概况 | 组织机构 | 新闻中心 | 校园风采 | 校园服务 | 教学管理 | 学生工作 | 人力资源 | 国际合作 | 就业信息 | 招生信息 | 校友网 | 招标采购 | 资料下载

 
版权所有:电子科技大学成都学院 开发:电子科技大学成都学院现代教育技术中心 非经营性网站备案编号:蜀ICP备5000142号
您是第 位访客
暂停