12
返回列表 发新帖
楼主: jakejo

[原创] (asp+sql)高手?我下面的代码哪里错了??在线等!!

[复制链接]
论坛徽章:
0
11#
发表于 2004-12-10 17:12 | 只看该作者

Re: (asp+sql)高手?我下面的代码哪里错了??在线等!!

最初由 jakejo 发布
[B]我的sql2000(升级到sp3)+asp win2003!



我下面的代码哪里错了??在线等!!



<BODY>
<%
set conn=server.CreateObject("ADODB.Connection"
'我的数据库名为:ASPTest;uid为sa;pwd为admin
conn.Open "Driver={SQL Server};server=localhost;database=ASPTest;uid=sa;pwd=admin;"
set.rs=server.CreateObject("ADODB.recordset"
'表名为:asptest
rs.Open "SELECT * FROM asptest",conn,3,2




%>
<% =rs("aspname" %>
<%cn.close%>
<%set cn=nothing%>
</BODY> [/B]




你的报错信息看不见有什么问题!
你可以先把要显示的文件中的脚本全部剪切来,在IE中显示一下,不要关闭;
然后,再把脚本全部拷回去,保存后用没关的IE刷新一下,就知道是哪儿的问题了。

使用道具 举报

回复
论坛徽章:
0
12#
 楼主| 发表于 2004-12-10 17:29 | 只看该作者
[B]修改了一下[/B]
<BODY>'这里是第6行
<%
set conn=server.CreateObject("ADODB.Connection"
conn.Open "Driver={SQL Server};server=JO;database=ASPTest;uid=sa;pwd=admin"
set.rs=server.CreateObject("ADODB.RecordSet"
sql="SELECT * FROM asptest where i_d in (2,2)"
rs.Open sql,conn,1,1
If(not rs.eof and not rs.bof) Then response.write(rs(" aspuser ")
Elseif (rs.eof and rs.bof) Then response.write("没有找到!"
End if
rs.close set rs=nothing
conn.close
set conn=nothing%>
</BODY>


[B]现在提示错误是:::[/B]
:::::::::::::::::::::::::::::::::::::::::::::::::::::::

Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/DataFiles/asp.asp,行 14

Elseif (rs.eof and rs.bof) Then response.write("没有找到!"

使用道具 举报

回复
论坛徽章:
0
13#
 楼主| 发表于 2004-12-10 22:11 | 只看该作者

问题已解决!!哈哈!!!!!!!!!!!!!!!!!!!!!!!!!!!!

谢谢各位朋友,我终于解决了这个问题了,是在网上找资料的结果.正确代码如下:



<%
dim conn
set conn=server.CreateObject("ADODB.Connection"
conn.Open "Driver={SQL Server};server=JO;database=ASPTest;uid=sa;pwd=admin"
Set rs=conn.Execute("SELECT * FROM asptest"



%>
<%
If (rs.eof and rs.bof) Then
   response.write("没有找到!"
  Else
do until rs.eof
response.write("<br>"&rs("aspuser")
response.write("<br>"&rs("aspname")
response.write("<hr>"
rs.moveNext
loop
End if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%=now()%>



运行结果是:



测试
成功






张三
不错哦






广东省
惠东渔






广州市
东山区






李四
请失望





2004-12-10 22:00:48

使用道具 举报

回复
论坛徽章:
0
14#
发表于 2004-12-11 10:11 | 只看该作者
set.rs=server.CreateObject("ADODB.recordset"
错了,第四个字符

使用道具 举报

回复
论坛徽章:
0
15#
发表于 2004-12-12 13:36 | 只看该作者
set.rs=server.CreateObject("ADODB.recordset"????
set.rs???

使用道具 举报

回复
论坛徽章:
0
16#
发表于 2004-12-13 12:05 | 只看该作者
怎么样了啊?

使用道具 举报

回复

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

TOP技术积分榜 社区积分榜 徽章 团队 统计 知识索引树 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档
  ChinaUnix | ChinaUnix博客 | ChinaUnix论坛
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有 联系我们 未成年人举报专区 
京ICP备16024965号-8  北京市公安局海淀分局网监中心备案编号:11010802021510 广播电视节目制作经营许可证:编号(京)字第1149号
  
快速回复 返回顶部 返回列表