关于ASP中句子省略的问题?(数据库中的文字在网页中的显示问题!)

[Ajies]

我用ASP+Access做了一个网页,其中像新闻发布那样.我并不想让一些内容全显示出来,比如有一个标题本来是20个字,我只想让这一行最多显示15个字,然后用省略号代替.
如:
本来应该显示这样:
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA(数据库中的文字在网页中的显示)
我想让他显示这样:
AAAAAAAAAAAAAAAAA......(数据库中的文字在网页中的显示)


先谢啦!

[navysda]

这样写！
<%
aa=shbx.Fields.Item("zcname").Value
if aa>15 then
bb=left(aa)
bb="bb"&"......"
else
bb=shbx.Fields.Item("zcname").Value
end if
response.write bb
%>

[jiangc]

If rs("标题")>15 then
response.write left(rs("标题"),15)&"..."
Else
response.write rs("标题")
End if
===============
这是最核心的了，当然我还有个好的建议，你说这不是新闻的标题吗？那打印出来的“标题”就一定是个链接了，这样更好，即，超过15字的时候，打印前15字与“...”，并且，当MOUSE移上时，显示出整个标题：

If rs("标题")>15 then
response.write "<a href='' title='"&rs("标题")&"'>"&left(rs("标题"),15)&"...</a>"
Else
response.write rs("标题")
End if

[danjingwu]

<%
aa=(shbx.Fields.Item("zcname").Value)
'这里不能用aa=<%=(shbx.Fields.Item("zcname").Value)%>，而应该是
'aa=(shbx.Fields.Item("zcname").Value)
if aa>15 then
aa=left(aa,15)&"..."
else
aa=(shbx.Fields.Item("zcname").Value)
end if
response.write bb
%>
这样就行了，要特别注意我的那两个注释！

[aojiankd]

function mylen(str,slen)
if len(str)<slen then
mylen=str
else
mylen="<span title="&str&">"&left(str,slen-1)&"...</span>"
end if
end function

[jumpnew929]

你用substring吧，不过中文比较难控制

[luluso]

if len(words)>15 then
aa= left(words,15)
else
aa=words
end if

[fkphp]

if len(words)>15 then
aa= left(words,15)&"....."
else
aa=words
end if

[xlou]

大体应该这样写

aa=trim(request("aa"))
if len(aa)>15 then
aa=left(aa,15)
aa=aa&......
end if

具体细节可以自己写 但大体思想就是这样！1

[xlou]

大体应该这样写

aa=trim(request("aa"))
if len(aa)>15 then
aa=left(aa,15)
aa=aa&......
end if

具体细节可以自己写 但大体思想就是这样！1

[hayes56k]

中文可能 1个中文=2个英文

[Ajies]

大哥,我有点不懂!
比如这个字段<%=(shbx.Fields.Item("zcname").Value)%>只让他显示15个字,然后在用省略号代替(......)该怎么写代码呢?

[luluso]

<%
aa=<%=(shbx.Fields.Item("zcname").Value)%>
if aa>15 then
bb=left(aa)
bb="bb"&"......"
else
bb=<%=(shbx.Fields.Item("zcname").Value)%>
end if
response.write bb
%>

[fenlin]

用这个一定没有问题
<%
thetitle=Rs("标题")
if len(thetitle)>15 Then thetitle=left(thetitle,15)&"..."
response.write thetitle
%>

[luluso]

bb=left(aa)
上面的left(aa)忘了加后面的应是:
bb=left(aa,15)
改正!!!!!!!!!!!!!

[Ajies]

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/sdfuliweb/TMP6i2ynr02dd.asp, line 4, column 2
aa=<%=(shbx.Fields.Item("zcname").Value)
-^

[yuanjinming]

值得学习