标题:【急求,在线等】遇到问题来请教
取消只看楼主
工人
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-8-19
结帖率:0
已结贴  问题点数:20 回复次数:4 
【急求,在线等】遇到问题来请教
页面错误。
    提示为:错误 '80020009'
/index.asp,行 25

代码是:
<%
set ab=server.CreateObject("adodb.recordset")
sql="select * from cms_about where title='关于我们'"
ab.open sql,conn,1,1
cn=left(ab("cont"),400)
response.Write(cn&"......阅读全文>>")
%>

在这里请教各位老师,看我这一段代码哪里有错?先谢谢了!!!



[ 本帖最后由 工人 于 2012-8-19 23:24 编辑 ]
搜索更多相关主题的帖子: 在线 老师 
2012-08-19 23:14
工人
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-8-19
得分:0 
听说这里的朋友真诚善良,乐于助人,我就来了。
2012-08-19 23:16
工人
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-8-19
得分:0 
问好楼上两位,虽然问题没有解决也要谢谢你们的热心。
<%
set ab=server.CreateObject("adodb.recordset")
sql="select * from cms_about where title='关于我们'"
ab.open sql,conn,1,1
cn=left(ab("cont"),400)
response.Write(cn&"......阅读全文>>")
%>

  这段代码可能存在问题,1,页面显示略文后,后面是“&nb......阅读全文>> ”其中的“阅读全文”并不含链接;
2,就是被提示:错误 '80020009'
/index.asp,行 25

   而这行25正是这段代码中的“cn=left(ab("cont"),400)”这一行,想请教老师们,看我这段代码哪里存在问题?我该如何修正?

谢谢各位了。




2012-08-20 12:20
工人
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-8-19
得分:0 
谢谢版主,我用你的代码:
<%
   if len(ab("cont")) > 399 then
      cn=left(ab("cont"),400)
      response.write cn&"...阅读全文>> "
   else
      response.write ab("cont")
   end if
%>
替换了我原来的代码:
<%
set ab=server.CreateObject("adodb.recordset")
sql="select * from cms_about where title='关于我们'"
ab.open sql,conn,1,1
cn=left(ab("cont"),400)
response.Write(cn&"......阅读全文>>")
%>

   结果却是页面提示:
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'ab'

/index.asp,行 22

    是我理会错了你的意思吗?还望不吝赐教,谢谢!

2012-08-20 22:27
工人
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-8-19
得分:0 
你发来的代码在22行和23行分别是:
 if len(ab("cont")) > 399 then
      cn=left(ab("cont"),400)
2012-08-20 22:29



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-379782-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048175 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved