收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1652|回复: 2

[asp] 前台打开数据库出错【已解决】

[复制链接]
发表于 2011-8-21 14:43:40 | 显示全部楼层 |阅读模式
<%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set RS = Server.CreateObject("ADODB.RecordSet")
        sql = "SELECT * FROM OT_info order by IF_ID DESC"
        Conn.Open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("cc047047/#CC%021$047.mdb")   ////这行出错,请问如何修改,谢谢了
        RS.open sql,Conn,1,1
        do while not rs.eof
%>
                <TR>
                                <TD>
                                <TABLE cellSpacing=0 cellPadding=0 width="100%"
                                border=0>
                                <TBODY>
                                <TR>
                                <TD width=10><IMG height=5
                                src="images/ico-3.gif" width=4></TD>
                                <TD class=footnav align=left height=33>&nbsp;<A
                                href="gghqnews.asp?news_id=<%=rs("IF_ID")%>"
                                target=_parent><%=rs("IF_theme")%></A>&nbsp; </TD>
                                <TD align=left width=166 height=33><SPAN
                                class=style5>[<%=rs("IF_time")%>]</SPAN> </TD></TR>
                                <TR>
                                <TD bgColor=#dfdfdf colSpan=3
                                height=1></TD></TR></TBODY></TABLE></TD></TR>
                                <%
                rs.movenext
                loop
                  %>

[[i] 本帖最后由 linsixi 于 2011-8-21 15:45 编辑 ]

出错报告

出错报告
发表于 2011-8-21 15:28:37 | 显示全部楼层
1、你把第三句和第四局顺序换一下,如果不行
2、干脆换一下:
<!--连接数据库-->
Set Conn = Server.CreateObject("ADODB.Connection")
StrDB = "cc047047/#CC%021$047.mdb"
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(StrDB)
Conn.Open StrConn
<!--执行查询-->
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM OT_info order by IF_ID DESC"
Set rs = Conn.Execute(sql)
<!--查询结果列表-->
do while not rs.eof
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-8-21 15:44:21 | 显示全部楼层
谢谢楼上的朋友,太棒了,问题解决了。真的非常感谢
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-10-21 09:16 , Processed in 0.077929 second(s), 11 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表