生成静态的时候出错：Server 对象 错误 'ASP 0177 : 800401f3' 行 108

ChinaXtHuLang 2009-01-31 06:24:16 
if rel="id" then 

id=funstr(request.QueryString("id"))

set rs1=server.CreateObject("ADODB.RecordeSet")

sql="select * from News where News_id>"&id&" order by News_id asc"

rs1.open sql,conn,1,1    '行 108

if not rs.eof then

id=rs1("News_id")

createfile server.MapPath("../News/Html/"&id&".Html"),pagestr(id)

response.Write "生成文章ID:"&id&"成功"

else

response.Write "全部文章生成完成!"

end if

set rs1=nothing

end if

<a href='html.asp?rel=id'>生成文章</a>
点击就提示：
Server 对象 错误 'ASP 0177 : 800401f3'

Server.CreateObject 失败

/admin/html.asp，行 108

800401f3

干脆把代码全帖出来
<!--#include file="../conn.asp"-->
<!--#include file="../IncList/Lingftx_Function.asp"-->
<!--#include file="Function_Html.asp"-->
<%
'On Error Resume Next
function pagestr(id)
pageurl="../HtmlTemp/"&Rsweb("Lingftx_Path")&"/content.Html"
pagestr=openfile(server.MapPath(pageurl))
pagestr=globals(pagestr)
set RsNews=server.CreateObject("ADODB.RecordeSet")
SqlNews="select * from News where News_Id="&id
RsNews.open SqlNews,conn,1,1
pagestr=replace(pagestr,"{[Html:page News_id]}",RsNews("News_id"))
pagestr=replace(pagestr,"{[Html:page News_Title]}",RsNews("News_Title"))
pagestr=replace(pagestr,"{[Html:page News_Date]}",RsNews("News_Date"))
pagestr=replace(pagestr,"{[Html:page News_Source]}",RsNews("News_Source"))
pagestr=replace(pagestr,"{[Html:page News_Name]}",RsNews("News_Name"))
pagestr=replace(pagestr,"{[Html:page News_Count]}",RsNews("News_Count"))
pagestr=replace(pagestr,"{[Html:page News_Contents]}",RsNews("News_Contents"))
end function
%>

<!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>
<%
'=====================================================
if rel="ids" then
id=funstr(request.Form("News_id"))
end if
'单独生成静态
if rel="pagehtm" then
id=funstr(request.QueryString("id"))
page=funstr(request.QueryString("page"))
set rs=server.CreateObject("ADODB.RecordeSet")
sql="select * from News where News_id="&id
rs.open sql,conn,1,1
if not rs.eof then
id=rs("id")
createfile server.MapPath("../News/Html/"&id&".Html"),pagestr(id)
response.Write "生成文章ID:"&id&"成功"
end if
end if
'=====================================================
if rel="id" then
id=funstr(request.QueryString("id"))
set rs1=server.CreateObject("ADODB.RecordeSet")
sql="select * from News where News_id>"&id&" order by News_id asc"
rs1.open sql,conn,1,1
if not rs.eof then
id=rs1("News_id")
createfile server.MapPath("../News/Html/"&id&".Html"),pagestr(id)
response.Write "生成文章ID:"&id&"成功"
else
response.Write "全部文章生成完成!"
end if
set rs1=nothing
end if
'=====================================================
if rel="ids" then
id=funstr(request.Form("News_Id"))
end if
%>
<a href='html.asp?rel=index'>静态首页</a>
<a href='html.asp?rel=id'>生成文章</a>
<% if rel="id" then %>
<div class='bodytitle'><div class='bodytitleleft'></div><div class='bodytitletxt'>生成文章</div></div>
<table width="96%" border="0" cellpadding="0" cellspacing="0"
align="center" style="margin-bottom:8px;display:block" id="td1" >
<tr>
<td>
<form id="form1" name="form1" method="post" action="html.asp?rel=ids">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#E2F5BC" class="sysinfo">
<tr align="center" height="24">
<td height="30" colspan="3" align="left" bgcolor="#EDF9D5"></td>
</tr>
<tr align="center">
<td width="20%" height="25" bgcolor="#FFFFFF">开始文章id:</td>
<td bgcolor="#FFFFFF"><input type="text" name="News_id" value="0" /></td>
<td width="30%" bgcolor="#FFFFFF">介绍</td>
</tr>

<tr align="center" height="24">
<td height="30" bgcolor="#FFFFFF" colspan="3" align="center">
<input type="submit" name="Submit3" value="确认生成" />
<input type="reset" name="Submit2" value="重置" />
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<% end if %>
</body>
</html>
...全文
182 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
ChinaXtHuLang 2009-02-01
  • 打赏
  • 举报
 回复
打拼音快了。。再加上复制罐了。不好意思啊。。
打印出来了：
select * from News where News_id> order by News_id asc
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/admin/html.asp，行 111

还是错误的。。
郁闷死了。。。
if rel="id" then 

id=funstr(request.QueryString("id"))

set rs1=server.CreateObject("ADODB.RecordSet")

sql="select * from News where News_id>"&id&" order by News_id asc"

response.write sql  '去掉这行

