asp函数写法

<%
' -------------------------------
' 手机号码验证
' checkPhone(15800002222)
' -------------------------------
function checkPhone(str)
	set reg = new RegExp
	reg.Pattern = "^1[3456789]\d{9}$"
	
	if reg.test(str) then
		result = true
	else
		result = false
	end if
	
	checkPhone = result
end function

' -------------------------------
' 手机号码黑名单
' blacklist(15800002222)
' -------------------------------
function blacklist(str)
	dim list
	list = array()

	for i=0 to ubound(list)
		if list(i) = cstr(str) then
			blacklist = true
			exit function
		else
			blacklist = false
		end if
	next
end function

' ----------------------------------
' 标准时间转化为时间戳(东八区)
' toUnixTime(Now)
' toUnixTime("2018-05-05 15:05:00")
' ----------------------------------
function toUnixTime(strTime)
	if IsEmpty(strTime) or not IsDate(strTime) then
		strTime = Now
	end if

	toUnixTime = DateAdd("h", -8, strTime)
	toUnixTime = DateDiff("s", "1970-01-01 00:00:00", toUnixTime)
end function

' ------------------------------------
' 时间戳转化成标准时间(东八区)
' fromUnixTime(1567415514)
' ------------------------------------
function fromUnixTime(intTime)
	if isEmpty(intTime) or not isNumeric(intTime) then
		fromUnixTime = Now()
		exit function
	end if

	fromUnixTime = DateAdd("s", intTime, "1970-01-01 00:00:00")
	fromUnixTime = DateAdd("h", +8, fromUnixTime)
end function

%>