如果标题长了，怎么样让它显示时按规定出来多少个字？ - Dreamweaver及网页制作

» 互动论坛 » Dreamweaver及网页制作 » 如果标题长了，怎么样让它显示时按规定出来多少个字？

跳转到：

每页显示15条 1/1 << <1 >>

<%
'将重复域中第一个标签的CLASS属性代码用本模块替换
'本模块基于CSS来改变单元格背景色，你也可以直接设置背景色来实现斑马线
RecordCounter = Recordcounter + 1
If RecordCounter Mod 2 = 1 Then
Response.Write "altRow1"
Else
Response.write "altRow2"
End If
%>

●显示字符串前20个字符并在结尾处添加“……”

<%
Dim CutShort
CutShort = rsYourRecordset.Fields.Item("YourField").value
Response.Write LEFT (CutShort, 20) & "........"
%>

●如果动态图片为空，用默认图片代替

<%
Dim PicShow
PicShow = rsShowHide.Fields.Item("shMainPix").value
IF PicShow <>"" THEN %>

">
<% ELSE %>

<% End If %>

●如果数据为空，用默认提示信息代替。

<%
Dim strShowHide
strShowHide = rsYourRecordset.Fields.Item("YourDataField").value
IF stShowHide <>"" THEN%>
数据为空
<%END IF%>

编辑历史:[这消息被扬扬编辑过(编辑时间2003-09-13 23:32:13)]

	主题: 如果标题长了，怎么样让它显示时按规定出来多少个字？
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #12003/1/19 22:01:39 如果标题长了，怎么样让它显示时按规定出来多少个字？比如，把留言的前几条放在一页上，然后，不想让标题显完（为了页面整齐美观），然后怎么样把它截取？我只想要留言（假若很长）的前十五个字或十个字，怎么样做到啊？谢谢！
缺缺职务：管理员等级：8 金币：41.0 发贴：9620 注册：2004/1/14 19:14:47	引用 #22003/1/20 0:36:19 简单点这么来： left(rs("title"),20)
wanlixwl 职务：普通成员等级：1 金币：0.0 发贴：113 注册：2002/11/14 9:37:03	引用 #32003/1/20 8:16:49 插件，就可以了！http://www.fans8.com/download/downintr.asp?id=103&cateid=1&subcateid=1
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #42003/9/13 23:06:34 插件是可以呀。但是，有个问题：如果标题上是一个链接的话呢？就是说后台这样添加 [`url=http://www.5d.cn/bbs/newsdetail.asp?id=651864]这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D[/URL'] 首页又用了asp，这时显示的是[`url=http://www.5d.cn/bbs/n。。。怎么解决？
大当家职务：普通成员等级：3 金币：1.0 发贴：767 注册：2001/12/8 20:02:19	引用 #52003/9/13 23:30:58 参考这个：常用代码集锦(ASP) 作者：webthang.co.uk 显示页面加载时间重复域中的斑马线显示字符串前20个字符并在结尾处添加“……” 如果动态图片为空，使用默认图片代替如果数据为空，使用默认提示信息代替 ●显示页面加载时间页面顶部添加下面的代码： <% Dim strStartTime Dim strEndTime strStartTime = Timer '开始时间 %> 页面(同一页)的末尾添加： <% ' 加载完毕的时间 strEndTime = Timer Response.Write ("页面加载时间: ") Response.Write FormatNumber(strEndTime - strStartTime, 4) Response.Write (" 秒.") %> ●重复域中的斑马线 <% '此模块放置在重复域之外 Dim RecordCounter Recordcounter = 0 %>
cgybjb 职务：普通成员等级：1 金币：0.0 发贴：36 注册：2003/3/17 17:20:16	引用 #62003/9/14 1:43:17 www.dw-mx.com/plug/plug_count.asp?PID=33插件可以解决
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #72003/9/14 11:38:39 1/扬扬的办法： ●显示字符串前20个字符并在结尾处添加“……” <% Dim CutShort CutShort = rsYourRecordset.Fields.Item("YourField").value Response.Write LEFT (CutShort, 20) & "........" %> ------------------- 试过了，不行。标题里有链接的话坏事了。 ------------------------------------------------------------ 2、cgybjb提供的先下载了，还没试，一会儿来汇报。 ----------------------- 不管怎么说谢谢各位。让大家继续讨论这一问题。编辑历史:[这消息被zgqzgq编辑过(编辑时间2003-09-14 11:44:11)]
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #82003/9/14 11:59:25 left(dfasdfa,20)&"...."和插件都用了，不行，效果在 www2.zzu.edu.cn/cjy/index1111.asp 成教信息栏内，在后台标题加链接时出问题了，它截的不是连接文字，是URL字符串，怎么样加一个判断让它知道这是[url]而不截它呢？。（这是插件的效果）编辑历史:[这消息被zgqzgq编辑过(编辑时间2003-09-14 20:46:09)]

