今天刚刚更新的嘛。

江湖告急，数据库乍连啊！！！
<%
dim conn,connstr,db,rs
db="D:\ServerWeb\3\db/2008.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
conn.Open connstr
%>

本地测试OK，上传后连不上数据库，改了也不行，这是原文件。

菜鸟上。。。

--------------------------------------------------------------------------------------------------------------------------------------------------------------
此贴回答过一次了，不过回档了，呵呵再来把，建议楼主不要使用绝对路径，不妨换成下面这样——|一贯正确留
<%
Dim Conn,ConnStr,SiteDataPath
SiteDataPath=\"db/2008.mdb\"
On error resume next
Set Conn=Server.CreateObject(\"Adodb.Connection\")
ConnStr=\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\"&Server.MapPath(SiteDataPath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write \"系统错误：数据库连接出错，请检查'!\"
Response.End
end if
%>

[ 本帖最后由 一贯正确 于 2008-7-22 09:06 编辑 ]

db="D:\ServerWeb\3\db/2008.mdb"
问题在这句。

有个程序有错误谁来帮忙改正？
----------------------------------------------------------------------------------------------------------
请在求助区发帖
一贯正确留

[ 本帖最后由 一贯正确 于 2008-7-22 12:37 编辑 ]

这帖子发表的不错，对新手很有帮助！支持！

真的很不错谢谢分享

写得非常好，学习了，谢谢了

实用的建站铺。。。。。。真好。。。。。。。

学习了。对我这菜鸟来说，有些还是比较难懂的
------------------------------------------------------------------------------------------------------------------
有困难不要着急，有兴趣的话学起来很快的。有疑问可以到求助区和铺子知识堂看看。
一贯正确留

辛苦了,适合我们这些新人!