FSO组件改名后论坛发贴出现错误提示 Server 对象 错误 'ASP 0177 : 800401f3' Server.CreateObject 失败

Question

PostSocket.asp代码如下:
<%
'在使用这个方法之前，需要先注册Socket.dll动态库。
'即：运行一下SocketReg.exe文件，运行后在下方提示The product was successfully installed on your computer，
'然后点击Finish就完成了Socket.dll的注册

'向客户端9500端口发送帖子信息方法
'参数：boardname,论坛区名称
'参数：boardtitle,论坛区主题（如果无论坛区主题为空字符串""）
'参数：title,帖子标题
'参数：content,帖子内容
'参数：accessories,如果帖子内容包含上传附件时，注明附件路径，没有附件时为空字符串""
'参数：username,发帖人使用的用户名
'参数：userip,发帖子人使用的IP地址
'参数：publishtime,帖子发表的时间
public sub SendInfo(boardname,boardtitle,title,content,accessories,username,userip,publishtime)

dim sendstr,socket
'组合要发送给9500端口的字符串（注：CHR(07)为不可见的响铃字符）
if publishtime = "" then
getNowTime publishtime
end if
sendstr = "IFAT" + CHR(07) + boardname + CHR(07) + boardtitle + CHR(07) + title + CHR(07) + content + CHR(07) + accessories + CHR(07) + username + CHR(07) + userip + CHR(07) + publishtime + CHR(07) + "E"
set socket = server.createobject("Socket.TCP")'创建一个TCPsocket对象
socket.Host = "127.0.0.1:9508"'设置socket连接的ip地址和端口（注：此处默认为本机的9500端口）
On Error Resume Next
socket.Open() '与本机9500端口建立TCP连接
if Err then
else
socket.SendLine(sendstr)'向9500端口发送按照一定格式组合好的帖子信息
socket.Close()'信息发送完毕，将socket连接关闭
end if
On Error GoTo 0
set socket = nothing
set sendstr = nothing
end sub

public function getNowTime(publishtime)

dim NewDateTimeStr,DateTimeYear,DateTimeMonth,DateTimeDay,DateTimeHour,DateTimeMinute,DateTimeSecond,DateTimeStr
DateTimeStr = now()
DateTimeYear=year(DateTimeStr)
DateTimeMonth=month(DateTimeStr)
if len(DateTimeMonth)<2 then
DateTimeMonth="0"&DateTimeMonth
else
DateTimeMonth=DateTimeMonth
end if
DateTimeDay=day(DateTimeStr)
if len(DateTimeDay)<2 then
DateTimeDay="0"&DateTimeDay
else
DateTimeDay=DateTimeDay
end if
DateTimeHour=hour(DateTimeStr)
if len(DateTimeHour)<2 then
DateTimeHour="0"&DateTimeHour
else
DateTimeHour=DateTimeHour
end if
DateTimeMinute=minute(DateTimeStr)
if len(DateTimeMinute)<2 then
DateTimeMinute="0"&DateTimeMinute
else
DateTimeMinute=DateTimeMinute
end if
DateTimeSecond=second(DateTimeStr)
if len(DateTimeMinute)<2 then
DateTimeSecond="0"&DateTimeSecond
else
DateTimeSecond=DateTimeSecond
end if
NewDateTimeStr=DateTimeYear&DateTimeMonth&DateTimeDay&DateTimeHour&DateTimeMinute&DateTimeSecond

publishtime = NewDateTimeStr

end function
%>

组件改名后,论坛发贴回贴出现错误提示 Server 对象 错误 'ASP 0177 : 800401f3' Server.CreateObject 失败 /bbs/socket/PostSocket.asp，行24
后台显示 FSO读写:未安装,显叉号.问服务器管理员他说他把FSO组件改名了,让我在FTP里找到文件改一下Server.CreateObject的名字,我是新手不知道怎么改,Server.CreateObject具体在哪里?组件是什么名字啊?怎么改代码啊?高手指点一下!!!加分!!!

Answer 1

FSO组件改名后,在原代码里找set socket = server.createobject("Socket.TCP")'创建一个TCPsocket对象
socket.Host = "127.0.0.1:9508"'设置socket连接的ip地址和端口（注：此处默认为本机的9500端口）
将Socket.TCP改名