每页显示15条 1/1 << <1 >>

	主题: 如果标题长了，怎么样让它显示时按规定出来多少个字？
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #12003/1/19 22:01:39 如果标题长了，怎么样让它显示时按规定出来多少个字？比如，把留言的前几条放在一页上，然后，不想让标题显完（为了页面整齐美观），然后怎么样把它截取？我只想要留言（假若很长）的前十五个字或十个字，怎么样做到啊？谢谢！
缺缺职务：管理员等级：8 金币：41.0 发贴：9620 注册：2004/1/14 19:14:47	引用 #22003/1/20 0:36:19 简单点这么来： left(rs("title"),20)
wanlixwl 职务：普通成员等级：1 金币：0.0 发贴：113 注册：2002/11/14 9:37:03	引用 #32003/1/20 8:16:49 插件，就可以了！http://www.fans8.com/download/downintr.asp?id=103&cateid=1&subcateid=1
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #42003/9/13 23:06:34 插件是可以呀。但是，有个问题：如果标题上是一个链接的话呢？就是说后台这样添加 [`url=http://www.5d.cn/bbs/newsdetail.asp?id=651864]这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D这是5D[/URL'] 首页又用了asp，这时显示的是[`url=http://www.5d.cn/bbs/n。。。怎么解决？
大当家职务：普通成员等级：3 金币：1.0 发贴：767 注册：2001/12/8 20:02:19	引用 #52003/9/13 23:30:58 参考这个：常用代码集锦(ASP) 作者：webthang.co.uk 显示页面加载时间重复域中的斑马线显示字符串前20个字符并在结尾处添加“……” 如果动态图片为空，使用默认图片代替如果数据为空，使用默认提示信息代替 ●显示页面加载时间页面顶部添加下面的代码： <% Dim strStartTime Dim strEndTime strStartTime = Timer '开始时间 %> 页面(同一页)的末尾添加： <% ' 加载完毕的时间 strEndTime = Timer Response.Write ("页面加载时间: ") Response.Write FormatNumber(strEndTime - strStartTime, 4) Response.Write (" 秒.") %> ●重复域中的斑马线 <% '此模块放置在重复域之外 Dim RecordCounter Recordcounter = 0 %>
cgybjb 职务：普通成员等级：1 金币：0.0 发贴：36 注册：2003/3/17 17:20:16	引用 #62003/9/14 1:43:17 www.dw-mx.com/plug/plug_count.asp?PID=33插件可以解决
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #72003/9/14 11:38:39 1/扬扬的办法： ●显示字符串前20个字符并在结尾处添加“……” <% Dim CutShort CutShort = rsYourRecordset.Fields.Item("YourField").value Response.Write LEFT (CutShort, 20) & "........" %> ------------------- 试过了，不行。标题里有链接的话坏事了。 ------------------------------------------------------------ 2、cgybjb提供的先下载了，还没试，一会儿来汇报。 ----------------------- 不管怎么说谢谢各位。让大家继续讨论这一问题。编辑历史:[这消息被zgqzgq编辑过(编辑时间2003-09-14 11:44:11)]
zgqzgq 职务：普通成员等级：1 金币：0.0 发贴：136 注册：2001/11/7 15:36:46	引用 #82003/9/14 11:59:25 left(dfasdfa,20)&"...."和插件都用了，不行，效果在 www2.zzu.edu.cn/cjy/index1111.asp 成教信息栏内，在后台标题加链接时出问题了，它截的不是连接文字，是URL字符串，怎么样加一个判断让它知道这是[url]而不截它呢？。（这是插件的效果）编辑历史:[这消息被zgqzgq编辑过(编辑时间2003-09-14 20:46:09)]