化境HTTP上传程序错误

本地IIS测试无问题，上传到服务器上，上传文档时出现：Microsoft VBScript 运行时错误错误 '800a01fa'。请各位大神指点。
以下是uoload.asp的代码：


<HTML>
<HEAD>
<TITLE>文件上传</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
body, a, table, div, span, td, th, input, select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
body {padding:0px;margin:0px}
</style>
</head>
<body bgcolor=#006699>
<%
Dim sAction
sAction = Trim(Request.QueryString("action"))
if sAction ="up" then
set upload=new upload_5xsoft
set file=upload.file("file")
filename="../unit/up/"&Session("name")&year(date())&month(date())&day(date())&hour(now())&minute(now())&second(now())&".rar"

if file.fileSize>0 then
file.saveAs Server.mappath(filename)
//Session("filename")=filename
end if
set file=nothing
set upload=nothing
Call OutScript("parent.UploadSaved('" & filename & "')")
elseif sAction ="file" then
%>
<div align="center">
<table width="78%" border="0" cellspacing="0" cellpadding="0" bgcolor="#99CCFF">
  <tr>
    <td height="60" align="center" valign="bottom"><form action="Upload.asp?action=up" method="post" enctype="multipart/form-data" name="form1">
  <p align="left">    <input type="file" name="file" id="file">
    </p>
    </form></td>
  </tr>
</table>

<p align="left"><br>
<br>
　</div>

<%
end if
Sub OutScript(str)
Response.Write "<script language=javascript>" & str & ";history.back()</script>"
End Sub
%>
</body>
</HTML> --------------------编程问答-------------------- 有没有更多的log 贴出来看看 --------------------编程问答-------------------- 


<HTML>
<HEAD>
<TITLE>文件上传</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
body, a, table, div, span, td, th, input, select{font:9pt;font-family: "宋体", Verdana, Arial, Helvetica, sans-serif;}
body {padding:5px}
</style>
<script language="JavaScript">
// 点确定时执行
function ok(){
// 上传文件判断
if (d_file.form1.file.value=="") return false;
GetFileName(d_file.form1.file.value, "\\");
// 显示正在上传文件
divProcessing.style.display="";
// 上传表单提交
d_file.form1.submit();

}
// 取文件名到隐藏的输入框
function GetFileName(url, opt){
filename.value=url.substr(url.lastIndexOf(opt)+1);
}

// 文件上传完成时执行,带入上传文件名
function UploadSaved(sPathFileName){
filename.value = sPathFileName;
var url = filename.value;
var k=window.dialogArguments;
k.document.getElementById("document").value = url;
window.returnValue = null;
window.close();
}
</script>

<BODY bgColor=#006699>
<p><br>
　</p>
<table border=0 cellpadding=0 cellspacing=0 align=center height="98" width="304">
<tr>
<td width="304" align="center" height="82" bgcolor="#FFFFFF">
<br>
<br>
　<fieldset style="width: 280; height: 39">
<legend>文件来源</legend>
<Script Language=JavaScript>
document.write('<iframe id=d_file frameborder=0 src="upload.asp?action=file" align="middle" width="100%" height="40"  scrolling=no></iframe>');
</Script>
        </fieldset><br>
　</td></tr>
<tr><td align=right height="46" bgcolor="#FFFFFF">
<p align="center"><input type=submit value='  确定  ' id=Ok onClick="ok()">  <input type=button value='  取消  ' onClick="window.close();"><input type=hidden id=filename value=""><br>
　</td></tr>
</table>

<div id=divProcessing style="width:255px;height:46px;position:absolute;left:87px;top:74px;display:none">
<table border=0 cellpadding=0 cellspacing=1 bgcolor="#FFFFFF" width="100%" height="100%"><tr>
<td bgcolor=#FFFFFF><marquee align="middle" behavior="alternate" scrollamount="5"><font color=#FFFFFF>...文件上传中...请等待...</font></marquee></td></tr></table>
</div>

</body>
</html> --------------------编程问答-------------------- 服务器没有开启fso权限 --------------------编程问答-------------------- 这是asp，不是asp.net --------------------编程问答-------------------- 嗯，是ASP,请高手指点迷津啊

补充：.NET技术 ,  ASP.NET