ex8vb.aspx

来自「这是该书上的所有源代码,不错」· ASPX 代码 · 共 77 行

ASPX

77 行

<html>
<title>第八例  HtmlImage和HtmlInputButton控件使用</title>
 <head>
 
    <script language="VB" runat="server">

	Sub SubmitBtn_Click(Source As Object, E as EventArgs)
         If (Name.Value = "cm") And (Password.Value = "991") Then
            Message.InnerHtml = "恭喜您，帐号、密码输入正确！"
		Image1.Src = "image1.gif"
	       	Image1.Height = 45
        	Image1.Width = 45
	        Image1.Border = 2
        	Image1.Align = "left"
	        Image1.Alt = "图片 1"
         Else
            Message.InnerHtml = "帐号和密码错误，请您检查您的输入！"
		Image1.Src = "image2.gif"
    		Image1.Height = 45
	        Image1.Width = 45
        	Image1.Border = 5
	        Image1.Align = "right"
        	Image1.Alt = "图片 2"
         End If
      End Sub

      Sub ResetBtn_Click(Source As Object, E as EventArgs)
         Name.Value = ""
         Password.Value = ""
      End Sub

  
  </script>
 
 </head>
 
 <body>

    <form runat="server">
       <h3><font face="Verdana">第八例  HtmlImage和HtmlInputButton控件使用</font></h3>
            <center> 
   <blockquote>
	输入您的用户名: 
         	<input id="Name" 
                    type=text size=40 runat="server"> 
        <BR>
	<BR>     
	输入您的密  码:
		<input id="Password" 
                    type=password size=40 runat="server"> 
		<BR>
		<BR>
               <input type=submit value="确认输入"
                    OnServerClick="SubmitBtn_Click" runat="server">
             <input type=reset value="重新输入"
                    OnServerClick="ResetBtn_Click" runat="server">
             <h1>
             <span id="Message" runat="server"> </span> 
             </h1>
  
       </center>
       
       <br><br>
      <img id ="Image1"
            Src="image3.gif"
            Width="290"
            Height="60"
            Alt="Image 1"
            Border="1"
            Align="center" 
            runat=server/>
	<br>
  </blockquote> 	  
    </form>

 </body>
 </html>

ex8vb.aspx - 源码说明

本页面展示了「这是该书上的所有源代码,不错」中的 ex8vb.aspx 源码文件，采用 ASPX 编程语言编写，共 77 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?