listing0307.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 30 行

ASPX
30
字号
<%@ Page Language="VB" %>

<script runat="server">
   sub Page_Load(obj as object, e as eventargs)
      dim intAge As integer = 7

      select Case intAge
         case "7"
            Response.Write("That's a string!")
         case 7
            Response.Write("You're 7 years old.")
         case <10
            Response.Write("Wow, you're young!")
      end select
   
      'dim strDay as string
      'dim arrWeekDays() as String = {"Monday", "Tuesday", _
      '  "Wednesday", "Thursday", "Friday"}

      'For Each strDay in arrWeekDays
      '   Response.Write(strDay & "<br>")
      '   exit for
      'Next
   end sub   
</script>

<html><body>

</body></html>

⌨️ 快捷键说明

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