# 常用的一些判断

dim c,words,word,i,wnum
function IsValiddomin(word)
IsValiddomin = true
words = Split(word, ".")
wnum=UBound(words)
if words(0)="www" then
IsValiddomin = IsValidword(words(1))
IsValiddomin = IsValidword2(words(2))
if words(wnum)="cn" then
if wnum<>3 then
IsValiddomin = false
exit function
end if
else
if wnum<>2 then
IsValiddomin = false
exit function
end if
end if
else
IsValiddomin = IsValidword(words(0))
IsValiddomin = IsValidword2(words(1))
if words(wnum)="cn" then
if wnum<>2 then
IsValiddomin = false
exit function
end if
else
if wnum<>1 then
IsValiddomin = false
exit function
end if
end if
end if
end function

function IsValidword2(word)
IsValidword2 = true
IsValidword2 = IsValidword(word)
if word<>"net" and word<>"com" and word<>"cc" and word<>"org" and word<>"info" and word<>"gov" then ' 自己添加
IsValidword2 = false
exit function
end if
end function

function IsValidword(word)
IsValidword = true

if Len(word) <= 0 then
IsValidword = false
exit function
end if
for i = 1 to Len(word)
c = Lcase(Mid(word, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz-", c) <= 0 and not IsNumeric(c) then
IsValidword = false
exit function
end if
next
end function

if IsValiddomin("wrclub.net.cn") then
response.write "right"
else
response.write "wrong"
end if

function nothaveChinese(para)
dim str
nothaveChinese=true
str=cstr(para)
for i = 1 to Len(para)
c=asc(mid(str,i,1))
if c<0 then
nothaveChinese=false
exit function
end if
next
end function

function isChinese(para)
on error resume next
dim str
dim i
if isNUll(para) then
isChinese=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isChinese=false
exit function
end if
for i=1 to len(str)
c=asc(mid(str,i,1))
if c>=0 then
isChinese=false
exit function
end if
next
isChinese=true
if err.number<>0 then err.clear
end function

function IsValidEmail(email)
dim names, name, i, c
'Check for valid syntax in an email address.
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name) <= 0 then
IsValidEmail = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
IsValidEmail = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
IsValidEmail = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
IsValidEmail = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function

function IsValidTel(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
IsValidTel=false
exit function
end if
str=cstr(para)
if len(trim(str))<7 then
IsValidTel=false
exit function
end if
l=len(str)
for i=1 to l
if not (mid(str,i,1)>="0" and mid(str,i,1)<="9" or mid(str,i,1)="-") then
IsValidTel=false
exit function
end if
next
IsValidTel=true
if err.number<>0 then err.clear
end function

• 本文已收录于以下专栏：

## sqlserver 常用判断

1、判断数据库是否存在 select   1   from   master..sysdatabases   where   name='SWData' 2、判断表是否存在 select cou...
• HJ850126
• 2012年05月15日 15:32
• 483

## mysql中一些常用的命令

mysql中一些常用的命令
• rocky1996
• 2017年03月12日 20:46
• 134

## 说出一些常用的类，包，接口，请各举5个

• coodlong
• 2016年03月09日 15:48
• 3693

## 常用的一些脚本语言

• amandalm
• 2014年09月26日 20:02
• 5051

## 一些常用的正则表达式及一些扩展

/** * 手机号码验 * * @param mobile * * @return */ + (BOOL)isValidateMobile:(NSString *)mobile { ...
• shan1991fei
• 2016年05月17日 15:35
• 581

## 整理了一些初学者常用的代码

1.获得系统时间:   2.取得来访用的IP:3.获得系统,浏览器版本:window.document.write("版本："+navigator.appName+navigator.appV...
• yjc2020
• 2004年07月20日 09:33
• 597

## 分享 ｜ Git常用的一些命令

• dieyong
• 2016年01月18日 10:37
• 481

## iOS常用三方库汇总

• u012701023
• 2017年08月31日 16:09
• 358

## 那些ACMer常用的STL

• u011026968
• 2014年02月19日 14:02
• 1134

## C语言中会常用到的一些小程序

1.gets() 可以讲标准输入设备输入的字符放进一个数组。 e.g. #include void main( void ) {   char line[81];   printf...
• pofenglangguayunfan
• 2014年03月23日 18:09
• 343

举报原因： 您举报文章：常用的一些判断 色情 政治 抄袭 广告 招聘 骂人 其他 (最多只允许输入30个字)