Function Chk_Letter(strChar)
If strChar="" Then
	Chk_Letter=False
	Exit Function
End If
If (ASC(strChar)>=ASC("a") And ASC(strChar)<=ASC("z")) Or _
   (ASC(strChar)>=ASC("A") And ASC(strChar)<=ASC("Z")) Then
	Chk_Letter=True
Else
	Chk_Letter=False
End If
End Function

function CheckEmail(Email)
Dim Position,strServerString
Position=0
strServerString=Mid(Email,Instr(Email,"@")+1,Len(Email)-Instr(Email,"@"))

Do 
	Position=Instr(Position+1,strServerString,".")
	If Instr(Position+1,strServerString,".")=Position+1 Then
		CheckEMail=True
		Exit function
	End If
Loop While Position<>0

If EMail="" Then
	CheckEmail=True
	Exit function
End If	
If InStr(EMail,"@")=0 Or Instr(InStr(EMail,"@")+1,EMail,".")=0 _
	Or Instr(Len(Email),Email,".")=Len(Email) _
	Or InStr(EMail,"@")+1=Instr(InStr(EMail,"@")+1,EMail,".") Then
	CheckEmail=True
Else
	CheckEmail=False
End If
End function
function ValidAccount( str )
	DIM tmpstr
	if str = empty then
		ValidAccount = true
		exit function
	end if
	tmpstr = LCase(str)
	ch = Mid(tmpstr, 1, 1)
	asc_code = asc(ch)
	if asc_code = asc("_" ) then 
	if ( asc_code < asc("0") or asc_code > asc("9") )then
		if asc_code < asc("a") or asc_code > asc("z") then
			ValidAccount = false
			exit function
		end if
		end if
	end if
	for s = 1 to len(str) 
		ch = Mid(tmpstr, s, 1)
		asc_code = asc(ch)
		if ( asc_code < asc("a") or asc_code > asc("z") ) then
			if ( asc_code < asc("0") or asc_code > asc("9") )then
				ValidAccount = false			
				exit function
			end if
		end if
	NEXT
	ValidAccount = true
end function
Function CheckID(strID)
	Dim strUID,L1,L2,X1,X2,Y,Z,I,J
	Dim strAlpha
	If Not strID="" And Len(strID)=10 And IsNumeric(Mid(strID,2,9)) And Chk_Letter(Mid(StrID,1,1)) Then
		strAlpha=split("10,11,12,13,14,15,16,17,34,18,19,20,21,22,35,23,24,25,26,27,28,29,32,30,31,33",",",26)
		L1=UCase(Mid(strID,1,1))
		L1=L1+vbNullChar
		L1=Asc(L1)-65
		L2=strAlpha(L1)
		'I 的身份證不檢查
		If Not strAlpha(L1)=0 Then
			X1=Mid(L2,1,1)
			X2=Mid(L2,2,1)
			Y=X1+X2*9
			Z=0
			J=8
			For I=1 to 8
				Z=Z+(Mid(strID,I+1,1)*J)
				J=J-1
			Next
			Z=Z+Mid(strID,10,1)
			If ((Y+Z) Mod 10)=0 Then
				CheckID=False
			Else
				CheckID=True
			End If
			'I的身份證不檢查
		Else
			CheckID=False
		End If
	Else
		CheckID=True
	End If
End Function


FUNCTION JISDATE(YMD)
	JISDATE = ISDATE(YMD)
END FUNCTION
FUNCTION JINSTR(STR1,STR2)												
	JINSTR =  INSTR(STR1,STR2)
END FUNCTION
FUNCTION JMID(STR1,ONBY,STBY)												
	JMID =  MID(STR1,ONBY,STBY)
END FUNCTION
FUNCTION JISNUMERIC(STR)												
	JISNUMERIC =  ISNUMERIC(STR)
END FUNCTION
FUNCTION JLCASE(STR)
	JLCASE = LCASE(STR)
END FUNCTION
FUNCTION JUCASE(STR)
	JUCASE = UCASE(STR)
END FUNCTION