各位,来看一下这问题吧,想了一天一夜了,难呀!非常感谢各位

[hezhenyun]

本程序在本地运行是没有问题的,但是传到服务器上之后就出现了:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'fs.close' 注:翻译;对象不支持此属性或方法：'fs.close'

/manages_shop/connf.asp, line 26


备:connf.asp文件中第二十六行的代码为:"fs.close",不知道怎么解决,请各位帮忙,非常感谢了,想了一天一夜了!没辙了!

谢谢各位了!!!!!!!!!

[hookee]

要看上下文，fs是什么？是不是被设为Nothing了?

[hezhenyun]

<%@ LANGUAGE = VBScript CODEPAGE = "936" %>
<%
dim conn
dim connstr
dim db
db="../!@hxfdate@!/global.asa"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Jet Oledb:Database Password=121606;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from system"
rs.open sql,conn,1,1
if Request.ServerVariables("HTTP_HOST")<>rs("web1") and Request.ServerVariables("HTTP_HOST")<>right(rs("web1"),len(rs("web1"))-4) and Request.ServerVariables("HTTP_HOST")<>rs("web2") and Request.ServerVariables("HTTP_HOST")<>right(rs("web2"),len(rs("web2"))-4) and Request.ServerVariables("HTTP_HOST")<>rs("web3") and Request.ServerVariables("HTTP_HOST")<>right(rs("web3"),len(rs("web3"))-4) then

Set fs=Server.CreateObject("Scripting.FileSystemObject")
folders1=server.mappath("../upfiles")
if (fs.FolderExists(folders1)) Then '判断文件夹是否存在
Set df1=fs.GetFolder(folders1)
df1.delete
end if
folders=server.mappath("../lc2008")
if (fs.FolderExists(folders)) Then '判断文件夹是否存在
Set df=fs.GetFolder(folders)
df.delete
end if
fs.close
response.end
end if
rs.close
set rs=nothing
Function FormatSQL(strChar)
if strChar="" then
FormatSQL=""
else
FormatSQL=replace(replace(replace(replace(replace(replace(replace(replace(strChar,"'","’"),"*","×"),"?","？"),"(","（"),")","）"),"<","〈"),".","。"),";","；")
end if
End Function

Function SafeRequest(ParaName,ParaType)
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 then
If not isNumeric(ParaValue) then
Response.write "<center>" & ParaName & "Must be numberic type!</center>"
Response.end
End if
Else
ParaValue=replace(ParaValue,"'","''")
End if
SafeRequest=ParaValue
End function

%>
以上是整页代码

[hookee]

Set fs=Server.CreateObject("Scripting.FileSystemObject")
fs是FileSystemObject呀，没有fs.Close的
是不是写错了，是 rs.Close?

[hezhenyun]

那应该怎么写,我如果去掉整个页面没有任何反应!

[hezhenyun]

谢谢,请告诉我改正后的代码,谢谢

[yangbing694383929]

也许是基础差了点哦。。。

[hezhenyun]

你看代码,下面有个rs.close

[hookee]

和下面的rs.close没关系 ， 不是说下面有rs.close了，前面就是fs.close
关键是fs是FileSystemObjec，该对象没有 close方法

[一把编程的菜刀]

汗!!还是把基础看看吧

对象的方法都搞混

[r圣子]

改为 Set fs= nothing 就OK了

[r圣子]

如果还错误那就是其它方面的错误了，检查一下

[fengshuo11]

看晕了

[kertun]

《招聘标题》
急聘兼职打字员（4000元/月适合在校学生在家待业人员兼职）
3000元/月急聘兼职淘宝客服人员，适合在校学生在家待业人员兼职）
SounetVIP公司急聘兼职网络信息回复员，130元/天！适合在校学生在家待业人员兼职）
130元/天急聘兼职网络信息回复员（适合在校学生在家待业人员兼职）
《招聘内容》
薪资待遇: 工作每天3-8小时，100元/天工资每日支付；
适合人群：适合在校学生、在家待业人员兼职。
岗位描述: 负责信息回复工作（有内容样版），工作地点不限，专兼职均可！
应聘要求: 上网熟练，平均每天工作投入约3小时，具体根据效率自定； 学历不限，在
职或学生皆可；勤奋，认真，有责任感；熟悉用电脑发消息的整个流程。（很简单，学一下就会！）

详情看SounetVIP公司招聘：http://www.sounet-vip.cn/ssfm/xinkeor/?91408-1.html
邮箱：[e-mail]

最近工资发放查看：www.sounet-vip.cn/gz.html

[wcwtitxu]

rs.Close

[showbook]

看晕了