<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% dim conn
%>
<%
'用省略号格式化数据标题（兼容中文字）
function CutStr(str,strlen,endStr)
dim cvSt:cvSt=Str
if cvSt="" then
CutStr=""
exit function
end if
dim l,t,c
l=len(cvSt)
t=0
for i=1 to l
c=Abs(Asc(Mid(cvSt,i,1)))
if c>255 then
t=t+2
else t=t+1
end if
if t>=strlen then
cutStr=left(cvSt,i)&endStr
exit for
else cutStr=cvSt
end if
next
cutStr=replace(cutStr,chr(10),"")
cutStr=replace(cutStr,chr(0),"")
end Function
%> <%
set rs=conn.execute("select top 1 * from news where lm2='64'")
if not rs.bof then
%>
利宝华塑料有限公司
