新微赢技术网

标题: 怎么判断输入的不是数字啊?在线等 [打印本页]

作者: 海的无奈 时间: 2010-1-11 00:19
标题: 怎么判断输入的不是数字啊?在线等
我写了下面这段代码,怎么判断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


  %>

作者: √我爱你 时间: 2010-1-11 00:19
谢谢各位的热心，我是用这句解决的：

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

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

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

作者: 冰feng￡落叶 时间: 2010-1-11 00:19
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寶寶^ō^ 时间: 2010-1-11 00:20
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

作者: 誑謸鉍娚 时间: 2010-1-11 00:20
sunfishy 在 2008-10-21 14:52 的发言：

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

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

end if

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

这样就可以的啊~呵呵~

作者: 枫之泪-天涯 时间: 2010-1-11 00:20
输入的时候判断一下按键的输入值，如果不是0-9的就不让它输入就行了呗。

作者: DJ敗類ヤ傲天 时间: 2010-1-11 00:20
if isNumeric(request.form("counts"))=false then

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

end if

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

作者: 亚提斯 时间: 2010-1-11 00:20
<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
%>
虽然是初学者可以理解，但是不动脑筋不锻炼自己永远都会是初学者的。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)