4-5.aspx
来自「程序源代码分成两个部分:  一部分是用记事本或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 + -
显示快捷键?