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


'**************************************************
'函数名：gotTopic
'作  用：截字符串，汉字一个算两个字符，英文算一个字符
'参  数：str   ----原字符串
'       strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
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