奇怪的问题！进来看看！真的要疯了！

hackate 2004-01-06 07:14:41

这个是INDEX。ASP文件，也是首页文件！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT Content, Date, E-mail, Homepage, ICON, IP, Name,

QQ, RDate, Reply FROM main ORDER BY Date Desc"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_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>
<style type="text/css">

</style>
<link href="css.css" rel="stylesheet" type="text/css" />
</head>

<body>
<table width="650" border="1" bordercolor="#666666"align="center"

class="thin">
<tr>
<td height="35" align="center">我的留言本</td>
</tr>
<tr>
<td height="20" align="right"><a href="insert.asp">『留言』</a><a

href="index.asp">『查看』</a><a href="login.asp">『管理』</a> </td>
</tr>
<tr>
<td><table width="100%%" border="1"

bordercolor="#666666"class="thin" frame="void">
<tr>
<td width="64" valign="top"><table width="100%" border="1">
<tr>
<td width="70" align="center"> </td>
</tr>
<tr>
<td width="70" align="center">访客你称</td>
</tr>
</table></td>
<td width="650"><table width="100%" border="1"

bordercolor="#666666"cellspacing="0" cellpadding="0" class="thin"

frame="void">
<tr>
<td width="650" height="20"

align="left">房客发表于2003</td>
</tr>
<tr>
<td><table width="100%%" border="0"

boredrcolor="#666666"cellspacing="0" cellpadding="0" class="thin"

frame="void">
<tr>
<td width="45" align="left">留言：</td>
<td>留言内容</td>
</tr>
<tr>
<td width="45" align="left">回复：</td>
<td>回复内容</td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" align="right">主页信箱 QQ</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" align="right">首页上页下页尾页 </td>
</tr>
<tr>
<td height="20" align="center">版权所有©今生穷死了</td>
</tr>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>

======================================================================
这个是CONN。ASP文件，！大家看看，就这两个文件有关啦！
<%
Dim db,conn,MM_conn_STRING
db="data.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
MM_conn_STRING="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'MM_conn_STRING="Driver={microsoft access driver (*.mdb)};DBQ=" & Server.MapPath(db)
'MM_conn_STRING="dsn=member;"
conn.open MM_conn_STRING
%>

运行INDEX。ASP的时候老出现
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/guestbook/index.asp，行13

...全文

68 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

hackate 2004-01-09

打赏
举报

朋友们帮帮忙啊，这个问题还在啊，谁帮我较我一下，我送QQ两个啊，求求大家了！

ycted 2004-01-07

打赏
举报

大懒猫都说了，以后要注意不要用保留字哦，我以前也碰到过，所以要注意。

mikespook 2004-01-07

打赏
举报

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
sqlstr = "SELECT * FROM main ORDER BY [Date] Desc"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open sqlstr, conn, 1, 1

给你改了一下~~~~我假设你的connection是conn

mikespook 2004-01-07