题目太长了，换行又比较难看
怎么样解决呢？

截取一部份，未显示的用 ... 代替。

Mid函数截取字符串
语法:Mid([要截取的字符串]，[从第几个字符开始截取],[截取多少个字符])
返回值：返回截取后的字符串
例子
<%
Dim Str
Str="ABCD"
Response.Write "原字符串"&Str
Str=Mid(Str,1,3)
Response.Write "截取后的字符串"&Str
%>

[此贴子已经被作者于2007-5-27 16:33:10编辑过]

Str=Mid(Str,1,3)
参数 str是需要截取的字符串，1是开始截取的位置，3是停止截取的位置。

有无长文本截取插件？DREAMWEAVER2004的

学习编程是不能光依靠插件的。

你给的字符串我不会用
如果有插件就好啦

不会用就学，不会学就算了。既然都不会学了，我也无谓帮你。

用这个函数：
<%
'*************************************************
'作　者：渝满江城
'博　客:http://Jclman.bokee.com
'注　释：str----原字符串 　strlen ----截取长度
'*************************************************
function GetString(str,strlen)
if str="" then
GetString=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
GetString=left(str,i) & "..."
exit for
else
GetString=str
end if
next
GetString=replace(replace(replace(replace(GetString," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
end function
%>

已阅,感谢大侠留言!