首頁
程式語言
工具下載
學習範例
技術專區
相關書籍
原始碼程式範例
好站相報
技術論壇
易尋網
ASP空間租賃
汽車追蹤的第一個家
弘光科技大學
南開技術學院
巨匠電腦
買賣購物網
Life Light
遠距醫療網
清境民宿珂之幄
原始程式碼
<%@ Page Language="VB" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Dim sum As Integer Dim i As Integer sum = 0 For i = 1 To 100 sum = sum + i Next Label1.Text = sum End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim sum As Integer Dim i As Integer sum = 0 For i = 1 To TextBox1.Text sum = sum + i Next Label1.Text = sum End Sub </script> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> <title>未命名頁面</title> </head> <body> <form id="form1" runat="server"> <div> <table> <tr> <td style="width: 100px"> </td> <td style="width: 100px"> 從1加</td> <td style="width: 100px"> <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox></td> </tr> <tr> <td style="width: 100px"> </td> <td style="width: 100px"> </td> <td style="width: 100px"> <asp:Button ID="Button1" runat="server" ForeColor="#FF00FF" OnClick="Button1_Click" Text=" 送 出 " /></td> </tr> <tr> <td style="width: 100px"> </td> <td style="width: 100px"> </td> <td style="width: 100px"> <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label></td> </tr> </table> </div> </form> </body> </html>
1. 請點選此處複製以上資料
2. 請按
ctrl-c
複製到剪貼簿
3. 切換到ASP的原始內碼區
4. 請按
ctrl-v
貼上所有資料
