Question

ASP控制新闻标题字数 哪位高人帮忙一下，高分全球悬赏。帮小弟看看下面的语句怎么控制标题字数呢？

<tr>
<td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
Dim rdsAffiche
Dim sqlAffiche
Dim intAfficheCot
Dim intAfficheCount
Dim strAfficheSubject

intAfficheCot = 6
set rdsAffiche = Server.CreateObject("ADODB.Recordset")
sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
rdsAffiche.Open sqlAffiche,Conn,1,1
if not rdsAffiche.EOF then
do while not rdsAffiche.EOF
%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank"><% = rdsAffiche("Topic")%></a></td></tr><tr><td width="100%" height="1" colspan="2" background="images/dotline.gif"></td></tr><%intAfficheCount = intAfficheCount + 1
if intAfficheCount > intAfficheCot then exit do
rdsAffiche.MoveNext
loop
else%>

Answer 1

<%
'过程substr，参数 str 表示要操作的字符串，num 表示数字个数
Sub substr(str,num)
If Len(str)>num Then
response.write(Left(str,num)) '作用是：如果字符的长度多于要显示的个数，那么就显示规定的字符个数，
Else
response.write(str) ''作用是：如果字符的长度不多于要显示的个数，那么就正常显示该字符
End If
End Sub

'使用方法： Call substr(rdsAffiche("Topic"),n) ，其中 n 代表你要显示的字符个数
%>

Answer 2

<tr>
<td><table border="0" width="100%" cellspacing="0" cellpadding="0">
<%
Dim rdsAffiche
Dim sqlAffiche
Dim intAfficheCot
Dim intAfficheCount
Dim strAfficheSubject

intAfficheCot = 6
set rdsAffiche = Server.CreateObject("ADODB.Recordset")
sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
rdsAffiche.Open sqlAffiche,Conn,1,1
if not rdsAffiche.EOF then
do while not rdsAffiche.EOF
%>
<tr>
<td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank">
<% = left(rdsAffiche("Topic"),16) '修改此处的数字即可 %>
</a></td>
</tr>
<tr>
<td width="100%" height="1" colspan="2" background="images/dotline.gif"></td>
</tr>
<%intAfficheCount = intAfficheCount + 1
if intAfficheCount > intAfficheCot then exit do
rdsAffiche.MoveNext
loop
else%>

Answer 3

<tr>
<td><table border="0" width="100%" cellspacing="0" cellpadding="0"><%
Dim rdsAffiche
Dim sqlAffiche
Dim intAfficheCot
Dim intAfficheCount
Dim strAfficheSubject

intAfficheCot = 6
mylen=10'设置长度，目前是10个字符
set rdsAffiche = Server.CreateObject("ADODB.Recordset")
sqlAffiche = "Select * From Dat_News Where NewsClass = 1 And State = 1 Order By NewsKey Desc"
rdsAffiche.Open sqlAffiche,Conn,1,1
if not rdsAffiche.EOF then
do while not rdsAffiche.EOF
%><tr><td width="100%" height="25" class="F16"><font color="#FF6600">·</font><a href="<% =gqwebdir%>View_News.asp?Id=<% = rdsAffiche("NewsKey")%>" target="_blank"><% = left(rdsAffiche("Topic"),mylen)%></a></td></tr><tr><td width="100%" height="1" colspan="2" background="images/dotline.gif"></td></tr><%intAfficheCount = intAfficheCount + 1
if intAfficheCount > intAfficheCot then exit do
rdsAffiche.MoveNext
loop
else%>

Answer 4

在网上查查 asp left（）函数的用法， left（标题，数字）数字是控制字数的，从左到右数截取。

Answer 5

<% =left（ rdsAffiche("Topic"),n）%> :n代表你要显示的字数