查人人中国名人网丧尸屠城2免费观看全部:asp问题:输出数据库内容的前8文字,如果大于8个则用“...”结尾
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 15:36:31
if len(内容)>8 then
response.write left(内容,8) &"..."
else
response.write 内容
end if
添加一自定义函数
FormatStr(strStr)
参数strStr表示要经处理的字符串
Function FormatStr(strStr)
Dim retValue
retValue = strStr
If Len(strStr) > 8
retValue = Left(strStr, 8) & "..."
End If
FormatStr = retValue
End Function
实例使用：
strTemp = "We are talking about you!"
Response.Write FormatStr(strTemp)
则显示的结果就是
We are t...
就是这样子了。
楼上的两位都是截取前8个字符，但没考虑到汉字是两个字符么，应该是16个字符才能截取8个汉字：
Function CutStr(Str,16)
Dim P_num
Dim I,X
If StrLen(Str)<=16 Then
Cutstr=Str
Else
P_num=0
X=0
Do While Not P_num > 16
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