求助错误类型：500的问题

<%@LANGUAGE="VBSCRIPT"%>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www. xml:lang="zh-cn" lang="zh-cn">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>示例结果</title>
<style type="text/css">

</style>
</head>
<%
set myconn=Server.CreateObject("ADODB.Connection")
    '打开数据库
    myconn.open MM_design_STRING
set rs=server.CreateObject("adodb.recordset")
sql="select * from stu_users where stu_id='"&session("MM_ID")&"'"
rs.open sql,MM_design_STRING,1,3

%>
<body topmargin="0" bgcolor="#525252">

<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000">

  <tr>
    <td width="100%" height="100%" valign="top" bgcolor="efefef"><table width="100%" border="0" cellspacing="0" cellpadding="0">

        <td height="25" align="center">
<%
Dim Upload,path,tempCls,stu_f1,stu_f2,stu_f3,stu_f4,stu_f5,stu_f6
    stu_f1=session("MM_ID")+"-"+"1"+"-"+"1"+".rar"
    stu_f2=session("MM_ID")+"-"+"1"+"-"+"2"+".rar"
    stu_f3=session("MM_ID")+"-"+"2"+"-"+"1"+".rar"
    stu_f4=session("MM_ID")+"-"+"2"+"-"+"2"+".rar"
    stu_f5=session("MM_ID")+"-"+"3"+"-"+"1"+".rar"
    stu_f6=session("MM_ID")+"-"+"3"+"-"+"2"+".rar"
'===============================================================================
set Upload=new AnUpLoad                                 '创建类实例
Upload.SingleSize=1024*1024*1024                        '设置单个文件最大上传限制,按字节计；默认为不限制
Upload.MaxSize=1024*1024*1024                            '设置最大上传限制,按字节计；默认为不限制
Upload.Exe="rar"                          '设置合法扩展名,以|分割,忽略大小写
Upload.Charset="gb2312"                                '设置文本编码，默认为gb2312
Upload.openProcesser=false                                '禁止进度条功能，如果启用，需配合客户端程序
Upload.GetData()                                        '获取并保存数据,必须调用本方法
'===============================================================================
if Upload.ErrorID>0 then                                '判断错误号,如果myupload.Err<=0表示正常
     response.write Upload.Description                     '如果出现错误,获取错误描述
else
    response.Write " " & Upload.forms("form1") & "<br />"
     if Upload.files(-1).count>0 then                     '这里判断你是否选择了文件
            path=server.mappath("upload")                 '文件保存路径(这里是files文件夹)


            '保存第二个文件(以原文件名保存)
            set tempCls=Upload.files("file2")
            tempCls.SaveToFile path,1
            response.Write("<br><br><br><br><center><font size='6' color='#0099FF'>" & tempCls.FileName & "上传成功!(系统将在10秒后自动返回)</font></center>")
            response.write"<script>window.setTimeout(""location.href='stu_upload.asp'"",9999);</script><br />"
            dim str1,str2,str3
            str1=tempCls.FileName
            str2=left(str1,12)
            str2=right(str2,1)
            str3=left(str1,14)
            str3=right(str3,1)
            if (str2=3 and str3=2) then rs("sturesults6")="1"

            end if

            response.write stu_f1
            response.write str2
            response.Write str3
            response.Write tempCls.FileName

    else
        response.Write "您没有上传任何文件！"
     end if
end if
rs.update
rs.close
set rs=nothing
set tempCls=nothing
set Upload=nothing                   '销毁类实例
%>
</td>
</table>

</body>
</html>

测试用的是“2006161099-3-2.rar”，传入的页面有files2变量
目的是判断上传的文件名是stu_f1到stu_f6的哪一个相对应，然后将数据库相对应的sturesults1到sturesults6的值改为1。
其中stu_f1和tempCls.FileName我已经看了，值是相等的，上传功能也正常，session("MM_ID")也正常，可能就是数据库写入部分的问题，但是具体什么问题，本人实在找不出，请高手指点。。。

[ 本帖最后由 adland 于 2010-5-3 17:12 编辑 ]

求助 错误类型：500的问题