您所在位置：主题：江湖告急，数据库连接错误HTTP 500
merry05
[专家分：8920] 发布于 2007-04-25 19:37:00
<!--#INCLUDE file="ADOVBS.inc"-->
<%
dim connTztg
dim rsContent
dim strConn,db
db="Data\TZTG.mdb"
Set connTztg=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set rsContent=Server.CreateObject("ADODB.Recordset")
connTztg.Open strConn
rsContent.Open "select * from CONTENT",connTztg,adOpenDynamic,adLockOptimistic
%>
<html>
<head></head>
<body>
<p><%=rsContent.Fields("Title")%></p>
</body>
</html>
<%
set rsContent=Nothing
set connTztg=Nothing
%>
请问以上代码哪里有问题啊？？？我找了很久还真没看出来啊！！！！
<%
dim connTztg
dim rsContent
dim strConn,db
db="Data\TZTG.mdb"
Set connTztg=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set rsContent=Server.CreateObject("ADODB.Recordset")
connTztg.Open strConn
rsContent.Open "select * from CONTENT",connTztg,adOpenDynamic,adLockOptimistic
%>
<html>
<head></head>
<body>
<p><%=rsContent.Fields("Title")%></p>
</body>
</html>
<%
set rsContent=Nothing
set connTztg=Nothing
%>
请问以上代码哪里有问题啊？？？我找了很久还真没看出来啊！！！！
