Question

ASP控制标题字数

<% Set Rs = Conn.Execute("Select top 5 * From News Where Class = '001' Order By DateTime Desc") %>
<% IF Not (Rs.EOF AND Rs.BOF) Then %>
<% While not rs.eof %>
<% Response.Write "<img src=images/jt.gif> <a href=News.asp?ID="& Rs("ID") &"><font color=#FFCC00>"&rs("Title")&"</font></a><br>"%>
<% Rs.MoveNext %>
<% Wend %>
<% End IF %>
<% Rs.Close %>
<% Set Rs = Nothing %>

哪位教师帮忙整一下！

Answer 1

<%
Set Rs = Conn.Execute("Select top 5 * From News Where Class = '001' Order By DateTime Desc")
IF Not (Rs.EOF AND Rs.BOF) Then
Do While not rs.eof
Response.Write "<img src=images/jt.gif> <a href=News.asp?ID="& Rs("ID") &"><font color=#FFCC00>"&Left(rs("Title"),6)&"</font></a><br>"
Rs.MoveNext
loop
End IF
Rs.Close
Set Rs = Nothing
%>

Answer 2

<%
Set Rs = Conn.Execute("Select top 5 * From News Where Class = '001' Order By DateTime Desc")
IF Not (Rs.EOF AND Rs.BOF) Then
While not rs.eof
%>
<img src=images/jt.gif> <a href="News.asp?ID=<%=Rs("ID")%>"><font color=#FFCC00><%=rs("Title")%></font></a><br>
<%
Rs.MoveNext
Wend
End IF
Rs.Close
Set Rs = Nothing
%>

Answer 3

' ============================================
' 获取字符实际长度
' ============================================
Function GetTrueLen(str)
If IsNull(str) Or str = "" Then
GetTrueLen = 0
Else
Dim i, n, k, chrA
k = 0
n = Len(str)
For i = 1 To n
chrA = Mid(str, i, 1)
If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then
k = k + 1
Else
k = k + 2
End If
Next
GetTrueLen = k
End If
End Function

' ============================================
'截取显示字符串
' ============================================
Public Function CutStr(Str,LenNum)
Dim P_Num
Dim i, X
If GetTrueLen(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