asp.net:想要設計出三個textbox，但變數的值變成0
請教一下，以下的網頁，我想要設計出三個textbox，若使用者輸入的不是數字，
則會秀出訊息，然後我有兩個按鈕，我希望第二個按鈕可以計算平均。
接者問題來了，
我把以下的函數移到JScript.js這個檔案內，
那我的asp.net要如何引用這個檔案呢？
Function ShowMessage(ByVal Page As System.Web.UI.Page, ByVal Message As String)
Dim JavaScript As String
JavaScript = "<SCRIPT Language='JavaScript'>"
JavaScript += "window.alert('"
JavaScript += Message & "');"
JavaScript += "</"
JavaScript += "SCRIPT>"
response.write(JavaScript)
End Function
第二個問題，我的第二個按鈕按下去後，得到的結果是0
他沒有抓到b的內容，我該如何修改呢？
附上原始網頁內容，謝謝！
<script runat="server">
'變數與陣列的宣告放在外面
'這些資料可以給其它的工具使用
Dim b As Integer = 0
Dim c As Integer = 0
Dim FirstArray(3) As Integer
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventA
rgs)
If IsNumeric(TextBox1.Text) = False Then '=false 代表不是數字
'MsgBox("請輸入整數")
ShowMessage(Me, "請輸入整數")
TextBox1.Focus() '得到焦點 得到滑鼠控制權
Exit Sub '離開sub
Else '若條件不成立 則...
FirstArray(0) = Int(TextBox1.Text) 'Int代表取整數的內容 丟給FirstArr
ay的編號為0的儲存格
End If
If IsNumeric(TextBox2.Text) = False Then
'MsgBox("請輸入整數")
ShowMessage(Me, "請輸入整數")
TextBox2.Focus()
Exit Sub
Else
FirstArray(1) = Int(TextBox2.Text)
End If
If IsNumeric(TextBox3.Text) = False Then
'MsgBox("請輸入整數")
ShowMessage(Me, "請輸入整數")
TextBox3.Focus()
Exit Sub
Else
FirstArray(2) = Int(TextBox3.Text)
End If
'將FirstArray的編號0-2的內容丟給b儲存
For c = 0 To 2
b += FirstArray(c)
Next
Label3.Text = b
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventA
rgs)
label1.Text = b / 3
End Sub
Function ShowMessage(ByVal Page As System.Web.UI.Page, ByVal Message As Stri
ng)
Dim JavaScript As String
JavaScript = "<SCRIPT Language='JavaScript'>"
JavaScript += "window.alert('"
JavaScript += Message & "');"
JavaScript += "</"
JavaScript += "SCRIPT>"
response.write(JavaScript)
End Function
</script>
--
┌─────◆ＫＫＣＩＴＹ◆─────┐ ＫＫ免/費/撥/接 ◤
│ bbs.kkcity.com.tw │▏電話(1)：449◤1999 電話(2)：4058-6000
└──《From:140.109.123.123 》──┘▏帳號：kkcity 密碼：kkcity
--
討論串 (同標題文章)
Programming 近期熱門文章
PTT數位生活區 即時熱門文章