【導(dǎo)讀】寫完整，謝謝合作。請(qǐng)確認(rèn)有沒有被申請(qǐng)。和密碼是不吻合。注意數(shù)字和大小寫。通過對(duì)該字段值的修改達(dá)到狀態(tài)切換的效果。那么，我又做了個(gè)函數(shù)，讓自己輕松。FunctionHTMLDecode’HTML解碼函數(shù)(保存或提交數(shù)據(jù)時(shí)使用,可以

　　

【正文】 sValiddomin = IsValidword(words(1)) IsValiddomin = IsValidword2(words(2)) if words(wnum)= then if wnum3 then IsValiddomin = false exit function end if else if wnum2 then IsValiddomin = false exit function end if end if else IsValiddomin = IsValidword(words(0)) IsValiddomin = IsValidword2(words(1)) 中國最大的管理資源中心 第 36 頁 共 45 頁 if words(wnum)= then if wnum2 then IsValiddomin = false exit function end if else if wnum1 then IsValiddomin = false exit function end if end if end if end function function IsValidword2(word) IsValidword2 = true IsValidword2 = IsValidword(word) if word and word and wordcc and word and wordinfo and wordgov then ’ 自己添加 IsValidword2 = false exit function end if end function function IsValidword(word) IsValidword = true if Len(word) = 0 then IsValidword = false exit function 中國最大的管理資源中心 第 37 頁 共 45 頁 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() then right else wrong end if ，函數(shù)主要用于設(shè)置密碼，如 ftp 密碼設(shè)置： function nothaveChinese(para) dim str nothaveChinese=true str=cstr(para) for i = 1 to Len(para) c=asc(mid(str,i,1)) if c0 then nothaveChine exit function end if next 中國最大的管理資源中心 第 38 頁 共 45 頁 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 exit function end if next isChinese=true if 0 then end function 中國最大的管理資源中心 第 39 頁 共 45 頁 Email 是否正確函數(shù)： function IsValidEmail() dim names, name, i, c ’Check for valid syntax in an address. IsValidEmail = true names = Split(, @) 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 中國最大的管理資源中心 第 40 頁 共 45 頁 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(, ..) 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) 中國最大的管理資源中心 第 41 頁 共 45 頁 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 0 then end function % ’ 判斷文件名是否合法 Function isFilename(aFilename) Dim sErrorStr,iNameLength,i isFilename=TRUE sErrorStr=Array(/,\,:,*,?,|) iNameLength=Len(aFilename) If iNameLength1 Or iNameLength=null Then isFilename=FALSE Else For i=0 To 8 If instr(aFilename,sErrorStr(i)) Then isFilename=FALSE End If Next End If 中國最大的管理資源中心 第 42 頁 共 45 頁 End Function function trimVBcrlf(str) trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str)) end function ’ 去掉字符串開頭的連續(xù)的回車和空格 function ltrimVBcrlf(str) dim pos,isBlankChar pos=1 isBlankChar=true while isBlankChar if mid(str,pos,1)= then pos=pos+1 elseif mid(str,pos,2)=VBcrlf then pos=pos+2 else isBlankChar=false end if wend ltrimVBcrlf=right(str,len(str)pos+1) end function ’ 去掉字符串末 尾的連續(xù)的回車和空格 function rtrimVBcrlf(str) dim pos,isBlankChar 中國最大的管理資源中心 第 43 頁 共 45 頁 pos=len(str) isBlankChar=true while isBlankChar and pos=2 if mid(str,pos,1)= then pos=pos1 elseif mid(str,pos1,2)=VBcrlf then pos=pos2 else