Server.MapPath(), ASP 0173 (0x80004005)在 MapPath 方法的路径参数中指定了无效字符。

VBScript code

sql="select productimg from t_products where productimg<>'' order by pubtime asc"

set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.bof and not rs.bof then
url="?"
        PageNo=Trim(Request("PageNo"))
        Rs.PageSize=200
        totalcount=Rs.recordcount
        PageSize=Rs.PageSize
        pagecount=Rs.pagecount
        intpageno PageNo,pagecount
        Rs.AbsolutePage=PageNo

for i=1 to rs.PageSize
if rs.eof then exit for
UploadDir = CutStrs(rs(0),20)       '要列出的文件夹名称,相对于此页面文件所在根目录来说

TruePath=Server.MapPath(UploadDir)    '获得全路径
Set fso=CreateObject("Scripting.FileSystemObject")   '如果支持FSO就创建FSO对象
IF fso.FolderExists(TruePath) Then
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files

sqls="select productimg from t_products where productimg='"&UploadDir&theFile.Name&"' order by pubtime asc"

set rsc=server.CreateObject("adodb.recordset")
rsc.open sqls,conn,1,1
if rsc.eof then
DoDelFile(UploadDir&theFile.Name)

end if
rsc.close
set rsc=nothing
next
end if

rs.movenext
next
end if
Pageslist url,totalcount,PageNo,pagecount,PageSiz
rs.close
set rs=nothing

为什么TruePath=Server.MapPath(UploadDir)会报下面的错误：
Server.MapPath(), ASP 0173 (0x80004005)
在 MapPath 方法的路径参数中指定了无效字符。
我把输出来看到他的值没有什么问题。
不明白是怎么回事，请大家帮我看看。
输出来的值为：E:\hardalloy\businessimg\050719

uploaddir的值是E:\hardalloy\businessimg\050719吗
这本身是个绝对路径，用server.mappath干什么