?? global.asax
字號:
<%@ 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -