看板Programming
标 题asp.net:想要设计出三个textbox，但变数的值变成0
发信站KKCITY (Sat Oct 13 14:02:05 2007)
转信站ptt!ctu-reader!ctu-gate!news.nctu!news.ncu!news.yzu!zoonews.ee.ntu!new
请教一下，以下的网页，我想要设计出三个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
--