
<%
'====================================
'Title标题，LanguageId 0-英文，1-中文
'====================================
Function GetAboutUs(Title,LanguageId,ContentNum)
    Set rs=Server.CreateObject("AdoDB.Recordset")
	sql="select Content from AboutUs where Title='" & Title & "' and Language='" & LanguageID & "'"
	set rs=conn.execute(sql)
	if rs.eof and rs.bof then
	  GetAboutUs="Error"
	Else
	  If Clng(ContentNum)>0 then
		  GetAboutUs=Left(rs("Content"),ContentNum)&"......"
	  Else
		  GetAboutUs=Left(rs("Content"),500)&"......"
	  End If
	End If
	rs.close:set rs=nothing
End Function
'**************************************************
'函数名：FoundInArr
'作  用：检测数组中是否有指定的数值
'参  数：strArr ----- 调入的数组
'        strItem  ----- 检测的字符
'        strSplit  ----- 分割字符
'返回值：True  ----有
'        False ----没有
'date 
'web
'author:
'**************************************************
Function FoundInArr(strArr, strItem, strSplit)
    Dim arrTemp, arrTemp2, i, j
    FoundInArr = False
    If IsNull(strArr) Or IsNull(strItem) Or Trim(strArr) = "" Or Trim(strItem) = "" Then
        Exit Function
    End If
    If IsNull(strSplit) Or strSplit = "" Then
        strSplit = ","
    End If
    If InStr(Trim(strArr), strSplit) > 0 Then
        If InStr(Trim(strItem), strSplit) > 0 Then
            arrTemp = Split(strArr, strSplit)
            arrTemp2 = Split(strItem, strSplit)
            For i = 0 To UBound(arrTemp)
                For j = 0 To UBound(arrTemp2)
                    If LCase(Trim(arrTemp2(j))) <> "" And LCase(Trim(arrTemp(i))) <> "" And LCase(Trim(arrTemp2(j))) = LCase(Trim(arrTemp(i))) Then
                        FoundInArr = True
                        Exit Function
                    End If
                Next
            Next
        Else
            arrTemp = Split(strArr, strSplit)
            For i = 0 To UBound(arrTemp)
                If LCase(Trim(arrTemp(i))) = LCase(Trim(strItem)) Then
                    FoundInArr = True
                    Exit Function
                End If
            Next
        End If
    Else
        If LCase(Trim(strArr)) = LCase(Trim(strItem)) Then
            FoundInArr = True
        End If
    End If
End Function

'**************************************************
'函数名：FC_CLng
'作  用：将字符转为整型数值
'参  数：str1 ---- 字符
'返回值：如果传入的参数不是数值，返回0，其他情况返回对应的数值
'**************************************************
Function FC_CLng(ByVal str1)
    If IsNumeric(str1) Then
        FC_CLng = Fix(CDbl(str1))
    Else
        FC_CLng = 0
    End If
End Function
'**************************************************
'函数名：FC_CLng1
'作  用：将字符转为整型数值
'参  数：str1 ---- 字符
'返回值：如果传入的参数不是数值，返回1，其他情况返回对应的数值
'**************************************************
Function FC_CLng1(ByVal str1)
    If IsNumeric(str1) Then
        FC_CLng1 = CLng(str1)
        If FC_CLng1 <= 0 Then FC_CLng1 = 1
    Else
        FC_CLng1 = 1
    End If
End Function
Function GetCreateIndex()
If CreateIndex<>"No" then
%>
<iframe scrolling="no" name="frampack" frameborder="0" marginheight="0" marginwidth="0" width="98%" height="30" allowTransparency src="Admin_Create_Index.Asp"></iframe>
<%
End If
End Function
%>