[贴士] 转换成ASCII码

SzAngel

Rem main
VBSCall g=InputBox("请选择翻页:第一页(1)、第二页(2) ")
If asc(g)<49 or asc(g)>50
    MessageBox 您必须输入一个大于零小于2的整数值","请选择频道页;第一页(1)、第二页(2)
    Goto main
EndIf

按键对数字是忽略的，不知是BUG还是其他原因，你可以转换成ASCII码进行比较。