📄 主页.aspx
字号:
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<Script Language="VB" Runat="Server">
Sub Page_Load(sender As Object, e As EventArgs)
IB.Src = "静茹.jpg"
Dim objReader As New StreamReader(Server.MapPath("Counter.txt"))
Dim Counter As Long = objReader.ReadLine()
objReader.Close()
If Session.IsNewSession = True Then
Counter += 1
Dim objWriter As New StreamWriter(Server.MapPath("Counter.txt"), False)
objWriter.WriteLine(Counter)
objWriter.Close()
End If
myCounter.Text = "欢迎来到听鱼轩，您是本站的第 " & Counter & " 位访客"
'以上统计访客数
Message.Text = "现在是北京时间 " & System.DateTime.Now.ToLongTimeString()
myImage.ImageUrl="粉鱼.gif"
myImage.ImageAlign=ImageAlign.Middle
End Sub
Sub IB_Click(sender As Object, e As ImageClickEventArgs)
Page.Response.Redirect("http://localhost/听鱼轩/导航页/首页.aspx/")
End Sub
</Script>
<Html>
<Head>
<Title>听鱼轩</Title>
</Head>
<Body BgColor="#FCE2DB" Text="Navy">
<Center>
<Form Runat="Server">
<Input Type="Image" Runat="Server" Id="IB" Align="Middle" Alt="点击进入听鱼轩" onServerClick="IB_Click"><Br><Br>
<Font Face="隶书" Size="5">
<P>
<Asp:Label Runat="Server" Id="myCounter" /><Br><Br>
</p>
</Font>
<ASP:Image Runat="Server" Id="myImage"/><Br><Br>
<Font Face="华文新魏" Size="3">
<P>
<Asp:Label Runat="Server" Id="Message" />
</p>
</Font>
</Form>
</Center>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -