 <!--
	
	'下拉框检查'
	Function Check_ListBox(Value,ErrMsg)
		If  value<1 Then 
			Check_ListBox=ErrMsg
		Else
			Check_ListBox=""
		End If
	End Function

	
	'单/复选框检查'
	Function Check_SelectBox(RadioObject,ErrMsg)
		Dim Radio,blCheck
		blCheck=False
		For Each Radio in RadioObject
			If Radio.checked=True Then
				blCheck=True
			End if
		Next
		If  blCheck=False Then 
			Check_SelectBox=ErrMsg
		Else
			Check_SelectBox=""
		End If
	End Function
	
		
	'字符长度验证'
	Function CharLen(Value,MinLen,MaxLen,ErrMsg)
		If  Len(value)<MinLen Or Len(value)>MaxLen Then 
			CharLen=ErrMsg
		Else
			CharLen=""
		End If
	End Function 
	
	'数字验证'
	Function IsNum(Value,MinValue,MaxValue,ErrMsg)
		If  isNumeric(Value)=false Then 
			IsNum=ErrMsg
		Else
			If CCur(Value)>=CCur(MinValue) and CCur(Value)<=CCur(MaxValue) Then
				IsNum=""
			Else
				IsNum=ErrMsg
			End IF
		End If
	End Function 
	
	
	'日期验证'
	Function IsDateTime(Value,MinValue,MaxValue,ErrMsg)
		If  isDate(Value)=false Then 
			IsDateTime=ErrMsg
		Else
			IsDateTime=""
		End If
	End Function 


	'邮箱验证'
	Function IsMail(Value,MinLen,MaxLen,ErrMsg)
         Dim Regu,Re,Matches,InfoCout
		 Regu="^(([0-9a-zA-Z]+)|([0-9a-zA-Z]+[_.0-9a-zA-Z-]*[0-9a-zA-Z]+))@([a-zA-Z0-9-]+[.])+([a-zA-Z]{2}|net|NET|com|COM|gov|GOV|mil|MIL|org|ORG|edu|EDU|int|INT)$"
         Set Re = new RegExp
		 Re.Pattern =Regu
		 Re.Global = True  '设置全局可用性。' 
		 Set Matches = Re.Execute(Value)  '执行搜索。' 
		 InfoCout=Matches.count

         If  InfoCout =0 Then
			IsMail=ErrMsg
		 Else
			IsMail=""
		 End If
		 Set Re =Nothing
	End Function 
	
	
	sub MinClassBox(strMinValue,SpanID,SelectName,FieldValue)
		If strMinValue="" Then 
			SpanID.innerHTML=""
			Exit Sub
		End IF
		Dim ArrMinClass,MinClass,strSelect,strSelected
		ArrMinClass=Split(strMinValue,",")
		For Each MinClass in ArrMinClass
		
		    IF FieldValue=Split(MinClass,"|")(0) Then
				strSelected="selected=""selected"""
			else
				strSelected=""
			End IF
			strSelect=strSelect & "<option  " & strSelected & " value=""" & Split(MinClass,"|")(0) & """>" & Split(MinClass,"|")(1) & "</option>"
		Next
		SpanID.innerHTML="　小类:<select name=""" & SelectName & """ >" & strSelect & "</select>"
	End sub
	
	
 -->
