.::内蒙古大学招生网::.

<% Sub IncrementCounter() Set fs = Server.CreateObject("Scripting.FileSystemObject") counter_file = Server.MapPath("/counter.txt") Set txt = fs.OpenTextFile( counter_file ) Application("counter") = txt.ReadLine txt.Close Application("counter") = Application("counter") + 1 Set txt = fs.CreateTextFile( counter_file, True ) txt.WriteLine(Application("counter")) txt.Close End Sub Application.Lock IncrementCounter ' 将访问计数器加一,并写入到文件中 Application.UnLock %> .::内蒙古大学招生网::.

内大招生网欢迎您 !

建设优质资源吸引优质生源提供优质服务给予优质培养

今天是

热点关注
领导关怀		校长致辞
招生章程		备考指南
专业推荐		录取名册
招生计划		高考咨询
开放日专题		新生服务
奖学金简介		十大亮点
考生预报名		资料预约