📄 专集介绍.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 + -