关于上传过滤文件名问题！急！在线！谢谢

<%   language=VBScript   %>  
  <!--#Include   file="../Common/Inc_DatConn.asp"-->  
  <%  
  call   upLoad  
  '**********************************************************************  
  Private   Function   getFileName(ByVal   strFile)  
  '本函数用来取得上传文件名称  
  If   strFile   <>   ""   Then  
  getFileName   =   mid(strFile,InStrRev(strFile,   "\")+1)  
  Else  
  getFileName   =   ""  
  End   If  
  End     function  
  '************************************************************************  
  private   sub   upLoad()  
  on   error   resume   next  
          '用来执行上传文件的代码  
  strFileName   =   Request.Form("file1")  
  Set   objStream   =   Server.CreateObject("ADODB.Stream")  
  objStream.Type   =   1   '   adTypeBinary  
  objStream.Open  
  objStream.LoadFromFile   strFileName  
  '保存文件到服务器  
  'objStream.SaveToFile   "D:\wis\"   &   getFileName(strFileName),2  
                    objStream.SaveToFile   "H:\gqdl\"&Session("strAccount")&"\images\"   &   getFileName(strFileName),2  
                    'objStream.SaveToFile   "H:\gqdl\gq1\images\"   &   getFileName(strFileName),2  
    session("u")=   getFileName(strFileName)  
                    intNewsKey   =   Request("id")  
                    set   rdsNews   =   Server.CreateObject("ADODB.Recordset")  
  sqlNews   =   "Select   *   From   DAT_tu   Where   daili='"&session("username1")&"'"  
  rdsNews.Open   sqlNews,Conn,1,3  
  rdsNews(intNewsKey)   =   "images/"   &   session("u")    
  rdsNews.Update  
  rdsNews.Close  
    'objStream.Close  
   
  if   err   =   0   then  
  response.write   "上传成功!"  
  response.write   "<script>alert('更改成功！');window.close();window.open('banmain.asp');</script>"  
  else  
                          response.write   "上传失败!"  
  end   if  
   
  'set   objStream   =   nothing  
  End   Sub  
  '**************************************************************************  
  %>  
  ---  
  我只想上传图片文件，和swf格式文件，怎么作谢谢了。。。  
  问题点数：20、回复次数：4Top

1 楼peter_w_123456（良子）回复于 2005-05-13 08:45:46 得分 10

'判断上传文件是否合法  
  if   Instr(FileType,GetExtendName(file.FileName))   then  
  '上传此文件  
   
  else  
          HtmEnd   "<br><br><center>文件格式不符合要求。</center>"  
          set   upload=nothing  
          response.end  
  end   if  
  FileType:你的文件扩展名，例如“FileType=   ".zip.rar.doc.jpg.gif.xls.exe."”  
  file.FileName:你在程序中获取的上传文件名。Top

2 楼bguest（两个月不吃不喝也买不起一平方）回复于 2005-05-13 08:48:57 得分 10

在   sub   upLoad()   的开始做一个检测...比如这样:  
   
  strFileName   =   Request.Form("file1")  
  lastValue=right(getFileName(strFileName),3)  
  if   lastValue="bmp"   or   lastValue="jpg"   or   lastValue="swf"   then  
        '进行上传操作  
  else  
        '返回格式不对的提示  
  end   ifTop

3 楼myhwlj（极度郁闷）回复于 2005-05-13 09:03:09 得分 0

谢谢两位我试试，，谢谢Top

4 楼myhwlj（极度郁闷）回复于 2005-05-13 09:37:22 得分 0

还是不好用。。Top

相关问题

• 文件
• strfilename
• rdsnews
• objstream
• lastvalue
• getfilename
• savetofile
• 上传
• upload
• sub

• 帖主：myhwlj
• peter_w_123456
• bguest

• Web开发类图书