function isDateStr(strDate)
																																																			isDateStr = isdate(strDate)
																																									
																																									if isDateStr then
																																																				strDate=cdate(strDate)
																																																	if strDate>cdate("1900-1-1") and strDate < cdate("2079-6-6") then isDateStr=true
																																									end if
																																										
																																																	end function
																																								
																																								function isDateStr_lda(strDate)
																																								
																																									isDateStr_lda = isdate(strDate)
																																																													
																																									if isDateStr_lda then
																																																											strDate=cdate(strDate)
																																										if strDate>cdate("1753-1-1") and strDate < cdate("9999-12-31") then isDateStr_lda=true
																																																																end if
																																										
																																								end function
																																								
																																																		
																																								function isDASJ(strDate)
																																								
																																									isDASJ = isdate(strDate)
																																																																							
																																																				if isDateSJ then
																																																		strDate=cdate(strDate)
																																																																					if strDate>cdate("1900-1-1 00:00") and strDate < cdate("2079-6-6 23:59") then isDateSJ=true
																																																																		end if
																																								
																																								
																																								end function
																																																		
																																								function isLLDA(strDate)
																																																					isLLDA = isdate(strDate)
																																																														
																																																														if isLLDA then
																																										strDate=cdate(strDate)
																																										if strDate>cdate("100-1-1") and strDate < cdate("9999-12-31") then isLLDA=true
																																																					end if
																																								
																																								end function
																																																			
																																															
																																								
																																								
																																																	function isintStr(strInt)
																																														isintStr = isnumeric(strInt)
																																								end function
																																																																												
																																																																								function isValidSmallDate(strDate)
																																									dim smalldate
																																									smalldate = cdate(strDate)
																																																					if smalldate > cdate("2079-6-6") or smalldate < cdate("1900-1-1") then
																																										isValidSmallDate = false
																																																			else
																																										isValidSmallDate = true
																																									end if
																																																			end function
																																																
																																								function isDecimal(strDate)
																																																			
																																																	if isNumeric(strDate) then
																																										if len(strDate)<=38 then
																																											isDecimal=true
																																																																									else
																																																																						isDecimal=false
																																										end if
																																									else
																																																			isDecimal=false
																																										
																																																		end if	
																																															
																																								end function
																																								
																																																		function isMoney(strDate)
																																															
																																									if isNumeric(strDate) then
																																																			if (strDate>-900000000000000) and(strDate<900000000000000)  then
																																																		isMoney=true
																																										else
																																																							isMoney=false
																																										end if
																																									else
																																										isMoney=false
																																																																
																																																												end if	
																																								
																																								end function
																																								
																																																														function getValue(str,strItem)
																																																				dim iState1,iState2
																																									iState1 = instr(1,str,strItem)
																																																														iState2 = instr(iState1+len(strItem)+2,str,"""") 
																																																	getValue = mid(str,iState1+len(strItem)+2,iState2-iState1-len(strItem)-2)
																																								end function
																																								
																																								function gotTopic(ByVal str,ByVal strlen)
																																									if str="" then
																																										gotTopic=""
																																																							exit function
																																									end if
																																									dim l,t,c, i,strTemp
																																																			str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
																																									l=len(str)
																																																		t=0
																																														strTemp=str
																																									strlen=Clng(strLen)
																																																																																														for i=1 to l
																																										c=Abs(Asc(Mid(str,i,1)))
																																																			if c>255 then
																																																	t=t+2
																																										else
																																											t=t+1
																																																			end if
																																															if t>=strlen then
																																											strTemp=left(str,i)
																																																			exit for
																																																	end if
																																									next
																																									if strTemp<>str then
																																																														strTemp=strTemp & "бн"
																																									end if
																																																									gotTopic=replace(replace(replace(replace(strTemp," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
																																								end function