<%@ import namespace="system.io"%>
<SCRIPT LANGUAGE="VB" RUNAT="Server">
sub session_onstart
dim sr1 as streamreader=new streamreader(server.mappath("counter.txt"))
dim i as integer=convert.toint32(sr1.readline())
i=i+1
sr1.close()
dim sw1 as streamwriter=new streamwriter(server.mappath("counter.txt"))
sw1.writeline(i.tostring())
sw1.close()
session("i")=i
'下面判斷是否首先訪問首頁
if Request.ServerVariables("SCRIPT_NAME")<>"index.aspx" then 
response.redirect("index.aspx")
end if

end sub
</SCRIPT>