大连软件公司排名:求一小段ASP代码
三楼的<input type=submit value="DEMO" onclick="show()">这句中的ONCLICK应该是用鼠标按下吧,而我需要的是按回车键。
奥,那一句就可以了:
<input type=text name=test onkeydown="vbscript:If window.event.keyCode=13 Then msgbox document.all.test.value">
<HEAD><TITLE>Do循环结构程序举例</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub ShowMessage
dim i,intSum,flag,result
intSum=0
result=""
i=3
Do While i<=100
flag=1
j=2
Do While j<=i-1
If i mod j = 0 Then
flag=0
Exit Do
End If
j=j+1
Loop
If flag=1 then
result=result&i&";"
End If
i=i+1
Loop
MsgBox "3到100之间的素数为:" & result
End Sub
call ShowMessage '调用ShowMessage 过程
-->
</SCRIPT></HEAD>
<BODY>
......
</BODY></HTML>
例3-16:
<HTML>
<HEAD><TITLE>While循环结构程序举例</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub ShowMessage
dim i,intSum
i=1
intSum=0
While i<=100
intSum=intSum +i
<SCRIPT LANGUAGE="VBScript">
<!--
function s()
if (window.event.keyCode=13) Then alert(window.event.srcElement.value)
End function
//-->
</SCRIPT>
<input onkeyup="s()">