帮我看下我这为什么连不上数据库！

来源：百度知道 编辑：UC知道 时间：2024/06/11 14:43:23
conn.asp代码如下：<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("guestbook.mdb")
conn.open connstr
%>
Insert.asp代码如下（留言表格叫message,数据库叫guestbook.mdb)：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select user,qq,email,content,data from message order by id desc"
rs.open sql,conn,1,1
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<form name="form1" method="post" action="">
<table width="97%" border="1" cellspacing="0"

培养点好习惯。

Conn.asp 部分
Dim Conn, rs, Sql

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("guestbook.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")

Insert.asp部分
<!--#include file="conn.asp"--><%sql="select * from message order by id desc"
rs.open sql,conn,1,1
If rs.Eof Then
rs.Close(): Conn.Close()
response.Write("没有数据！")
response.End()
End If
%>...

注：像<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>这类没什么用的代码，删除～

在显示之前加一句判断记录是否为空的语句。。如果为空或者到尾了就返回或退出。。如果不为空才显示内容

应该把具体的错误信息贴出来，光看代码不一定能看出什么。