谁能帮我看下这段代码哪里出错了
oa里网络硬盘的上传<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<!--#include file="../inc/fun.asp" -->
<!--#include file="talk.asp" -->
<%FilePath=PathReplace(UrlDecoded(Request.QueryString("Path")))
if FilePath="" or isnull(FilePath) then NetDiskIsNot "netdisk.asp?ThisDir="&FilePath:FilePath="\" else NetDiskIsNot "netdisk.asp?ThisDir="&FilePath
%>
<title>文件上传</title>
<link rel=stylesheet type=text/css href="HX_Style.css">
<link rel=stylesheet type=text/css href="Css.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>OnloadPage();</script></head>
<body>
<table cellpadding='2' cellspacing='1' border='0' class='border' align=center>
<form name="form1" method="post" action="upprocess.asp?path=<%=FilePath%>" enctype="multipart/form-data" >
<tr class="title"> <input type="hidden" name="action" value="uploadfile">
<td> 文件上传</font></td>
</tr>
<tr class="titletdbg">
<td>
<script language="javascript">
</script>
上传个数：
<input type="text" autocomplete=off name="upcount" class="tx" value="1" onKeyDown="if(window.event.keyCode==13) {setid();return false}">
<input type="button" name="Button" class="button" onClick="setid();" value=" 设 定 "> </td>
</tr>
<tr class=titletdbg>
<td>上 传 到：
<input type="text" autocomplete=off name="filepath" class="tx" style="width:350" value="<%=FilePath%>"> </td>
</tr>
<tr class=titletdbg valign="middle">
<td id="upid"> 文件1：
<input type="file" name="file1" style="width:400" class="tx1" value=""> </td>
</tr>
<tr align="center" class=titletdbg>
<td>
<input type="submit" class="button" name="Submit" value=" 提 交 ">
<input type="reset" class="button" name="Submit2" value=" 重 置 ">
<input type="button" name="Submit2" value=" 返 回 " class="button" onClick="location.href='<%if Session("FileUpLoadPath")<>"" thenrite "netdisk.asp?ThisDir="&replace(FilePath,"\","/")%>';"> </td>
</tr> <tr class=titletdbg> response.Write "AllShareFolderList.asp?FID="&Session("FolderFileid") else response.W
<td>禁止上传：<font color=red>
<%for ii=0 to ubound(Forumupload)
response.write Forumupload(ii)&"、"
next%></font></td>
</tr></form></table></td>
</tr>
</table>
<script language="javascript">
setid();
</script>
</body>
</html>
