<%@ Register TagPrefix="Title" TagName="TitleShow" Src="/aspnetdata/Title.ascx" %>
<html>
<head>
<body background="/aspnetdata/images/winback.gif">
<Title:TitleShow id="BookT" Runat="server" />
    <script language="VB" runat="server">
	sub Page_Load(sender as object,e as EventArgs)
	if IsPostBack=False then
		Dim HT as Hashtable=new Hashtable()
		HT.Add("Access 2000学习指导", "1.jpg")
        	HT.Add("Access 2000工程开发", "2.jpg")
		AllBook.DataSource = HT
		AllBook.DataValueField="Value"
		AllBook.DataTextField="Key"
		AllBook.DataBind()
	end if
	end sub
	sub SubmitBtn(sender as object,e as EventArgs )
		Photo.Src=AllBook.Value
	end sub
    </script>
</head>
    <form runat=server>
请选择书名：<select id="AllBook" runat="server" />
        <input type=button value="确定" OnServerClick="SubmitBtn" runat="server">
</form>
<img ID="Photo" runat="server"/>
</body>      
      
</html>      
