页面读取数据库的内容,由于数据过长页面变大了怎么办.

用<%=left(rs("title"),10)%>
来截取.

[此贴子已经被作者于2007-5-19 13:22:12编辑过]

最好来个判断
If len(rs("title"))>10 then
Response.Write(Left(rs("title"),10))
Else
Response.Write(Left(rs("title"),8)&"...")
End If

<%left(rs(6),10)%>

Microsoft VBScript 编译器错误 (0x800A0414)
调用子程序时不能使用括号
/1/点菜一览.asp, line 331, column 14
left(rs(6),10)

怎么办啊

写错了，呵
可能是你的rs(6)长度不够，或是类型不对
If len(rs("title"))>10 then
Response.Write(Left(rs("title"),8)&"...")
Else
Response.Write(rs("title"))
End If

晕...
那个谁谁...
你这个<%left(rs(6),10)%>不是误人子弟么
加个"="号<%=left(rs(6),10)%>
有输出就成了

<% =left(rs(6),60)%>
好了.
谢谢 xuecg 了.

sorry
我的错的
掉了个等号.

事实上你们以上做法还不能完成任务，因为<% =left(rs(6),60)%>得出的结果还带有不可见的空格，一样会占位，只是看不见东西而已，给你们发个我写的截取字符串的函数吧，美观方便：
<%
'*************************************************
'作　者：渝满江城
'博　客: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
%>

截字符串VBScript有自己的系统函数Mid(str,start,len)
返回截取后的字符串
str要截取的原字符串
start从第几个字符开始截字符串
len截多少个字符