一个很简单的程序，请高手帮忙！

Question

怎样用vb脚本在asp下制作一个小键盘，只包括数字键即可，多谢啦！

Answer 1

<script language=vbscript>
sub clearnum()
msgbox "Clear"
    frmNumpad.txtnum.value=0
end subsub getkey_num(keynum)
    frmNumpad.txtnum.value=frmNumpad.txtnum.value & keynum
end subsub setval0()
    getkey_num 0
end subsub setval1()
    getkey_num 1
end subsub setval2()
    getkey_num 2
end subsub setval3()
    getkey_num 3
end subsub setval4()
    getkey_num 4
end subsub setval5()
    getkey_num 5
end subsub setval6()
    getkey_num 6
end subsub setval7()
    getkey_num 7
end subsub setval8()
    getkey_num 8
end subsub setval9()
    getkey_num 9
end subsub setvaldot()
    getkey_num "."
end sub</script><form name=frmNumpad>
<table cellpadding=0 cellspacing=2 bgcolor=#A0CCEE>
<tr>
<td>
<input type=text name=txtnum>
</td>
</tr><tr bgcolor=#FFFFFF>
<td>
<input type=button name=cmd1 onclick="vbscript:setval1" value="1">
<input type=button name=cmd2 onclick="vbscript:setval2" value="2">
<input type=button name=cmd3 onclick="vbscript:setval3" value="3">
<br>
<input type=button name=cmd4 onclick="vbscript:setval4" value="4">
<input type=button name=cmd5 onclick="vbscript:setval5" value="5">
<input type=button name=cmd6 onclick="vbscript:setval6" value="6">
<br>
<input type=button name=cmd7 onclick="vbscript:setval7" value="7">
<input type=button name=cmd8 onclick="vbscript:setval8" value="8">
<input type=button name=cmd9 onclick="vbscript:setval9" value="9">
<br>
<input type=button name=cmd0 onclick="vbscript:setval0" value="0">
<input type=button name=cmddot onclick="vbscript:setvaldot" value=".">
<input type=button name=cmdclear onclick="vbscript:clearnum" value="清空"><br>
</td>
</tr>
</table>
</form>上面只是抛砖引玉，具体怎么实现，就看你怎么发挥了！