|
#2
tiantong2009-12-27 20:22
要怎么修改呢？
 |
错误类型：
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>
程序代码：
