⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 专集介绍.aspx

📁 听鱼轩,是一个关于网络编程课程设计所做的一个网页
💻 ASPX
字号:
<Script Language="VB" Runat="Server">
  Sub Page_Load(sender As Object, e As EventArgs)
    myImage.ImageUrl="Title.jpg"
    myImage.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
  Sub showPhoto(sender As Object, e As EventArgs)
    Photo.Src = photoName.Value
  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>
        <Img Runat="Server" Id="Photo" Src="巧克力静茹.jpg"><Br><Br>
        选择您要查看的专集名称:
        <Select Runat="Server" Id="photoName">
          <Option Value="巧克力静茹.jpg">无</Option>
          <Option Value="一夜长大.jpg">一夜长大</Option>
          <Option Value="勇气.jpg">勇气</Option>
          <Option Value="闪亮的星.jpg">闪亮的星</Option>
          <Option Value="sunrise,我喜欢.jpg">sunrise,我喜欢</Option>
          <Option Value="美丽人生.jpg">美丽人生</Option>
          <Option Value="恋爱的力量.jpg">恋爱的力量</Option>
          <Option Value="燕尾蝶.jpg">燕尾蝶</Option>
          <Option Value="丝路.jpg">丝路</Option>
        </Select>
        <Input Type="Submit" Runat="Server" Value="确定" OnServerClick="showPhoto"><Br><Br>
        <Font Face="隶书" Size="2">
          2006年5——2006年6<Br>
          ZG工作小车间制作<Br>
          站长:一个人沉沦
        </Font>
      </Form>
    </Center>
  </Body>
</Html>

⌨️ 快捷键说明

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