Kite's Blog 技术文章版

在动态网页编程时，如果文章标题过长，超过表格宽度，会自动换行，这样会影响网页的排版布局。所以，通常采用固定地提取一部分字符，然后后面用…代替。

这里，结合“深度空间整站系统” 程序实例进行简单阐述。

1、原理：
判断文章的长度数是否超过规定的长度数，若超过则只显示规定长度的文字数，否则完整显示。

2、涉及函数：
函数的用法详见VBScript函数手册，在此再简单介绍一下：
len() 返回字符串长度或者变量的字节长度。
mid() 返回字符串中从第N个字符开始取M个字符，它的格式是Mid("字符串",N,M)。
left()：截取一个字符串的前部分

3、ASP示例代码：

<%
title=rs("content") '将数据库字段值赋到某变量上
i=10 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"...")
else
response.write (title)
end if
%>

4、“深度空间整站系统” 程序实例代码如下:

实例文件名:index_NewArticle.asp

<% If len(RsNewArticle.Fields.Item("fTitle").Value)<13 Then %> '判断内容长度是否大于给定值13，据结果做相应操作
<a href="index_Article_Content.asp?fID_ArticleContent=<%=(RsNewArticle.Fields.Item("fID_ArticleContent").Value)%>" target="_blank" title="<%=(RsNewArticle.Fields.Item("fTitle").Value)%>"><%=(RsNewArticle.Fields.Item("fTitle").Value)%></a>
<% Else %>
<a href="index_Article_Content.asp?fID_ArticleContent=<%=(RsNewArticle.Fields.Item("fID_ArticleContent").Value)%>" target="_blank" title="<%=(RsNewArticle.Fields.Item("fTitle").Value)%>"><%=mid((RsNewArticle.Fields.Item("fTitle").Value),1,13)%>…</a>'则提取内容长度前段的13位的字符串
<% End If %>
说明：上面代码采用DW开发作适当手写修改而成，因此代码不如手写简练。可参照ASP示例代码修改