isvalidemail.asp

有很多功能的留言版,很容易上手,有自动添加图片、表情。管理员功能也强大

<%
function IsValidEmail(email)
	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 IsValidUrl(WebSize)
	IsValidUrl = true
	for i = 1 to Len(WebSize)
	c = LCase(Mid(WebSize, i, 1))
	if InStr("abcdefghijklmnopqrstuvwxyz_-/.:", c) <= 0 and not IsNumeric(c) then
		IsValidUrl = false
		exit function
	end if
	next
end function
%>