IF InStr(yx,"@")=0 Then
error=error&"<br><li>电子邮箱格式错误</li>"
End IF
error=error&"<br><li>电子邮箱格式错误</li>"
End IF
if Not isnumeric(replace(replace(dh,"-",""),"/","")) then
error=error&"<br><li>供货单位电话必须为数字</li>"
end if
你这个更省事啊,
InStr函数用来返回某个字符在其中一个字符串中的位置
比如
abcd@yahoo.com.cn
其中@在这个字符串的第5个位置
如果是
abcdyahoo.com.cn
这时@并没有出现在这个字符串中
所以InStr函数会返回0表示某个字符串中没有制定的字符存在。
isnumeric的作用是用来判断字符串是否为数字字符串。
比如
"abc123"和"123"
isnumeric("abc123")
这样就会返回逻辑假,因为abc不属于数字。
反之isnumeric("123")就会返回真,因为123是数字。