首页.aspx

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

ASPX
47
字号
<Script Language="VB" Runat="Server">
  Sub Page_Load(sender As Object, e As EventArgs)
    myImage.ImageUrl="Title.jpg"
    myImage.ImageAlign=ImageAlign.Middle
    myImage1.ImageUrl="站长寄语.jpg"
    myImage1.ImageAlign=ImageAlign.Middle
    IB1.Src="首页.jpg"
    IB2.Src="静茹档案.jpg"
    IB3.Src="专集介绍.jpg"
  End sub
  Sub IB1_Click(sender As Object, e As ImageClickEventArgs)
    Page.Response.Redirect("http://localhost/听鱼轩/导航页/首页.aspx")
  End sub
  Sub IB2_Click(sender As Object, e As ImageClickEventArgs)
    Page.Response.Redirect("http://localhost/听鱼轩/导航页/静茹档案.aspx")
  End sub
  Sub IB3_Click(sender As Object, e As ImageClickEventArgs)
    Page.Response.Redirect("http://localhost/听鱼轩/导航页/专集介绍.aspx")
  End sub  
</Script>
<Html>
  <Head>
    <Title>听鱼轩 -- 音乐感动世界,静茹无处不在!!!</Title>
  </Head>
  <Body BgColor="#99F6F3" Text="Navy">
    <Center>
      <Form Runat="Server">
        <ASP:Image Runat="Server" Id="myImage"/><Br><Br>
        <Font Face="华文新魏" Size="3"> 
          欢迎来到听鱼轩
        </Font>
        <Input Type="Image" Runat="Server" Id="IB1" Alt="进入首页" OnServerClick="IB1_Click">
        <Input Type="Image" Runat="Server" Id="IB2" Alt="进入静茹档案" OnServerClick="IB2_Click">
        <Input Type="Image" Runat="Server" Id="IB3" Alt="进入专集介绍" OnServerClick="IB3_Click">
        <Font Face="华文新魏" Size="3"> 
          您现在的位置为 首页<Br><Br>
        </Font>
        <ASP:Image Runat="Server" Id="myImage1"/><Br><Br>
        <Font Face="隶书" Size="2">
          2006年5——2006年6<Br>
          ZG工作小车间制作<Br>
          站长:一个人沉沦
        </Font>
      </Form>
    </Center>
  </Body>
</Html>

⌨️ 快捷键说明

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