| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 465 人关注过本帖
标题:[求助]请教各位大大MicrosoftVBScript运行时错误(0x800A01A8)如何解决
只看楼主 加入收藏
orangehf
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2006-10-14
收藏
 问题点数:0 回复次数:0 
[求助]请教各位大大MicrosoftVBScript运行时错误(0x800A01A8)如何解决
本人是个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">版权所有 &copy;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">&nbsp;</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>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</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">版权所有 &copy;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编辑过]

搜索更多相关主题的帖子: 运行 
2006-10-14 17:29
快速回复:[求助]请教各位大大MicrosoftVBScript运行时错误(0x800A01A8)如何解决
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.044174 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved