asp 截取一段文字

[xuantian868]

asp 截取一段文字，当大于规定的文字个数的时候，用“更多”代替，点击更多时，进入另一个页面。。
谢谢。

[wlnh420]

if len(str)>规定字数 then response.write "<a href=*.asp>更多</a>"

[veking]

If Len(Str) > MaxWord Then Response.Write("<a href=""more.asp"">更多...</a>")

[jnzsk]

if len(str)>规定字数 then
response.write left(str,规定字数) & "...[<a href='#'>更多</a>]"
else
response.write str
end if

[net205]

Function StrLength(str)
ON ERROR RESUME NEXT
Dim WINNT_CHINESE
WINNT_CHINESE = (len("汉字")=2)
If WINNT_CHINESE Then
Dim l,t,c
Dim i
l=len(str)
t=l
For i=1 To l
c=asc(mid(str,i,1))
If c<0 Then c=c+65536
If c>255 Then
t=t+1
End If
Next
strLength=t
Else
strLength=len(str)
End If
If err.number<>0 Then err.clear
End Function

Function CutStr(str,strlen)
Dim l,t,c,i
l=len(str)
t=0
If str="" Or IsNull(str) Then str="" : Exit Function
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),"")
End Function

[net205]

abc="sksldkajsdfasdf"
Response.Write CutStr(abc,5)
If StrLength(abc)>5 Then Response.Write "..."


中文当2个

[veking]

呵呵 学习拉