rs1.open sql,conn,1,1  '这行就是111

if not rs.eof then

id=rs1("News_id")

createfile server.MapPath("../News/Html/"&id&".Html"),pagestr(id)

response.Write "生成文章ID:"&id&"成功"

else

response.Write "全部文章生成完成!"

end if

set rs1=nothing

end if
sy_binbin 2009-02-01
  • 打赏
  • 举报
 回复
select * from News where News_id> order by News_id asc

红色部分少东西

你好好检查一下id的那个变量吧
wggipkhgef 2009-02-01
  • 打赏
  • 举报
 回复
从你打印出来的SQL语句看,变量id是没有值的,也就是说只能当字符型变量,那么你的SQL语句应当就是
sql="select * from News where News_id>'"&id&"' order by News_id asc"
而且Access中字符串大小是不好比较的,所以你应当让你的id有值才行,有获取ID值的时候进行非空检测
id=request.QueryString("id")
if isnull(id) or id="" then
response.write"ID is empty"
response.end
else
id=funstr(request.QueryString("id"))
end if
ChinaXtHuLang 2009-02-01
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 wggipkhgef 的回复:]
从你打印出来的SQL语句看,变量id是没有值的,也就是说只能当字符型变量,那么你的SQL语句应当就是
sql="select * from News where News_id>'"&id&"' order by News_id asc"
而且Access中字符串大小是不好比较的,所以你应当让你的id有值才行,有获取ID值的时候进行非空检测
id=request.QueryString("id")
if isnull(id) or id="" then
response.write"ID is empty"
response.end
else
id=funstr(request.QueryString…
[/Quote]
打印出来的是：ID is empty
为空了。。。谢谢。我也不知道改怎么搞了。。我先检查一下。。
sy_binbin 2009-01-31
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 wggipkhgef 的回复:]
你的recordset单词拼写错误
[/Quote]

呵呵！Ni的眼睛真尖啊！

是多了个e
wggipkhgef 2009-01-31
  • 打赏
  • 举报
 回复
你的recordset单词拼写错误
wggipkhgef 2009-01-31
  • 打赏
  • 举报
 回复
set rs=createobject("adodb.recordset")
sy_binbin 2009-01-31
  • 打赏
  • 举报
 回复
sql="select * from News where News_id>"&id&" order by News_id asc"
response.write sql
打印出来看看SQL是什么
ChinaXtHuLang 2009-01-31
  • 打赏
  • 举报
 回复
自己顶下。。大哥门帮忙看下啊。。
动态生成静态及伪静态技术视频教程
    本套教程把web系统常见的前台和后台功能从头到尾制作了一遍，实现了asp.net对数据库的增删改查和分页，后台包括了常见的单页模块、新闻模块、产品模块、图片上传等模块，加入了百度编辑器（编辑器按钮可以自定义、可以在编辑器内上传图片），其中产品模块可以对任意一个产品自定义属性，每个产品可以有不同的属性，新闻详细页面实现了上一条和下一条新闻的链接，系统首页、单页模块、新闻模块、产品模块全部实现了动态生成静态，新闻列表、产品列表使用伪静态技术完成，新闻列表页面还增加了组合查询功能，产品模块导航采用的是无限级分类技术，无论是前台还是后台界面都干净整洁，适合入门学习，个别模块逻辑稍微复杂，基础比较薄弱的学员需要多花点时间消化。开发环境：vs2019+sql2017 （vs和sql仅仅是工具，其他版本的工具也能进行开发，不影响学习）。 
经典ASP代码大集合
1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table> 可用于Table 2. <body onselectstart="return false"> 取消选取、防止复制 3...
ASP 初步资料

ASP编程入门进阶（一）：安装配置服务器
鉴于ASP脚本语言是在服务器端IIS或PWS中解释和运行，并可动态生成普通的HTML网页，然后再传送到客户端供浏览的这一特点。我们要在本机上进行调试，那就要求我们的个人电脑具有服务器的功能。
　　IIS为何物？IIS是Internet Information Server的缩写,它是微软公司主推的Web服务器。那PWS呢？它就显得有些古老了：）早期在WIN98，当然现在仍有人采用的操作系统，PWS（Personal Web Serve
php学习指南
视频：https://www.bilibili.com/video/BV18x411H7qD?p=3 基础 Web分为两类：静态网站和动态网站。流程:浏览器发起访问->DNS解析域名->服务器电脑->服务软件 1、静态网站访问原理： [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-O6zkbVHa-1616398010535)(C:\Users\a\AppData\Roaming\Typora\typora-user-images\image-20200726
校招python总结--建议全文背诵
Python基础 1、Python判断对象是否相等（== 和 is） Python中的对象包含三个基本要素，分别是：id：用来唯一标识一个对象，可以理解为内存地址；type：标识对象的类型；value：对象的值； == ：比较两个对象的内容是否相等，即两个对象的 value 是否相等，无论 id 是否相等，默认会调用对象的 eq()方法。 is： 比较的是两个对象是不是完全相同，即他们的 id 要相等。也就是说如果 a is b 为 True，那么 a == b 也为True。 2、如何在Python中
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章