各位老大,Microsoft VBScript 运行时错误 错误 '800a01a8' 这个问题如何解决呢?
Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: 'rs1'
/loit.asp,行 158
以上出错的是网站管理后台生成首页页面的页面
我在网上面查找过相关的资料,但都没有找到合适的答案,好像都是说是空间缓存导致的问题,不过以前我都没有出现过这样的情况,也没有换过空间,只是删除了网站所有的数据源码再上传上去就出现了以上的情况,希望高手指点下,谢谢~~~
以下是详细代码:
<!-- #include file="../cctv.asp" -->
<!-- #include file="cctv1_conn.asp"-->
<!-- #include file="cctv_char.asp" -->
<%server.scripttimeout=999999999%>
<%
action=request.QueryString("action")
Function GetPage(url)
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False ', "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
if action="allhtml" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclassid from kcnclass",conn,1,1
while not rs.eof
nclassid=rs("nclassid")
on error resume next
Url="http://"&webhtml&"/lost/loit.asp?id="&nclassid&""
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'if not MyFile.FolderExists(server.MapPath("/html/")) then
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
If (fs.FileExists(server.MapPath("../../kcloit/")&"\loit"&nclassid&".html")) Then
fs.DeleteFile(server.MapPath("../../kcloit/")&"\loit"&nclassid&".html")
End If
Set CrFi=fs.CreateTextFile(server.MapPath("./../kcloit/")&"\loit"&nclassid&".html")
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
rs.movenext
wend
response.write "<script language=javascript>alert('html页面转化成功!');window.location.reload('loit.asp')</script>"
rs.close
set rs=nothing
else
end if
%>
<%if action="loit" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select nclassid,anclass,nclass from kcnclass",conn,1,1
while not rs.eof
set nclassid=rs("nclassid")
set anclass=rs("anclass")
set nclass=rs("nclass")
sql="select peixunkechengid from peixunkecheng where Kcanclass='"&anclass&"' and Kcnclass='"&nclass&"' order by peixunkechengid desc"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql,conn,1,2
if rs1.eof and rs1.bof then
else
page=request("page")
if page="" then page=1
rs1.pagesize=10
Page=Page+1
Page=Page-1
rs1.absolutepage=page
ling=1
con=1
while not rs1.eof and con<=rs1.pagesize
ling=ling+1
con=con+1
rs1.movenext
wend
end if
ming01=1
ming02=rs1.pagecount
for so158page=ming01 to ming02
on error resume next
Url="http://"&webhtml&"/lost/loit.asp?id="&nclassid&"&page="&so158page&""
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'if not MyFile.FolderExists(server.MapPath("/html/")) then
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
If (fs.FileExists(server.MapPath("../../kcloit/")&"\loit"&nclassid&""&so158page&".html")) Then
fs.DeleteFile(server.MapPath("../../kcloit/")&"\loit"&nclassid&""&so158page&".html")
End If
Set CrFi=fs.CreateTextFile(server.MapPath("./../kcloit/")&"\loit"&nclassid&""&so158page&".html")
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
next
rs.movenext
wend
rs1.close
set rs1=nothing
rs.close
set rs=nothing
response.write "<script language=javascript>alert('html页面转化成功!');window.location.reload('loit.asp')</script>"
else
end if
%>
================================================
<%
if action="loitpage" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select user_regionid from user_region where JiBie='代理培训机构' order by user_regionid desc",conn,1,1
while not rs.eof
user_regionid=rs("user_regionid")
sql="select Peixunkechengid from Peixunkecheng where user_regionid='"&user_regionid&"' order by user_regionid desc"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql,conn,1,2
if rs1.eof and rs1.bof then
else
page=request("page")
if page="" then page=1
rs1.pagesize=10
Page=Page+1
Page=Page-1
rs1.absolutepage=page
ling=1
con=1
while not rs1.eof and con<=rs1.pagesize
ling=ling+1
con=con+1
rs1.movenext
wend
end if
ming03=1
ming04=rs1.pagecount
for so158page=ming03 to ming04
on error resume next
Url="http://"&webhtml&"/lost/index01.asp?id="&user_regionid&"&page="&so158page&""
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'if not MyFile.FolderExists(server.MapPath("/html/")) then
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
If (fs.FileExists(server.MapPath("../../school/")&"\edu158"&user_regionid&"b"&so158page&".html")) Then
fs.DeleteFile(server.MapPath("../../school/")&"\edu158"&user_regionid&"b"&so158page&".html")
End If
Set CrFi=fs.CreateTextFile(server.MapPath("./../school/")&"\edu158"&user_regionid&"b"&so158page&".html")
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
next
rs.movenext
wend
rs1.close 《出现问题的是这一行》
set rs1=nothing
rs.close
set rs=nothing
response.write "<script language=javascript>alert('html页面转化成功!');window.location.reload('loit.asp')</script>"
else
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<form name="form1" method="post" action="?action=allhtml">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input type="submit" name="Submit" value="将所有课程分类页面生成html"></td>
</tr>
</table>
</form>
<form name="form3" method="post" action="?action=loit">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input type="submit" name="Submit" value="将所有分页页面生成html"></td>
</tr>
</table>
</form>
<form name="form3" method="post" action="?action=loitpage">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input type="submit" name="Submit" value="将所有课程列表页面生成html"></td>
</tr>
</table>
</form>
<%
conn.close
set conn=nothing
%>