奇怪的现象:用btnClick.Attributes.Add这样的方法,为什么程序第一次没有弹出对话框?第二次及以后都可正确弹出?

nnh 2004-06-26 11:41:14

代码如下:
<Script runat="server">
Sub tbnClick_Click(s as object, e as eventargs)
dim i as String = tbxIn.Text
dim i2 as Integer = Convert.ToInt16(i)
COUNT(i2)
End Sub

Sub COUNT(a)
if a > 10 then
response.write(a)
else
btnClick.Attributes.Add("onclick", _
"return confirm('this recoders?');")
Response.write("数值小于10")
end if
End Sub

</Script>
<Form runat="server">
<asp:TextBox id="tbxIn" runat="server"/>
<asp:Button id="btnClick" Text="Click" runat="server" OnClick="tbnClick_Click"/>
</Form>
当我第一次输入2时,程序输出” 数值小于10”,而后我没有改变文本中的数字2,再按一次Button,这时对话框才弹出.
为什么程序第一次没有弹出对话框, 第二次及以后都可正确弹出?各位高手,帮忙看一下,有没有办法程序在第一次就可正确的弹出?

...全文

261 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

stlwj 2004-07-03

打赏
举报

因为是第一次运行是加载了按钮的客户端(onclick)事件,第二次点击该按钮才会把onclick的客户端事件触发的

nnh 2004-07-03

打赏
举报

nnh 2004-07-02

打赏
举报

我這樣寫了,可是還是不行呀.現在都不彈出對話框了:

<Script runat="server">
Sub Page_Load(s as object, e as eventargs)
If Not IsPostBack Then
btnClick.Attributes.Add("onclick", "Jscript:confirmvalue('"+tbxIn.clientID+"');")

End If
End Sub

Sub tbnClick_Click(s as object, e as eventargs)
dim i as String = tbxIn.Text
dim i2 as Integer = Convert.ToInt16(i)
COUNT(i2)
End Sub

Sub COUNT(a)
if a > 10 then
response.write(a)
else
Response.write("<10")
end if
End Sub

</Script>
<Form runat="server">
<asp:TextBox id="tbxIn" runat="server"/>
<asp:Button id="btnClick" Text="Click" runat="server" OnClick="tbnClick_Click"/>
</Form>
<script language='jscript'>
function confirmvalue(obj){
if(parseInt(eval('document.'+obj).value)<10)
window.confirm('this recoders?');
}
</script>

vzxq 2004-07-02

打赏
举报

学习！

zhaozhongju 2004-07-02

打赏
举报

Page_Load
{

btnClick.Attributes.Add("onclick", "Jscript:confirmvalue('"+tbxIn.clientID+"');")
}

<script language='jscript'>
function confirmvalue(obj){
if(parseInt(eval('document.'+obj).value)<10)
window.confirm('this recoders?');
}
</script>
-------------乔大侠的办法应该可以

nnh 2004-07-02