<head>中加入的内容
<%
Public Function CutStr(Str,LenNum)
Dim P_num
Dim I,X
If Len(Str)<=LenNum Then
Cutstr=Str
Else
P_num=0
X=0
Do While Not P_num > LenNum-2
X=X+1
If Asc(Mid(Str,X,1))<0 Then
P_num=Int(P_num) + 2
Else
P_num=Int(P_num) + 1
End If
Cutstr=Left(Trim(Str),X)&"…"
Loop
End If
End Function
%>
body中调用:
<%=CutStr(rs("content"),300)%>
content与300都可以根据看书的需要设定.....
扫一扫
2404
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
