请帮我修改一下如下函数/。。。谢谢

ccz500 2002-05-15 10:03:21
请帮我修改一下如下函数/。。。谢谢
<td><INPUT size=10 MAXLENGTH="8" NAME="KILL" value="0" onchange="checknum(this)"></td>
<td><INPUT size=10 MAXLENGTH="8" NAME="CL" value="0" onchange="checknum(this)"></td>
<script language=vbscript>
function checknum(obj)
dim L
dim i
dim ch
L=len(obj.value)
if not isnumeric(obj.value) then
alert("请输入整数")
' msgbox "请输入整数"
obj.focus()
obj.select()
end if
for i=0 to L
ch=mid(obj.value,i,1)
if ch="." or ch="-" or ch="+" then '这样写能否不能判断输入串中含有"." "-" "+"/////请帮我修改一下
alert("包含非法字符。请重新输入")
return false
end if
next
end function
</script>
...全文
49 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jackeroo 2002-05-15
<form name ="form1">
<td><INPUT size=10 MAXLENGTH="8" NAME="KILL" value="0" onchange="checknum('kill')"></td>
<td><INPUT size=10 MAXLENGTH="8" NAME="CL" value="0" onchange="checknum('cl')"></td>
</form>
<script language=vbscript>
function checknum(name)
dim L
dim i
dim ch
dim thisValue
thisValue = eval("document.form1."&name&".value")
alert thisValue
L=len(thisValue)
If Trim(thisValue) <> "" Then
if not isNumeric(eval("document.form1."&name&".value")) then
alert(thisValue)
alert("请输入整数")
eval("document.form1."&name&".focus()")
Exit function
Else
alert(thisValue)
for i=0 to L
'if InStr(0, ".", thisValue) <> "" Then
if instr(thisValue,"+")<>0 or instr(thisValue,"-")<>0 or instr(thisValue,".")<>0 then
alert("包含非法字符。请重新输入")
Exit function
end if
next
End if
End If
end function
</script>
回复
希偌 2002-05-15
<td><INPUT size=10 MAXLENGTH="8" NAME="KILL" value="0" onchange="checknum(this)"></td>
<td><INPUT size=10 MAXLENGTH="8" NAME="CL" value="0" onchange="checknum(this)"></td>
<script language=vbscript>
function checknum(obj)
dim L
dim i
dim ch
if not isnumeric(obj.value) then
msgbox "请输入整数"
obj.focus()
obj.select()
end if
if instr(obj.value,"+")<>0 or instr(obj.value,"-")<>0 or instr(obj.value,".")<>0 then
msgbox "包含非法字符。请重新输入"
checknum=false
end if
end function
</script>
回复
希偌 2002-05-15
<td><INPUT size=10 MAXLENGTH="8" NAME="KILL" value="0" onchange="checknum(this)"></td>
<td><INPUT size=10 MAXLENGTH="8" NAME="CL" value="0" onchange="checknum(this)"></td>
<script language=vbscript>
function checknum(obj)
dim L
dim i
dim ch
L=len(obj.value)
if not isnumeric(obj.value) then
msgbox "请输入整数"
obj.focus()
obj.select()
end if
for i=0 to L
if instr(obj.value,"+")<>0 or instr(obj.value,"-")<>0 or instr(obj.value,".")<>0 then
msgbox "包含非法字符。请重新输入"
checknum=false
exit for
end if
next
end function
</script>
回复
希偌 2002-05-15
用instr函数搜索子串!
回复
jackeroo 2002-05-15
是不是报错“缺少对象'obj'”?
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-15 10:03
社区公告
暂无公告