<%@ LANGUAGE = VBScript %>
<%
Function WebCounter()
Dim CounterName,objFS,HitRate,imgName
Dim objReadTS,objWriteTS
on Error Resume Next
CounterName =server.MapPath("counter.txt")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set ObjReadTS = objFS.OpenTextFile(CounterName,1,-1,0)
HitRate = objReadTS.ReadLine
objReadTS.Close
If not Session("On_line") Then
HitRate = CLng(HitRate)+1
Session("On_line") = True
Set objWriteTS = objFS.CreateTextFile(CounterName,-1,0)
objWriteTS.WriteLine HitRate
objWriteTS.close
End If
For i=1 to cint(Len(HitRate))
imgName =mid(HitRate,i,1)
Response.Write imgName
Next
End Function
%>
2006年全国成招福州大学录取查询
注：具体录取情况请以收到的录取通知书为准。
