| 全能ASP/PHP/ASP.NET主机，支持月付 | 专业 MSSQL 数据库空间，支持月付 | 专业 MySQL 数据库空间，支持月付 | 买域名，送MP3、MP4 |
| 高端软件开发 = 年薪十万不是梦 | 赛孚耐:软件保护加密专家 | 身份认证令牌USB KEY | 买空间，免费送域名（厦门中资源） |
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x36c Thread 0x6e0 DBC 0x2215bec Jet'。
/wenxue/data/index.asp，行8
2007-6-30 09:20
2007-6-30 09:25
补充一下
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_liu_STRING
Recordset1.Source = "SELECT * FROM main ORDER BY id ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
Recordset1.ActiveConnection = MM_liu_STRING 这个是第八行
下边这个是connection中的liu.asp中的内容
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_liu_STRING
MM_liu_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\文学天地\wenxue\data\data.mdb"
%>
[此贴子已经被作者于2007-6-30 9:38:37编辑过]
2007-6-30 09:27
2007-6-30 09:34
这个是index.asp中的所有代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Connections/liu.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_liu_STRING
Recordset1.Source = "SELECT * FROM main ORDER BY id ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>留言板主页</title>
</head>
<body>
<table width="650" height="381" border="1" align="center" cellpadding="0" cellspacing="0" id="table1">
<tr>
<td height="15" colspan="2" align="center" valign="middle" nowrap="nowrap">我的留言板</td>
</tr>
<tr>
<td height="15" colspan="2" align="right"><a href="insert.asp">留言</a> <a href="index.asp">查看</a> <a href="login.asp">管理</a></td>
</tr>
<tr>
<td width="92" height="312" align="left"><table width="92" height="315" border="1" cellpadding="0" cellspacing="0">
<tr align="center">
<td width="88" height="279"><img src="../image/touxiang/1-3.gif" width="97" height="90" /></td>
</tr>
<tr>
<td height="34" align="center">访客昵称</td>
</tr>
</table></td>
<td width="552" align="left"><table width="100%" height="317" border="1" cellpadding="0" cellspacing="0" id="table2">
<tr>
<td height="19">访客发表于:2006-4-10 10-15-20 </td>
</tr>
<tr>
<td><table width="100%" height="267" border="1" cellpadding="0" cellspacing="0" id="table3">
<tr>
<td width="9%" height="97" align="center" valign="middle">留言</td>
<td width="91%">留言内容</td>
</tr>
<tr>
<td height="86" align="center" valign="middle">回复</td>
<td>回复内容</td>
</tr>
</table></td>
</tr>
<tr>
<td height="27" align="right" valign="middle">主页 信箱 QQ</td>
</tr>
</table></td>
</tr>
<tr>
<td height="15" colspan="2" align="right">首页 上页 下页 尾页</td>
</tr>
<tr>
<td height="15" colspan="2" align="center"> </td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
这个是liu.asp中的所有代码
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_liu_STRING
MM_liu_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\文学天地\wenxue\data\data.mdb"
%>
2007-6-30 09:51
2007-6-30 09:56
<!--#include file="../../Connections/liu.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_liu_STRING
Recordset1.Source = "SELECT * FROM main ORDER BY id ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_liu_STRING
MM_liu_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\文学天地\wenxue\data\data.mdb"
%>
这是动态部分的所有代码，剩下的都是静态的和数据库没有关系
上边的错误是连接完数据库出现的
2007-6-30 10:41
2007-6-30 10:42
2007-6-30 11:24
2007-6-30 11:34
