取一个记录集的前几个字怎么作的呀??
比如:<%=rs("hy")%> 我只要这个记录的前面8个字显出来(因为表格宽有限)

怎么没人跟我说呀,汗

Function cutStr(str,strlen)
'去掉所有HTML标记
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
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
End Function
这个可以用,还可以屏蔽HTML,使用<%=cutStr(rs("hy")),8)%>

<%response.write left(rs("hy"),8)%>