怎么判断输入的不是数字啊?在线等

海的无奈

电梯直达

1^#

发表于 2010-1-11 00:19:46 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我写了下面这段代码,怎么判断buy_num,即购买的数量不是数字啊,急,在线等:-_-)
<html>
<head><title>订票</title></head>
<body bgcolor="yellow" background="banner.jpg" topmargin="1">
      <table border="0" cellspacing="0" style="border-collapse: collapse; border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1; border-top-style:solid" bordercolor="#006D91" width="496" bgcolor="#EFEFEF" align="center" height="1">
<%=now%>  
<%
         dim var_name
         var_name=request.form("input_name")
         dim var_num
         var_num=request.form("input_num")
         dim var_train_num
         var_train_num=request.form("buy_num")
         'response.write"" & var_num1 &""
         dim Conn
         Set Conn=Server.CreateObject("ADODB.Connection")
         dim Strconn
         Strconn="Driver={SQL Server};Server=10.1.40.110;Uid=teacher;Pwd=123;DataBase=test"
         Conn.open Strconn
         sql="insert into total_info(train_number,ticketnum,buyer)values('" & var_train_num & "','"& var_num &"','" & var_name & "')"
         dim a
      Conn.execute sql,a

   if a=1 then
                  response.write "订票成功!"

         else
                  response.write "更新失败!"
         end if


  %>

收藏0

使用道具举报

√我爱你

2^#

发表于 2010-1-11 00:19:50 | 只看该作者

谢谢各位的热心，我是用这句解决的：

if not isnumeric(var_num) then
response.Write "不是数字格式"
end if

if not isnumeric(var_train_num) then
Response.Write "不是数字"
end if

回复支持反对

使用道具举报

夜流冰

3^#

发表于 2010-1-11 00:19:54 | 只看该作者

说详细点啊版主大大,我是初学者,我要做一个火车票的订购系统,在表单里输订购的数量和订购者姓名,如果订购的数量不是数字,怎么弹出出错的信息,麻烦了啊-__-!

回复支持反对

使用道具举报

冰feng￡落叶

4^#

发表于 2010-1-11 00:19:58 | 只看该作者

yms123 在 2008-10-21 14:36 的发言：

Function IsInt(Val)
On Error Resume Next
IsInt=True
IF VarType(CInt(Val))2 Then
IsInt=False
End IF
End Function
用法
Dim a
a="10"
IF IsInt(a) Then

Response.Write "a是整 ...

好象着只能判断是不是整数啊！要判断是不是数字，应该改下吧！如下：

Function IsInt(Val)
On Error Resume Next
IsInt=True
IF VarType(CInt(Val))<2 And VarType(CInt(Val))>5 Then
IsInt=False
End IF
End Function
'用法
Dim a
a="abc"
IF IsInt(a) Then
Response.Write "a是数字!"&IsInt(a)
Else
Response.Write "a非数字!"&IsInt(a)
End If

回复支持反对

使用道具举报

tp寶寶^ō^

5^#

发表于 2010-1-11 00:20:02 | 只看该作者

Function IsInt(Val)
On Error Resume Next
IsInt=True
IF VarType(CInt(Val))<>2 Then
IsInt=False
End IF
End Function
用法
Dim a
a="10"
IF IsInt(a) Then
Response.Write "a是整数"
Else
Response.Write "a非整数或数字"
End IF

回复支持反对

使用道具举报

誑謸鉍娚

6^#

发表于 2010-1-11 00:20:06 | 只看该作者

sunfishy 在 2008-10-21 14:52 的发言：

if isNumeric(request.form("counts"))=false then

response.write "alert('输入数字');"

end if

或者在表单页写个JS.验证input值是否为数字.

这样就可以的啊~呵呵~

回复支持反对

使用道具举报

枫之泪-天涯

7^#

发表于 2010-1-11 00:20:10 | 只看该作者

输入的时候判断一下按键的输入值，如果不是0-9的就不让它输入就行了呗。

回复支持反对

使用道具举报

DJ敗類ヤ傲天

8^#

发表于 2010-1-11 00:20:14 | 只看该作者

if isNumeric(request.form("counts"))=false then

response.write "<script language=javascript>alert('输入数字');</script>"

end if

或者在表单页写个JS.验证input值是否为数字.

回复支持反对

使用道具举报

亚提斯

9^#

发表于 2010-1-11 00:20:18 | 只看该作者

<html>
<head><title>订票</title></head>
<body bgcolor="yellow" background="banner.jpg" topmargin="1">
      <table border="0" cellspacing="0" style="border-collapse: collapse; border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1; border-top-style:solid" bordercolor="#006D91" width="496" bgcolor="#EFEFEF" align="center" height="1">
<%=now%>
<%
Function IsInt(Val)
On Error Resume Next
IsInt=True
IF VarType(CInt(Val))<>2 Then
   IsInt=False
End IF
End Function

         dim var_name
         var_name=request.form("input_name")
         dim var_num
         var_num=request.form("input_num")
         dim var_train_num
         var_train_num=request.form("buy_num")
         IF Not IsInt(var_train_num) Then
            Response.Write "<script language=javascript >alert('buy_num非数字');</script>"
         End IF
         'response.write"" & var_num1 &""
         dim Conn
         Set Conn=Server.CreateObject("ADODB.Connection")
         dim Strconn
         Strconn="Driver={SQL Server};Server=10.1.40.110;Uid=teacher;Pwd=123;DataBase=test"
         Conn.open Strconn
         sql="insert into total_info(train_number,ticketnum,buyer)values('" & var_train_num & "','"& var_num &"','" & var_name & "')"
         dim a
      Conn.execute sql,a

   if a=1 then
                  response.write "订票成功!"

         else
                  response.write "更新失败!"
         end if
%>
虽然是初学者可以理解，但是不动脑筋不锻炼自己永远都会是初学者的。

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册

浏览过的版块