functionvb.asp

来自「该资料包含大量网络开发的案例和源代码」· ASP 代码 · 共 69 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="vbscript">
	Function CheckData()
	
	end Function

</script>

<%
Function DayRefresh()

end Function

'sub DataReplace(byRef str)
	'replace(str,"<","333")
	'replace(str,">","333")
'end sub

Function IsValidUserName(byVal UserName) '用户名合法性检查
	Dim i,c
	IsValidUserName = true
	For i = 1 to Len(UserName)
		c = Lcase(Mid(UserName, i, 1))
		IF InStr("$!<>?#^%@~`&*(){};:+='""￡? 		", c) > 0 Then
				IsValidUserName = false
				Exit Function
		End IF
	Next
End Function


Function IsValidEmail(byRef Email)   ' email合法性检查
	Dim names, name, i, c
	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 %>