| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1073 人关注过本帖
标题:有高手帮看下程序吗?
取消只看楼主 加入收藏
tiantong
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-12-27
结帖率:0
收藏
已结贴  问题点数:10 回复次数:1 
有高手帮看下程序吗?
我是菜鸟,请高手帮看下程序,下面这个出错了,提示

错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象
/yes.asp, 第 45 行








 <!--#include file="conn.asp"-->
 
<%
dim sql
Dim stringes,displays,homepages,filers,title,ok
set rs=server.createobject("adodb.recordset")
          sql="select * from info"
          rs.open sql,conn
stringes=rs("stringe")
displays=rs("display")
homepages=rs("homepage")
filers=rs("filer")
          rs.close
sql="Select top 10 * From news Order By Date DESC"
rs.open sql,conn
 if not rs.eof then
    rs.movefirst
    ok=ok & ""
    do while not rs.eof
    if len(rs("title"))>stringes then
    title=left(rs("title"),stringes)
    else
 title=rs("title")
 end if
    ok=ok &"<a href=../Display.asp?id=" & rs("id") & " title=点击链接,进入详细页面  target=_blank>"&title&"</a>[<font size=1>"&datevalue(rs("Date")) & "</font>]<br>"
        rs.movenext
    loop
   
end if
           rs.close
          conn.close
          set rs=nothing
          set conn=nothing
ok=""&ok&""
response.write ok
%>




<table width="99%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="ffffff">
<%
  dim i
  i=0
    rs.open "select * from links where falg=1 and type1='1' order by id desc",conn,1,1
    if rs.recordcount=0 then
       response.Write ""
    else
      if ii mod 8=0 then response.Write "<tr align=center bgcolor=F3F6FA>"
        do while not rs.eof
          response.write "<td><a href="&rs("webaddr")&" target=_blank><img src="&rs("weblogo")&" border=0 width=88 height=31></a></td>"
          i=i+1
      if i mod 8=0 then response.Write("</tr>")
         
     rs.movenext
          loop
   end if
rs.close
set rs=nothing
%>
</table>

<table width="99%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="ffffff">
<%
  dim ii
  ii=0
   Set rs1=Server.CreateObject("ADODB.Recordset")
   
    rs1.open "select * from links where falg=1 and type1='2' order by id desc",conn,1,1
    if rs1.recordcount=0 then
       response.Write ""
    else
      if ii mod 8=0 then response.Write "<tr align=center bgcolor=F3F6FA>"
        do while not rs1.eof
          response.write "<td><a href="&rs1("webaddr")&" target=_blank>"&rs1("webname")&"</a></td>"
          ii=ii+1
      if ii mod 8=0 then response.Write("</tr>")
         
     rs1.movenext
          loop
   end if
rs1.close
set rs1=nothing
%>
</table>



搜索更多相关主题的帖子: sql Microsoft homepage displays include 
2009-12-27 20:20
tiantong
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-12-27
收藏
得分:0 
要怎么修改呢?
2009-12-27 20:22
快速回复:有高手帮看下程序吗?
数据加载中...
 
   



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

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