各位老大，Microsoft VBScript 运行时错误错误 '800a01a8' 这个问题如何解决呢？ - ASP技术论坛

问题点数：0 回复次数：1

各位老大，Microsoft VBScript 运行时错误错误 '800a01a8' 这个问题如何解决呢？

Microsoft VBScript 运行时错误错误 '800a01a8'

缺少对象: 'rs1'

/loit.asp，行 158
以上出错的是网站管理后台生成首页页面的页面
我在网上面查找过相关的资料，但都没有找到合适的答案，好像都是说是空间缓存导致的问题，不过以前我都没有出现过这样的情况，也没有换过空间，只是删除了网站所有的数据源码再上传上去就出现了以上的情况，希望高手指点下，谢谢~~~
以下是详细代码：



<%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
%>