%
dim title
set owen=server.createobject("adodb.recordset")
sqltext4="select top 1 * from Bs_Sysdata"
owen.open sqltext4,conn,1,1
title=owen("BsCompanyName")
EnterpriseMail=owen("BsWebmail")
owen=nothing
owen.close
%>
<%Sub ShowSmallClass_Tree()
%>
<%
dim i
set rsbig = server.CreateObject ("adodb.recordset")
sql="select * from BigClass"
rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
Response.Write "栏目正在建设中……"
else
i=1
do while not rsbig.eof
%>
<%
rsbig.movenext
i=i+1
loop
rsbig.close
set rsbig=nothing
end if
%>
<%
end Sub %>
<%Function cutStr(str,strlen)
Dim re
Dim l,t,c,i
l=Len(str)
t=0
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
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
End Function%>