function.asp

<!--#include file="adovbs.inc"-->
<%
Function GetFileName(imagespath)
If imagespath <> "" Then
GetFileName = "UpImages/" & year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&Right(imagespath,4)
Else
GetFileName =""
End If
End Function

Function upImages(imagespath)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1' adTypeBinary
objStream.Open
objStream.LoadFromFile imagespath
objStream.SaveToFile Server.MapPath(GetFileName(imagespath)),adSaveCreateOverWrite
objStream.Close
If ERR.number<>0 Then
upImages = 0
Else
upImages = 1
End If
End Function
Function unHtml(content)
unHtml=content
If content <> "" Then
unHtml=replace(unHtml,"&","&amp;")
unHtml=replace(unHtml,"<","&lt;")
unHtml=replace(unHtml,">","&gt;")
unHtml=replace(unHtml,chr(34),"&quot;")
unHtml=replace(unHtml,chr(13),"<br>")
unHtml=replace(unHtml,chr(32),"&nbsp;")
End If
End Function
%>


我在本地编写程序调用这段上传代码的时是可以上传图片的，但是传到空间的时候就提示出错：

ADODB.Stream 错误 '800a0bba'

文件无法被打开。
.../function.asp，行 16

我用探针探了下我的空间：http://www.xmuer.cn/aspcheck.asp 结果fso权限我有，Stream组件是打开的，另外服务器的写入权限也是打开的。
请那位高手给小的指教指教啊。

大家千万不要用这种类型的代码，因为这个只是一台电脑之间的文件转移，当你是用虚拟主机的时候，程序将在主机电脑上找这个文件，肯定找不到。
我后来改了，用了华境无组件上传代码，效果不错。