不明白的错误（ADODB.Recordset (0x800A0BB9)）

ark1994 2004-04-15 09:53:54

Global:
<script language=vbscript runat=server>
Sub Application_OnStart
Set Application("conn")=Server.CreateObject("ADODB.Connection")
connstr="provider=sqloledb;data source=CHM;uid=sa;pwd=;database=friend"
Application("conn").Open connstr
End Sub
Sub Application_OnEnd
Set Application("conn")=nothing
End Sub
</SCRIPT>
Index.asp
<%
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Application("conn")
%>
<body bgcolor= "#FFFFFF" leftmargin="0" topmargin= "0">
<table border="0" cellpadding="0" cellspacing="0" width="765">
<tr><td><a href="search.asp">查找朋友</a></td></tr></table>
<table width="765 border="0" cellspacing="0" cellpadding="0">
<tr><td width="178" valign="top" bgcolor="#F3F3F3"> <br><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font10"><form name="form1" method="post" action="login.asp">
<tr align="center"><td>账号<imput type="text" name="nickname" size="15" maxlength="10" class="font10"></td></tr><tr align="center"><td>密码<imput type="password" name="pwd" size="15" maxlength="10" class="font10"></td>
</tr><tr align="center"><td height="50"><imput type="submit" name="login" onClick="return" CheckForm=();"value"="登录"></td></tr><tr align="center">
<td><a href="register.asp">新用户注册</a></td></tr></form></table><br>
<%
if session("www_id")<>""then
%>
<p class="font10" align="center"><%=session("www_nickname")%>，欢迎你</p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="font10" align="center"><a href="#" onClick="MM_openBrWindow('upload.asp','pupload','width=500,height=280,top=160,left=150')">上传相片</a></td>
</tr>
<tr>
<td class="font10" align="center"><a href="modify.asp">修改资料</a></td>
</tr>
<tr>
<td class="font10" align="center">
<a href="#" onClick="MM_openBrWindow('acceptmessage.asp','paccept','width=500,height=280,top=160,left=150')">浏览信息</a>
</td>
</tr>
<tr>
<td class="font10" align="center">
<a href="#" onClick="MM_openBrWindow('modifypwd.asp', 'pmpwd','width=400,height=200,top=200,left=200')">修改密码</a>
</td>
</tr>
</table>
<%
end if
'结束
%>
</td>
<td width="587" valign="top" bgcolor="#FFFFFF"> <br>
<table width=100% border="0" cellspacing="0" cellpadding="0" class="font10">
<tr>
<td><b><font color="#CC3300">会员信息：</font></b></td>
</tr>
<tr bgcolor="#999999">
<td></td>
</tr>
</table>
<%
sql="SelecT t_login.*,t_province.c_province_txt FROM t_login INNER JOIN t_photo ON t_login.c_login_id = t_photo.c_login_id INNER JOIN t_province ON t_login.c_earning_id=t_province.c_province_id where t_login.c_login_gender='1' and t_login.c_login_open='1'"
rs.open sql,conn,3,1
all_record=rs.recordcount
if rs.recordcount<>0 then
Randomize
idrnd=Int(all_record * Rnd+0)
if idrnd>=all_record then idrnd=all_record-1
rs.move idrnd
%>
<table width=100% border=0 cellspacing=0 cellpadding=0 class=font10>
<tr><td width="25%">
<p align="center"><img src="showing.asp?id=<%=rs("c_login_id")%>" width="80" height="150"></p>
</td>
<td width="75%" valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="2" class="font10">
<tr><td width="18%">姓名：</td><td width="82%"> <%=rs"c_login_name")%></td></tr><tr><td width="18%">年龄：</td><td width="82%"> <%=(year(date)-year(rs("c_login_birthday")))%></td></tr><tr><%order=trim(rs("c_login_order"))btxt="笔友，纯友谊，爱情，婚姻，"order=hsplitbtxt,order)
%><td width="18%">交友目的：</td><td width="82%"> <%=mid(order,2,len(order)-2)%></td></tr><tr><td width="18%">自我介绍：</td><td width="82%"> <%=replace(rs("c_login_text"),chr(13),"<br>")%></td></tr><tr><td width="82%"> </td>
<td width="82%">
<div align="center"><a href="#" onClick="MM_openBrWindow('details.asp?id=<%=rs("c_login_id")%>','dwin','resizable=yes, width=420,height=300,top=150,left=190')">详细信息</a>
<%
'是否成功登录，如果成功登录就显示就下例信息
if session("www_id")<>"" then
%>
<a href="#" onClick="MM_openBrWindow('sendmessage.asp?id=<%=rs("c_login_id")%>','details','resizable=yes,left=150,top=200,width=500,height=200')">发信息给他</a>
<%
end if
%>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
rs.close
'随机取得一名女会员的信息，且其资料公开
sql="SelecT t_login.*,t_province.c_province_txt FROM t_login INNER JOIN t_photo ON t_login.c_login_id = t_photo.c_login_id INNER JOIN t_province ON t_login.c_earning_id=t_province.c_province_id where t_login.c_login_gender='0' and t_login.c_login_open='1'"
rs.open sql,conn,3,1
all_record=rs.recordcount
if rs.recordcount<>0 then
Randomize
idrnd=Int(all_record * Rnd+0)
if idrnd>=all_record then idrnd=all_record-1
rs.move idrnd
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font10">
<tr>
<td width="25%">
<p align="center">
<img src="showing.asp? id=<%=rs("c_login_id")%>" width="80"height="150">
</p>
</td>
<td width="75%" valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="2" class="font10">
<tr>
<td width="18%">姓名：</td>
<td width="82%"> <%=rs("c_login_name")%></td>
</tr>
<tr>
<td width="18%">年龄：</td>
<td width="82%"> <%=(year(date)-year(rs("c_login_birthday")))%></td>
</tr>
<tr>
<%
order=trim(rs("c_login_order"))
order=hsplit(btxt,order)
%>
<td width="18%">交友目的：</td>
<td width="82%"> <%=mid(order,2,len(order)-2)%></td>
</tr>
<tr>
<td width="18%">自我介绍：</td>
<td width="82%"> <%=replace(rs("c_login_text"),chr(13),"<br>")%></td>
</tr>
<tr>
<td width="82%"> </td>
<td width="82%">
<div align="center"><a href="#" onClick="MM_openBrWindow('details.asp?id=<%=rs("c_login_id")%>','dwin','resizable=yes, width=420,height=300,top=150,left=190')">详细信息</a>
<%
'是否成功登录，如果成功登录就显示就下例信息
if session("www_id")<>"" then
%>
<a href="#" onClick="MM_openBrWindow('sendmessage.asp?id=<%=rs("c_login_id")%>','details','resizable=yes, left=150,top=200,width=500,height=200')">发信息给他</a>
<%
end if
%>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
rs.close
'显示最新五条公告信息
sql="select top 5 * from t_affiche order by c_affiche_date desc"
rs.open sq1,conn,3,1
countrecord=rs.recordcount
if countrecord<>0 then
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="font 10">
<tr>
<td><b><font color="#CC3300">公告信息栏：</font></b></td>
<tr>
<tr bgcolor="999999">
<td></td>
</tr>
<td><br>
<table width="85%" border="0" align="center" cellspacing="0" cellpadding="0">
<%
for I =1 to countrecord
%>
<tr class="font10">
<td>
<a href="#" onClick="MM_openBrWindow('affiche.asp?id=<%=rs("c_affiche_id")%>','hg','scrollbars=yes, width=520,height=400,top=100,left=140')">
<%=rs("c_affiche_bt")%>
</a>
<span class="font9">(<%=rs("c_affiche_date")%>)</span>
</td>
<%
rs.movenext
next
%>
<tr class="font10" align="right">
<td><a href="#">发布公告信息</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
rs.close
%>
<p> </p>
</td>
</tr>
</table>
</body>
</html>
运行时总是提示：“错误类型：ADODB.Recordset (0x800A0BB9) /index.asp, 第 256 行”高人帮忙

...全文