ASP检查字符串格式是否匹配问题!

[ipipip1735]

问题1.
-----------------------------------------------------------
ASP验证表单中提交的变量是否为ip格式
如 127.0.0.1
检查2项
1. 不能有其他字符 只能是数字 0~9 符号 .
2. 字符长度不能超过 20

然后用 tirm()去掉空格







问题2.
-------------------------------------------------------------
输入的为时间格式
年4位 横杠 月2位 横杠 日2位 空格 时2位 冒号 分2位 冒号 秒2位

如:2009-12-24 23:59:59

检查2项
1.全部为数字
2.年月日中间是否有横杠
3.时分秒中间是否有冒号
4.年月日 与 时分秒 中间是否有空格

[yan11cn]

1.

<%
function check(str)
dim reg
set reg = New RegExp
reg.Global=true
reg.Pattern="^(\d+?\.\d+?\.\d+?\.\d+?)$"
reg.IgnoreCase = false
str=trim(str)
if len(str)>20  then
check=false
response.write "长度超过20!"
elseif reg.Execute(str).count = 0 then
response.write "ip格式不匹配!"
else
response.write "ip格式匹配!"
end if
end function

dim str
str="127.000000a.0.1"
call check(str)
%>

[number123456]

一种用正则，一种字符串操作，你看看哪种适合你
给你个字符串的例子

ip = Request("ip")
if ip = "" then 
   错误
end if
ips = split(ip,".")
if ubound(ips) <> 3 then 
   错误
end if
for i = 0 to ubound(ips)
    if not isnumeric(ips(i)) then
       错误
        exit for
    end if
end if

[yan11cn]

2.

<%
function check_sj(str)
dim reg
set reg = New RegExp
reg.Global=true
reg.Pattern="^(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})$"
reg.IgnoreCase = false
str=trim(str)
if reg.Execute(str).count = 0 then
response.write "时间格式不匹配!"
else
response.write "时间格式匹配!"
end if
end function

dim str
str="2009-12-24 23:59:59"
call check_sj(str)
%>

[ipipip1735]

谢谢你们的回答
1楼和3楼的回答中间都有一个RegExp
RegExp应该是javascript对象吧!!
我用的vbscript


这个能直接放在asp代码里面用吗?

是不是要加
<script type="text/javascript"> </script>
呢??

<script type="text/javascript">
function check_sj(str)
dim reg
set reg = New RegExp
reg.Global=true
reg.Pattern="^(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})$"
reg.IgnoreCase = false
str=trim(str)
if reg.Execute(str).count = 0 then
response.write "时间格式不匹配!"
else
response.write "时间格式匹配!"
end if
end function
</script>

dim str
str="2009-12-24 23:59:59"
call check_sj(str)
最后面的check_sj(str)是不是也要加<js></js>????
这个check_sj 好像没有返回值呢? 我觉得它应该返回一个逻辑变量

要是用VBscritpt应该怎么写呀??

[yan11cn]

我用的就是VBScript....
只不过是运行在服务器端
注意<% %>

[yan11cn]

这样就在客户端了 <script language="vbscript"></script>替换上面的<%%>
document.write 替换上面的 response.write 就行了
如：
2.

<script language="vbscript">
function check_sj(str)
dim reg
set reg = New RegExp
reg.Global=true
reg.Pattern="^(\d{4}-\d{2}-\d{2}\s\d{2}:\d{2}:\d{2})$"
reg.IgnoreCase = false
str=trim(str)
if reg.Execute(str).count = 0 then
document.write "时间格式不匹配!"
else
document.write "时间格式匹配!"
end if
end function

dim str
str="2009-12-24 23:59:59"
call check_sj(str)
</script>