主页.aspx

来自「听鱼轩,是一个关于网络编程课程设计所做的一个网页」· ASPX 代码 · 共 49 行

ASPX
49 行
字号 
<%@ 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>

主页.aspx - 源码说明

本页面展示了「听鱼轩,是一个关于网络编程课程设计所做的一个网页」中的 主页.aspx 源码文件，采用 ASPX 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络编程相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?