如何应用Mid()函数控制显示的字数
在设计网站公告栏时,由于公告栏中的信息是动态显示出来的,并且通过单击公告标题可以进入相关信息的详细页面。由于公告的标题长短不一,为了确保网站整体页面的协调性,需要将公告标题以指定的字数显示到网站中,并且将多余的部分以省略号的形式显示出来。本实例主要应用Mid()函数实现,该函数的语法格式如下:
Mid(string,start[,length])
参数说明
string:字符串表达式,从中返回字符。
start:string中被提取的字符部分的开始位置。
length:要返回的字符数。
运行结果如图6.14所示。

图6.14 应用Mid()函数控制显示的字数
主要应用Mid()函数来控制显示的字数。代码如下:
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Sql_2 = "Select top 5 * from tb_BBS order by JoinTime Desc"
Set rs_2 = conn.Execute(Sql_2)
While(Not rs_2.Eof)
%>
<tr>
<td height="34"><img src="Images/stars.gif">
<%
If(Len(rs_2("BBSTopic")) > 8)Then
Response.Write("<a href='#'>"&Server.HTMLEncode(Mid(rs_2("BBSTopic"),1,8))&"....</a>")
Else
Response.Write("<a href='#'>"&Server.HTMLEncode(rs_2("BBSTopic"))&"</a>")
End If
%>
</td></tr>
<%
rs_2.MoveNext
Wend
rs_2.close
Set rs_2 = Nothing
%>
<tr>
<td height="20" align="right" valign="bottom"><img src="Images/more.gif" width="60" height="22" border="0"></td>
</tr>
</table>