请教：为何aspx文件中的脚本代码出错了? (在线)

调了很久一直调不通,能不能帮我解决问题?代码如下:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content=JavaScript name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<LINK href="../../css/site.css" type="text/css" rel="stylesheet">
<script src="../../js/readnews.js" language="javascript"></script>
<script language="vbscript">
<!--   
  sub CheckData     
    rem 检查是否选择了照片          
    temp=document.AddNews.Photo.value 
    if len(temp)>0 then
       rem 选择了照片
       pos=instrRev(temp,".")                
       if pos>0 then
          rem 判断文件名是否合法
          tmp=lcase(trim(mid(temp,pos+1)))
          if (tmp<>"jpg") and (tmp<>"gif") then
                                document.AddNews.photo.value="" 
                 exit sub
          else
              rem 创建图片对象 
              set objImg=document.createElement("IMAGE")              
             objImg.src=temp
             rem 判断文件是否有效              
             if (objImg.width=0) or (objImg.height=0) then
                window.alert("提示: 您所要上传的图片文件无效!!!") 
                set objImg=nothing
                document.AddNews.reset 
                exit sub
             else
                           document.AddNews.PhotoWidth.value=objImg.width
               document.AddNews.PhotoHeight.value=objImg.heigh                            
             end if                           
             rem 释放图片对象
             set objImg=nothing       
          end if           
       end if     
    end if
    rem 提交数据
    'document.AddNews.submit           
  end sub
//-->
</script>
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="AddNews" name="AddNews" method="post" runat="server" enctype="multipart/form-data">        
<FONT face="宋体">图片</FONT>
<input type="hidden" id="photowidth" runat=server>
<input type="hidden" id="photoheight" runat=server>
<INPUT class="3dlist" id="Photo" name="Photo" type="file" runat="server" onChange="CheckData"></TD>
</FORM>

解决方案 »

  1.   

    vbscript看这头晕，帮你顶吧！
      

  2.   

    input type='file' 不支持 onChange事件
      

  3.   

    rem 检查是否选择了照片
    上面的话什么意思？
      

  4.   

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <script src="../../js/readnews.js" language="javascript"></script>
    <script language="vbscript">
    <!--   
      sub CheckData     
        rem 检查是否选择了照片          
        temp=document.AddNews.Photo.value 
        if len(temp)>0 then
           rem 选择了照片
           pos=instrRev(temp,".")                
           if pos>0 then
              rem 判断文件名是否合法
              tmp=lcase(trim(mid(temp,pos+1)))
              if (tmp<>"jpg") and (tmp<>"gif") then
                                    alert("error")
                     exit sub
              else
                  rem 创建图片对象 
                  set objImg=document.createElement("IMAGE")              
                 objImg.src="file:///"&temp
                 objImg.id="xxxx"
                 document.body.appendChild objImg
                 rem 判断文件是否有效              
                 if (objImg.width=0) or (objImg.height=0) then
                    window.alert("提示: 您所要上传的图片文件无效!!!") 
                    set objImg=nothing
                    document.AddNews.reset 
                    exit sub
                 else
                      document.all.PhotoWidth.value=objImg.width
                   document.all.PhotoHeight.value=objImg.height                            
                 end if                           
                 rem 释放图片对象
                 set objImg=nothing       
              end if           
           end if     
        end if
        rem 提交数据
        'document.AddNews.submit           
      end sub
    //-->
    </script>
    </HEAD>
    <body MS_POSITIONING="GridLayout">
    <form id="AddNews" name="AddNews" method="post" runat="server" enctype="multipart/form-data">        
    <FONT face="宋体">图片</FONT>
    <input type="hidden" id="photowidth" runat=server>
    <input type="hidden" id="photoheight" runat=server>
    <INPUT class="3dlist" id="Photo" name="Photo" type="file" runat="server" onpropertychange="vbscript:CheckData"></TD>
    </FORM>