4-5.aspx

来自「程序源代码分成两个部分: &#61557 一部分是用记事本或EditPlus」· ASPX 代码 · 共 21 行

ASPX
21
字号
<%@ Page language="VB" %>
<HTML>
<TITLE>[例4-5]判断所输入的数字是奇数还是偶数</TITLE>
<%
	Dim num as Integer=Request.QueryString("TextBox1")
	if num mod 2 = 0 then
		lDisplay.Text=num & " 是" & "偶数"
	else
		lDisplay.Text=num & " 是" & "奇数"
        end if
%>
 <BODY> 
 <FORM id="Form1" method="GET" runat="server">	
	<asp:Label id="Label1" runat="server">请输入数字:</asp:Label>
	<asp:TextBox id="TextBox1"  runat="server"/>
	<asp:Button id="Button1"  Text="提交" runat="server"/><P>
	<asp:Label id="lDisplay" runat="server">请输入数字:</asp:Label>
 </FORM>
</BODY>
</HTML>

⌨️ 快捷键说明

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