本人是个ASP初学者,很菜!请教各位大大。。
下面是我编的一个留言板显示留言的网页,可是他老是出错!
请各位大大帮帮偶!!谢谢大家了
错误如下:
试图访问的网页出现问题,无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作:
单击刷新按钮,或稍后重试。
打开 localhost 主页,然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息(用于支持人员)
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/liuyan.asp, 第 6 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 2.0.50727)
网页:
GET /liuyan.asp
时间:
2006年10月14日, 17:22:50
详细信息:
Microsoft 支持
以下是代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%
Dim objConn, strQuery,objRs
set objConn=Sever.CreateObject("ADODB.Connection")
objConn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="&Sever.MapPath("guestbook.mdb")
strQuery="SELECT * FROM guestbook ORDER BY Post_Date DESC"
Set objRs=objConn.Execute(strQuery)
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查看留言</title>
<link href="fuck.css" rel="stylesheet" type="text/css" />
</head>
<body class="bg">
<% if objRs.BOF And objRs.EOF Then %>
<table width="561" height="427" border="1" align="center">
<tr>
<td height="71" colspan="2" align="center" class="title">『留言板』 </td>
</tr>
<tr>
<td colspan="2" align="center" nowrap="nowrap" class="title"><div align="center">无任何留言!谢谢! </div></td>
</tr>
<tr>
<td height="9" colspan="2" align="right" class="shadow">『首页』『上一页』『下一页』 尾页』</td>
</tr>
<tr>
<td height="20" colspan="2" align="center" class="shadow">版权所有 ©orangehf</td>
</tr>
</table>
<% else %>
<% do until objRs.EOF %>
<table width="561" height="427" border="1" align="center">
<tr>
<td height="71" colspan="2" align="center" class="title">『留言板』 </td>
</tr>
<tr>
<td height="20" colspan="2" align="right" class="shadow">『留言』『查看』『管理』</td>
</tr>
<tr>
<td width="121" height="130" rowspan="2" valign="top"> </td>
<td width="437" height="20" class="shadow"><%Response.Write objRs("Name")%>发表于
<%Response.Write objRs("Post_Date")%></td>
</tr>
<tr>
<td height="93" valign="top" class="shadow">留言:<%Response.Write objRs("Comment")%>
<p> </p>
<p> </p>
<p> </p></td>
</tr>
<tr>
<td height="15" colspan="2" align="left" class="shadow"><p>『主页』:
<%Response.Write objRs("Homepage")%></p></td>
</tr>
<tr>
<td height="15" colspan="2" align="left" class="shadow">『邮箱』:
<%Response.Write objRs("E_mail")%></td>
</tr>
<tr>
<td height="15" colspan="2" align="left" class="shadow">『QQ』:<%Response.Write objRs("QQ")%></td>
</tr>
<% objRs.MoveNext %>
<tr>
<td height="9" colspan="2" align="right" class="shadow">『首页』『上一页』『下一页』 尾页』</td>
</tr>
<tr>
<td height="20" colspan="2" align="center" class="shadow">版权所有 ©orangehf</td>
</tr>
<% Loop %>
<% End if %>
<% objRs.Close
Set objRs=Nothing
objConn.Close
Set obConn=Nothing %>
</table>
</body>
</html>
[此贴子已经被作者于2006-10-14 17:42:17编辑过]