常用的一些判断

原创 2005年01月03日 13:54:00

判断输入域名是否正确的函数:
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


判断是否含有中文字符函数,函数主要用于设置密码,如ftp密码设置:

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


判断Email是否正确函数:
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
  • HJ850126
  • 2012年05月15日 15:32
  • 483

mysql中一些常用的命令

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

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

常用的类:BufferedReader BufferedWriter FileReader FileWirter Stri...
  • coodlong
  • coodlong
  • 2016年03月09日 15:48
  • 3693

常用的一些脚本语言

说起脚本语言,搞过游戏开发的,基本都不陌生,平时接触到的脚本也比较多。   比如: Python: 我参加工作之后研究的第一个脚本语言。这个脚本的功能很多模块很全,技术非常成熟...
  • amandalm
  • amandalm
  • 2014年09月26日 20:02
  • 5051

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

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

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

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

分享 | Git常用的一些命令

最近,各个项目团队已经全面从svn转向Git 近期将会分享一些Git的常用操作及使用经验: 先了解下工作中一些需要用到的命令: --------------------------- Git基...
  • dieyong
  • dieyong
  • 2016年01月18日 10:37
  • 481

iOS常用三方库汇总

开源项目 iOSBlogAndToolsiOS开发优秀博客和软件推荐 CodeHubbrowse and maintain your GitHub repositories on ...
  • u012701023
  • u012701023
  • 2017年08月31日 16:09
  • 358

那些ACMer常用的STL

一、lower_bound() 函数介绍(关于该函数以下摘自百度百科http://baike.baidu.com/link?url=XIWxYc93DI5QwfP0F9h988dDiNTH-Mz-4G...
  • u011026968
  • u011026968
  • 2014年02月19日 14:02
  • 1134

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

1.gets() 可以讲标准输入设备输入的字符放进一个数组。 e.g. #include void main( void ) {   char line[81];   printf...
  • pofenglangguayunfan
  • pofenglangguayunfan
  • 2014年03月23日 18:09
  • 343
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:常用的一些判断
举报原因:
原因补充:

(最多只允许输入30个字)