asp jscript 调用 asp vbscript class/类, by shawl.qiu

最新推荐文章于 2019-12-25 16:13:29 发布

btbtd

最新推荐文章于 2019-12-25 16:13:29 发布

阅读量4.1k

点赞数

文章标签： asp vbscript function extension class server

本文链接：https://blog.csdn.net/btbtd/article/details/1786549

版权

MS ASP 同时被 2 个专栏收录

78 篇文章 0 订阅

订阅专栏

MS JScript

31 篇文章 0 订阅

订阅专栏

asp jscript 调用 asp vbscript class/类, by shawl.qiu

说明:
在鄙人的前一篇文章里实现了 jscript 与 vbscript 的互访.
详见:
http://blog.csdn.net/btbtd/archive/2007/09/15/1785817.aspx

那么, 居然能互访了, 我想应该做点什么.
嗯, 对了, jscript 是没有二进制函数的, 所以嘛, jscript 基本上不能写上传类...
不过可以通过调用 vbscript 的二进制函数达到目的, 但那样太过于繁琐.
那咋办..哦, 因鄙人以前用 asp vbscript 写过一个完整的上传类.
所以嘛, 有现成的, 赶紧试试...

在测试的过程中, 问题就来了.
因为 jscript 根本就没有与 vbscript class 对应的数据类型...
呵呵, 真难搞呀, 不过..
在经过一小番思考之后, 有了, 咱用一个函数实体化 vbscript 类再返回不就得了...
一试之后, 果然见效...

剩下的, 留给代码说说.

目录:
1. 实现一个简单的类(foo
1.1 vbscript_class.asp
1.2 jscript_call.asp

2. 调用 vbscript sqUpload 类
2.1 sqUpload(Lib).asp
2.2 sqUpload.inc

shawl.qiu
2007-09-15
http://blog.csdn.net/btbtd

下载:
http://files.myopera.com/btbtd/web/Jscript_call_Vbscript_class.7z

内容:
1. 实现一个简单的类(Foo)
1.1 vbscript_class.asp

<%
'dim ins

'set ins = new Foo
'ins.Show()
'ins = null

'---------------------------------------------------------------------'
' shawl.qiu 类 v
'---------------------------------------------------------------------'
'---------------------------------------------------------------------begin class Foo
class Foo
  '------------------------------------begin event
  private sub class_initialize()
   auSubject=""
   auVersion="v1.0"
   au="shawl.qiu"
   auEmail="shawl.qiu@gmail.com"
   auBlog="http://blog.csdn.net/btbtd"
   auCreateDate="2007-1-21"
  end sub

  private sub class_terminate()

  end sub
  '------------------------------------end event

  '------------------------------------begin public variable
  '---------------begin about
  public auSubject, auVersion, au, auEmail, auBlog, auCreateDate
  '---------------end about
  '------------------------------------end public variable

  '------------------------------------begin public method

  '------------------------------------end public method

  '------------------------------------begin private variable
  function Show
   Response.Write("auSubject: "+auSubject+"<br/>")
   Response.Write("auVersion: "+auVersion+"<br/>")
   Response.Write("au: "+au+"<br/>")
   Response.Write("auEmail: "+auEmail+"<br/>")
   Response.Write("auBlog: "+auBlog+"<br/>")
   Response.Write("auCreateDate: "+auCreateDate+"<br/>")
  end function
  '------------------------------------end private variable

  '------------------------------------begin private method

  '------------------------------------end private method
end class
'---------------------------------------------------------------------end class Foo

function FooVbs()
  Set FooVbs = new Foo
end function

%>

1.2 jscript_call.asp

<%@ LANGUAGE = "JAVASCRIPT" CODEPAGE = "65001" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>shawl.qiu template </title>
</head>
<body>
<%
var Ar = fStream("vbscript_class.asp", "utf-8", true);
Ar[0] = Ar[0].replace(/</%|/%/>/g, "");
//Response.Write("<xmp>"+Ar+"</xmp>");
fLoadingVbs(Ar[0]);

Response.Write("typeof foo: "+(typeof foo)+"<br/>");
Response.Write("typeof FooVbs: "+(typeof FooVbs)+"<br/>");
//fVarName(Foo) // Foo is not found
Response.Write("<hr/>");

var ins = FooVbs();
ins.Show();
ins = null;

function fStream(sPath, sCharset, bCov)
{ // shawl.qiu code, return array
  if(bCov) sPath = Server.MapPath(sPath);
  var Stream = new ActiveXObject("Adodb.Stream");
  Stream.Type = 2;
  Stream.Mode = 3;
  Stream.Open;
  Stream.LoadFromFile(sPath);

  if(sCharset) Stream.CharSet = sCharset;
  var iStep =0;
  if(/utf/s*/-/s*8|unicode/i.test(sCharset)) iStep = 2;
  Stream.Position = iStep;
  var Ar = [Stream.ReadText()];
  delete Stream;
  return Ar;
} // end function fStream(sPath, sCharset)

%>
<script runat="server" language="vbscript">
function fLoadingVbs(Ar)
  ExecuteGlobal Ar
end function

function fVarName(VarName)
  Response.Write("TypeName(VarName): "+TypeName(VarName)+"<br/>")
end function
</script>
</body>
</html>

2. 调用 vbscript sqUpload 类
2.1 sqUpload(Lib).asp

<%@ LANGUAGE = "JAVASCRIPT" CODEPAGE = "65001" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>shawl.qiu template </title>
</head>
<body>
<%
var Ar = fStream("sqUpload.inc", "utf-8", true);
Ar[0] = Ar[0].replace(/</%|/%/>/g, "");
//Response.Write("<xmp>"+Ar+"</xmp>");

function fStream(sPath, sCharset, bCov)
{ // shawl.qiu code, return array
  if(bCov) sPath = Server.MapPath(sPath);
  var Stream = new ActiveXObject("Adodb.Stream");
  Stream.Type = 2;
  Stream.Mode = 3;
  Stream.Open;
  Stream.LoadFromFile(sPath);

  if(sCharset) Stream.CharSet = sCharset;
  var iStep =0;
  if(/utf/s*/-/s*8|unicode/i.test(sCharset)) iStep = 2;
  Position = iStep;
  var Ar = [Stream.ReadText()];
  delete Stream;
  return Ar;
} // end function fStream(sPath, sCharset)

fLoadingVbs(Ar[0]);

var up = sqUploadVbs();
  up.debug=false;
  up.item=5;
  up.action="?id=ufile";
  up.totalsize=1024*10;
  up.singlesize=1024;
  up.path="/uploads/";

  up.extension="7z,rar,zip,mp3,bmp,gif,jpg,jpeg,png,txt,swf,html,htm";
  up.charset="utf-8";

  up.interval=30;
  up.gobackSecond=10;
  up.gobackurl="?";

  up.prefix="";
  up.autorename=false;
  up.rndpostfix=false;

  up.ckeckfile=true;

  up.listForCheck="jpg,gif,png,jpeg";

  up.autoRenameOpt=true;
  up.prefixOpt=true;
  up.rndPostfixOpt=true;

  up.header();

  if(Request.QueryString("id")+""=="ufile")
  {
   up.exec();
   up.report();
  }

  up.info();
  up.form();
  up.about();
  up.footer();

  up = null;
%>

<script runat="server" language="vbscript">
function fLoadingVbs(Ar)
  ExecuteGlobal Ar
end function
</script>
</body>
</html>

2.2 sqUpload.inc

<%
' dim up
' set up=new sqUpload
'  up.debug=false                '非必选, 调试时设为 true
'  up.item=5                     '必选项, 显示多少个上传文件域'
'  up.action=SQSTRINGMARKER0         '必选项, 上传提交路径
'  up.totalsize=1024*10 'kb'     '必选项, 上传总大小
'  up.singlesize=1024 'kb        '必选项, 上传每文件总大小
'  up.path=SQSTRINGMARKER1           '必选项, 上传目录
'
'  '必选项, 允许上传的文件扩展类型
'  up.extension=SQSTRINGMARKER2
'  up.charset=SQSTRINGMARKER3            '必选项, 上传页编码
'
'  up.interval=30                '必选项, 每次上传间隔  单位: 秒
'  up.gobackSecond=10            '必选项, 上次完毕后返回时间单位: 秒
'  up.gobackurl=SQSTRINGMARKER4              '必选项, 上次完毕后返回路径, 单位: url
'
'  up.prefix=""                  '非必选, 上传前缀'
'  up.autorename=false           '非必选, 是否自动重命名
'  up.rndpostfix=false           '非必选, 是否添加随机后缀
'
'  up.ckeckfile=true             '非必选, 是否检测恶意代码
'  '非必选, 要进行检测恶意代码的文件类型
'  up.listForCheck=SQSTRINGMARKER5
'
'  up.autoRenameOpt=true         '非必选, 是否显示表单的自动重命名复选框
'  up.prefixOpt=true             '非必选, 是否显示表单的自定义前缀文件框
'  up.rndPostfixOpt=true         '非必选, 是否显示表单的随机后缀复选框
'
'  up.header                     '非必选, 程序头部信息
'
'  if Request.QueryString(SQSTRINGMARKER6)=SQSTRINGMARKER7 then
'   up.exec                       '必选项, 处理上传
'   up.report                     '必选项, 汇报上传后结果
'   'Response.write(up.filelist)  '返回已上传的所有文件路径, 数据类型为字符串, 以逗号分隔'
'  end if
'
'  up.info                       '非必选, 显示上传限制信息
'
'  up.form                       '必选项, 显示上传表单
'
'  up.about                      '非必选, 显示作者及程序相关信息
'  up.footer                     '非必选, 显示程序底部信息
' set up=nothing

'---------------------------------------------------------------------'
' shawl.qiu asp/vbscript 无组件上传类 v1.2
'---------------------------------------------------------------------'
'---------------------------------------------------------------------begin class sqUpload
class sqUpload
   '------------------------------------begin event
   private sub class_initialize()
    auSubject="shawl.qiu asp/vbscript 无组件上传类"
    auVersion="v1.2"
    au="shawl.qiu"
    auEmail="shawl.qiu@gmail.com"
    auBlog="http://blog.csdn.net/btbtd"
    auCreateDate="2007-1-18"
    auPubDate="2007-1-19"
    auUpDesc="本次升级重写了大部分代码, 以更合理更OO的结构重写本程序, 提高了很多效率."&_
    "<br/>修正了 1.0 Final 中的一点小 bug."&_
    "<br/>备注: 1.1 版本没发布, 这大概会是鄙人的一个习惯, 1.1 版本大多是在捉虫子,"&_
    " 因此鄙人的 1.1 大多数没发布"

    'init public variable'
    item=10
    action="?id=ufile"
    totalsize=1024*1024 'kb'
    singlesize=1024 'kb'
    path="/upload/"
    extension="7z,rar,zip,mp3,bmp,gif,jpg,jpeg,png,txt,swf"
    charset="utf-8"

    filelist=""

    interval=10
    gobackSecond=10
    gobackurl="?"

    autoRenameOpt=false
    prefixOpt=false
    rndPostfixOpt=false

    tl_totalfield=0
    tl_totalfile=0
    tl_totalnotfile=0
    tl_finalupload=0

    prefix=""
    autorename=false
    rndpostfix=false
    ckeckfile=false
    listForCheck=""

    tl_bAllowUpload=true

    wordAutoRename="自动重命名"
    wordRndPostfix="随机后缀"
    wordPrefix="添加前缀"

    wordPrefixValue="prx_"
    wordSubmit="现在上传文件?"
    wordReset="现在重置?"

    redim tl_arCkFl(4)
     tl_arCkFl(0)=chrB(60)&chrB(37) '<%
     tl_arCkFl(1)=chrB(37)&chrB(62) '%/>
     tl_arCkFl(2)=chrB(115)&chrB(99)&chrB(114)&chrB(105)&chrB(112)&chrB(116)
     tl_arCkFl(3)=chrB(83)&chrB(99)&chrB(114)&chrB(105)&chrB(112)&chrB(116)
     tl_arCkFl(4)=chrB(83)&chrB(67)&chrB(82)&chrB(73)&chrB(80)&chrB(84)

    debug=false

    Response.write("<style type=""text/css"">"&vbcrlf)
    Response.write("/* <![CDATA[ */"&vbcrlf)
    Response.write(" .dspBl{ display:block;}"&vbcrlf)
    Response.write(" .report * li{margin:5px 0px}"&vbcrlf)
    Response.write(" .crRed{color:red}"&vbcrlf)
    Response.write(" .crFcs{color:fuchsia}"&vbcrlf)
    Response.write(" .ftBld{font-weight:bold;}"&vbcrlf)
    Response.write(" .crHl{background:yellow; color:black;}"&vbcrlf)
    Response.write(" .au_header { font-weight:bold; text-align: center; "&_
    "color:bold; display:table; width:96%;"&vbcrlf)
    Response.write("  font-size:28px; padding:%2; }"&vbcrlf)
    Response.write(" .au_footer{text-align: center; display:table; width:98%; padding:%1; }"&_
    vbcrlf)
    Response.write(" hr{"&vbcrlf)
    Response.write("  border-top: 1px dashed #FFFFFF!important;"&vbcrlf)
    Response.write("  border-right: 1px dashed #FFFFFF!important;"&vbcrlf)
    Response.write("  border-bottom:1px dashed black!important; "&vbcrlf)
    Response.write("  border-left: 1px dashed #FFFFFF!important;"&vbcrlf)
    Response.write("  margin:10px 0px;"&vbcrlf)
    Response.write("  }"&vbcrlf)
    Response.write("/* ]]> */"&vbcrlf)
    Response.write("</style>")
   end sub 'class_initialize'

   private sub class_terminate()

   end sub 'class_terminate'
   '------------------------------------end event
   '------------------------------------begin public variable
   '---------------begin about
   public auSubject, auVersion, au, auEmail, auBlog, auCreateDate, auPubDate, auUpDesc
   '---------------end about
   public item
   public action
   public totalsize
   public singlesize
   public path
   public extension
   public charset

   public filelist

   public interval
   public gobackSecond
   public gobackurl

   public autoRenameOpt
   public prefixOpt
   public rndPostfixOpt

   public prefix
   public autorename
   public rndpostfix
   public ckeckfile
   public listForCheck

   public wordAutoRename
   public wordRndPostfix
   public wordPrefix
   public wordSubmit
   public wordReset
   public wordPrefixValue

   public debug
   '------------------------------------end public variable

   '------------------------------------begin public method
   public property get form
    form=fForm
   end property

   public property get exec
    exec=fExec
   end property

   public property get info
    info=fInfo
   end property

   public property get report
    report=fReport
   end property

   public property get header
    header=fHeader
   end property

   public property get footer
    footer=fFooter
   end property

   public property get about
    about=fAbout
   end property
   '------------------------------------end public method

   '------------------------------------begin private variable
   private tl_totalbytes
   private tl_sizebykb
   private tl_phspath
   private tl_bAllowUpload

   private tl_totalHeader
   private tl_totalfield
   private tl_totalfile
   private tl_totalnotfile
   private tl_finalupload

   private tl_arCkFl

   private tl_arErrNoExt
   private tl_arErrNotAllowExt
   private tl_arErrMaliceCode
   private tl_arErrFileExists
   private tl_arErrOversize
   private tl_arErrOversizeDetail

   private tl_arUploadList
   private tl_arUploadDetail
   private tl_arFinalName

   '------------------------------------end private variable

   '------------------------------------begin private method
   private function fExec()
    dim dtInterval
    if session("timestamp")="" then session("timestamp")=now()
     dtInterval=dateDiff("s",now(),session("timestamp"))

    if  dtInterval>0  then
     call suErr1("每次上传的时间间隔为", "秒后才能继续上传, 请稍候...,","秒", "?",_
      dtInterval, interval)
     tl_bAllowUpload=false
     exit function
    else
     session("timestamp")=dateAdd("s",interval,now())
    end if

    tl_totalbytes=Request.TotalBytes

    '-----------------------------------检测是否有数据在上传'
    if tl_totalbytes=0 then
     call suErr("上传数据为空, 上传处理被中止,", "?", 3)
     Response.End()
    end if

    tl_sizebykb=tl_totalbytes/1024

    '-----------------------------------检测上传总大小是否超出限制'
    if totalsize<tl_sizebykb then
     dim sUpsize:
     sUpsize="上传总大小为: "&formatNumber(tl_sizebykb)&" Kb, 超过总大小限制: "&_
     totalsize&" kb, 约合 "&(totalsize/1024)&" mb, "
     'Response.write(sUpsize)
     call suErr( sUpsize, "?", 3)
     Response.End()
    end if

    '-----------------------------------检测上传路径是否存在
    if fFsoCkFdr(path, true)=false then
     call suErr("指定的上传文件路径不存在", "?", 3)
     Response.End()
    end if

    tl_phspath=Server.MapPath(path)

    dim bnTotal:bnTotal=Request.BinaryRead(tl_totalbytes)
    dim bnMarker:bnMarker=leftB(bnTotal,instrB(bnTotal,chrB(32))-1) ' 文件头状况分隔符'
    dim bnLf:bnLf=chrB(13)&chrB(10)
    dim bnFieldMarker:bnFieldMarker=leftB(bnTotal,inStrB(bnTotal,chrB(13))-1)

    dim iStart:iStart=1
    dim iJump
    dim iBnStart, iBnEnd

    dim arHeaderStartTemp, arHeaderEndTemp, arHeaderStrTemp
    dim arHeaderStart, arHeaderEnd, arHeaderStr
    dim arFieldStart, arFieldEnd

    do
     iJump=inStrB(iStart, bnTotal, bnMarker)
     if iJump<>0 then
      iStart=iJump+1 '取二进制开始位置'
      iBnStart=inStrB(iStart, bnTotal, bnLf&bnLf) '取二进制结束位置
      iBnEnd=inStrB(iBnStart+5, bnTotal, bnFieldMarker)
      tl_totalHeader=tl_totalHeader+1 ' 取头部总数

      if inStrB(midB(bnTotal, iBnStart+4, 36),midB(bnFieldMarker,1))=0 then

       '-----------------------------临时取头部起始位置'
       if isArray(arHeaderStartTemp) then redim preserve arHeaderStartTemp(tl_totalfield) _
       else redim arHeaderStartTemp(tl_totalfield)
        arHeaderStartTemp(tl_totalfield)=iStart-1

       '-----------------------------临时取头部结束位置'
       if isArray(arHeaderEndTemp) then redim preserve arHeaderEndTemp(tl_totalfield) else _
       redim arHeaderEndTemp(tl_totalfield)
        arHeaderEndTemp(tl_totalfield)=iBnStart+2-iStart

       '-----------------------------临时取头部字串'
       if isArray(arHeaderStrTemp) then redim preserve arHeaderStrTemp(tl_totalfield) _
       else redim arHeaderStrTemp(tl_totalfield)
        arHeaderStrTemp(tl_totalfield)=_
         fBin2Str(midB(bnTotal,iStart-1,arHeaderEndTemp(tl_totalfield)),charset)


       '-----------------------------检测附加选项'
       if inStr(arHeaderStrTemp(tl_totalfield),"filename")=0 and inStr(_
        arHeaderStrTemp(tl_totalfield),"; name=")<>0 then
        select case fRe(arHeaderStrTemp(tl_totalfield),true,true,_
        true,"[/s/S]*?name/=/""(.*?)""[/s/S]*","$1")
         case "nprefix":
           prefix=fBin2Str(midB(bnTotal,iBnStart,iBnEnd-iBnStart),charset)
           if debug then
            Response.write("<br/>prefix string: "&prefix)
           end if
         case "nrndpfx": rndpostfix=true
         case "nautorename": autorename=true
        end select

        if debug then
          Response.write("<br/>header not upload file: "&arHeaderStrTemp(tl_totalfield))
        end if
        tl_totalnotfile=tl_totalnotfile+1
       else
        if inStr(arHeaderStrTemp(tl_totalfield), "filename=""""")=0 then

         '-----------------------------取头部起始位置'
         if isArray(arHeaderStart) then redim preserve arHeaderStart(tl_totalfile) _
         else redim arHeaderStart(tl_totalfile)
          arHeaderStart(tl_totalfile)=iStart-1

         '-----------------------------取头部结束位置'
         if isArray(arHeaderEnd) then redim preserve arHeaderEnd(tl_totalfile) else _
         redim arHeaderEnd(tl_totalfile)
          arHeaderEnd(tl_totalfile)=iBnStart+2-iStart

         '-----------------------------取头部字串'
         if isArray(arHeaderStr) then redim preserve arHeaderStr(tl_totalfile) else redim _
          arHeaderStr(tl_totalfile)
          arHeaderStr(tl_totalfile)=_
           fBin2Str(midB(bnTotal,iStart-1,arHeaderEnd(tl_totalfile)),charset)


         '-----------------------------取文件内容起始位置'
         if isArray(arFieldStart) then redim preserve arFieldStart(tl_totalfile) else redim  _
          arFieldStart(tl_totalfile)
         arFieldStart(tl_totalfile)=iBnStart

         '-----------------------------取文件内容结束位置'
         if isArray(arFieldEnd) then redim preserve arFieldEnd(tl_totalfile) else redim _
          arFieldEnd(tl_totalfile)
         arFieldEnd(tl_totalfile)=iBnEnd

         if debug then
          Response.write("<br/>header "&tl_totalfile&" start position: "&_
           arHeaderStartTemp(tl_totalfile))

          Response.write("<br/>header "&tl_totalfile&" end read plus: "&_
           arHeaderEndTemp(tl_totalfile))

          Response.write("<br/>header "&tl_totalfile&" string: "&_
           arHeaderStrTemp(tl_totalfile))

          Response.write("<br/>file content "&tl_totalfile&" start position: "&_
           arFieldStart(tl_totalfile))

          Response.write("<br/>file content "&tl_totalfile&" end position: "&_
           arFieldEnd(tl_totalfile))

          Response.write("<br/>")
         end if

         tl_totalfile=tl_totalfile+1
        end if
       end if

       tl_totalfield=tl_totalfield+1 ' 取上传总文件数
      end if

     else
      exit do
     end if
    loop

    if debug then
     Response.write("<br/>上传头部总数: "&tl_totalHeader)
     Response.write("<br/>可用头部总数: "&(tl_totalfile+tl_totalnotfile))
     Response.write("<br/>上传文件总数: "&tl_totalfile)
     Response.write("<br/>上传非文件总数: "&tl_totalnotfile)

     Response.write("<br/>文件前缀: "&prefix)
     Response.write("<br/>自动重命名: "&autorename)
     Response.write("<br/>随机后缀: "&rndpostfix)

     Response.write("<p/>上传虚拟路径: "&path)
     Response.write("<br/>上传物理路径: "&tl_phspath)
     Response.write("<br/>上传总大小为: "&formatNumber(tl_sizebykb)&" Kb")
     Response.write("<br/>限制总大小为: "&(totalsize)&" Kb")
     Response.write("<br/>限制每文件大小为: "&(singlesize)&" Kb")
    end if

    '-----------------------------------检测是否有文件上传'
    if not isArray(arHeaderStr) then
     call suErr("没有可上传的文件,", "?", 3)
     Response.End()
    end if

    '-----------------------------------开始处理上传文件'
    dim iSave
    dim sFlNm, sFlPrx, sFlPox, sFnlNm
    dim sFlpoxTemp
    dim bnFileContent
    dim sPathTemp
    dim iArCkTemp
    dim bFlag, bFileExist
    dim sAutorename, iAutorename
    dim iUpsizeByteTemp, iUpsizeKbTemp, iUpsizeMbTemp
    dim sUPDetailTemp

    for iSave=0 to uBound(arHeaderStr)
     iAutorename=1
     bFlag=true
     bFileExist=false
     sFlNm=fRe(arHeaderStr(iSave), false, true, false,_
      "[/s/S]*filename=""(.*?)""[/s/S]*", "$1")

      sFlNm=fRe(sFlNm, false, true, false,".*//(.*)", "$1")
     if inStr(sFlNm, ".")<>0 then
      sFlPrx=fRe(sFlNm, false, true, false,"(.*)/..*", "$1")
      sFlPox=fRe(sFlNm, false, true, false,".*/.(.*)", "$1")

      '-------------------------------------允许上传的文件扩展名'
      if fReTest(extension, "/b"&sFlPox&"/b") then
       sFlPrx=fRe(prefix&sFlPrx, true, true, false,"/s+", "")
       if rndpostfix then
        sFlpoxTemp=fRndStr(10)
        sFlPrx=sFlPrx&sFlpoxTemp
       end if
       sFnlNm=sFlPrx&"."&sFlPox
       bnFileContent=_
        midB(bnTotal,arFieldStart(iSave)+3,arFieldEnd(iSave)-arFieldStart(iSave)-3)
        sPathTemp=path+sFnlNm

       if ckeckfile then
        if fReTest(listForCheck, "/b"&sFlPox&"/b") then
         for iArCkTemp=0 to uBound(tl_arCkFl)
          '--------------------------------检测恶意代码
          if inStrB(1, bnFileContent, tl_arCkFl(iArCkTemp), 1)<>0 then
           if isArray(tl_arErrMaliceCode) then redim preserve _
            tl_arErrMaliceCode(uBound(tl_arErrMaliceCode)+1) else redim tl_arErrMaliceCode(0)
            tl_arErrMaliceCode(uBound(tl_arErrMaliceCode))=sFlNm
            bFlag=false
           exit for
          end if
         next
        end if
       end if

       if bFlag then
        bFileExist=fCheckFile(Server.MapPath(sPathTemp))

        iUpsizeByteTemp=arFieldEnd(iSave)-arFieldStart(iSave)-3
        iUpsizeKbTemp=iUpsizeByteTemp/1024
        iUpsizeMbTemp=iUpsizeKbTemp/1024

        if bFileExist then '存在相同名称的文件'
         if debug then Response.write("<br/>已存在文件: "&sPathTemp)

         if autorename then
          do
           sAutorename=fRe(sPathTemp, false, true, false,"(.*)/..*", "$1")
           sAutorename=sAutorename&"_"&iAutorename&"."&sFlPox
           if fCheckFile(Server.MapPath(sAutorename))=false then
            exit do
           end if
           iAutorename=iAutorename+1
          loop

          sFnlNm=fRe(sAutorename, false, true, false,".*//(.*)", "$1")

          '------------------------------------------保存上传文件子过程'
          call suSavingFile(iUpsizeKbTemp, singlesize, sAutorename, sFlNm, sFnlNm, _
          iUpsizeByteTemp, iUpsizeMbTemp, bnTotal, iSave, arFieldStart, arFieldEnd)

          if debug then Response.write("<br/>自动重命名: "&sAutorename)
         else
          if isArray(tl_arErrFileExists) then redim preserve _
           tl_arErrFileExists(uBound(tl_arErrFileExists)+1) else redim tl_arErrFileExists(0)
           tl_arErrFileExists(uBound(tl_arErrFileExists))=sFnlNm
           if debug then Response.write("<br/> 已存在相同的文件: "&sFnlNm)
         end if

        else

          if debug then
           Response.write("<br/>")
           Response.write("<br/> 上传文件大小大于单文件限制:"&(iUpsizeKbTemp>singlesize))
           Response.write("<br/>文件大小:"&iUpsizeByteTemp&" byte, 约合: "&_
           (formatNumber(iUpsizeKbTemp))&" kb")
          end if

          '------------------------------------------保存上传文件子过程'
          call suSavingFile(iUpsizeKbTemp, singlesize, sPathTemp, sFlNm, sFnlNm, _
          iUpsizeByteTemp, iUpsizeMbTemp, bnTotal, iSave, arFieldStart, arFieldEnd)

        end if
       end if

      else
       '------------------------------------不允许上传的文件扩展名'
       if isArray(tl_arErrNotAllowExt) then redim preserve _
        tl_arErrNotAllowExt(uBound(tl_arErrNotAllowExt)+1) else redim tl_arErrNotAllowExt(0)
        tl_arErrNotAllowExt(uBound(tl_arErrNotAllowExt))=sFlNm

       if debug then
        Response.write("<br/>")
        Response.write("<br/>不允许上传的文件扩展名: "&sFlNm)
       end if
      end if

      if debug then
       Response.write("<br/>文件名: "&sFlNm)
       Response.write("<br/>前缀: "&prefix)
       Response.write("<br/>后缀: "&sFlpoxTemp)
       Response.write("<br/>最终文件名: "&sFnlNm)
      end if
     else
      '--------------------------------------没有扩展名的文件
      if isArray(tl_arErrNoExt) then redim preserve tl_arErrNoExt(uBound(tl_arErrNoExt)+1) _
      else redim tl_arErrNoExt(0)
      tl_arErrNoExt(uBound(tl_arErrNoExt))=sFlNm
     end if
    next
   end function 'fExec'

   private sub suSavingFile(iUpsizeKbTemp, singlesize, sPathTemp, sFlNm, sFnlNm, _
   iUpsizeByteTemp, iUpsizeMbTemp, bnTotal, iSave, arFieldStart, arFieldEnd)
    '----------------------------------判断单文件是否超出限制大小'
    if iUpsizeKbTemp<=singlesize then
     call fBinSv2fl(bnTotal,arFieldStart(iSave)+3,arFieldEnd(iSave)-_
     arFieldStart(iSave)-3, sPathTemp, 2)

     if isArray(tl_arUploadList) then redim preserve _
      tl_arUploadList(uBound(tl_arUploadList)+1) else redim tl_arUploadList(0)
      tl_arUploadList(uBound(tl_arUploadList))=sFlNm

     if isArray(tl_arFinalName) then redim preserve _
      tl_arFinalName(uBound(tl_arFinalName)+1) else redim tl_arFinalName(0)
      tl_arFinalName(uBound(tl_arFinalName))=sFnlNm

     if isArray(tl_arUploadDetail) then redim preserve _
      tl_arUploadDetail(uBound(tl_arUploadDetail)+1) else redim tl_arUploadDetail(0)
      tl_arUploadDetail(uBound(tl_arUploadDetail))=_
      "上传文件大小为: "&iUpsizeByteTemp&" Byte, 约合 "&formatNumber(iUpsizeKbTemp)&_
      " Kb, "&formatNumber(iUpsizeMbTemp)&" Mb"
      'iUpsizeKbTemp'
     tl_finalupload=tl_finalupload+1
    else

     if isArray(tl_arErrOversize) then redim preserve _
      tl_arErrOversize(uBound(tl_arErrOversize)+1) else redim tl_arErrOversize(0)
      tl_arErrOversize(uBound(tl_arErrOversize))=sFlNm

     if isArray(tl_arErrOversizeDetail) then redim preserve _
      tl_arErrOversizeDetail(uBound(tl_arErrOversizeDetail)+1) else redim _
      tl_arErrOversizeDetail(0)
      tl_arErrOversizeDetail(uBound(tl_arErrOversizeDetail))="上传文件: "&sFlNm&_
      ", 总大小约为 "&formatNumber(iUpsizeKbTemp)&" kb, 超出单文件限制大小 "&_
      singlesize&" kb, 已被中止上传."

    end if
   end sub 'suSavingFile'

   private function fFileList(aFileList)
    dim sTemp, aTemp, iUbound, iTemp
    if isArray(aFileList) then
     iUbound=ubound(aFileList)
     redim aTemp(iUbound)
     for iTemp=0 to iUbound
      aTemp(itemp)=path&aFileList(iTemp)
     next
     sTemp=join(aTemp,",")
    else
     sTemp=""
    end if
    filelist=sTemp
   end function 'fFileList'

   private function fReport()

    if not tl_bAllowUpload then
     exit function
    end if

    call suErr1("上传操作处理完毕", "返回", "秒后返回", "?", gobackSecond, gobackSecond)

    if isArray(tl_arErrNoExt) or isArray(tl_arErrNotAllowExt) or isArray(tl_arErrMaliceCode) _
     or isArray(tl_arErrFileExists) or isArray(tl_arUploadList) or isArray(tl_arErrOversize) _
     then

     Response.write("<div class='report'>")
     Response.write("<h2>上传信息</h2>")

     Response.write("<h3 class='crRed'>本次上传文件总数: "& tl_totalfile&", 成功上传文件总数: "&_
     tl_finalupload&", 被终止上传文件总数: "&(tl_totalfile-tl_finalupload)&".</h3>")


     Response.write("<h2>上传明细:</h2>")

     '---------------------------------已上传文件
     if isArray(tl_arUploadList) then
      dim iUplist
      Response.write("<ol>")
      Response.write("<label class='crHl dspBl'>已上传文件:</label>")
      for iUplist=0 to uBound(tl_arUploadList)
       Response.write("<li><b>")
       Response.write(tl_arUploadList(iUplist))
       Response.write("</b><label class='dspBl'>上传描述:<br/>最终文件名: <b class='crFcs'>"&_
       tl_arFinalName(iUplist)&"</b><br/>"&tl_arUploadDetail(iUplist)&"</label>")
       Response.write("</li>")
      next
      Response.write("</ol>")
      Response.write("<hr/>")

      fFileList(tl_arFinalName)
     end if

     '---------------------------------超出单文件大小限制
     if isArray(tl_arErrOversize) then
      dim iOversize
      Response.write("<ol>")
      Response.write("<label>超出单文件大小限制的文件有 "&(uBound(tl_arErrOversize)+1)&_
      " 个.</label>")
      for iOversize=0 to uBound(tl_arErrOversize)
       Response.write("<li><b class='crRed'>")
       Response.write(tl_arErrOversize(iOversize))
       Response.write("</b><label class='dspBl'>被中止上传描述:<br/>"&_
       tl_arErrOversizeDetail(iOversize)&"</label>")
       Response.write("</li>")
      next
      Response.write("</ol>")
      Response.write("<hr/>")
     end if

     '---------------------------------已存在相同的文件名
     if isArray(tl_arErrFileExists) then
      dim iAlreadyExists
      Response.write("<ol>")
      Response.write("<label>已存在相同的文件名, "&(uBound(tl_arErrFileExists)+1) &_
      " 个文件无法上传.</label>")
      for iAlreadyExists=0 to uBound(tl_arErrFileExists)
       Response.write("<li><b class='crRed'>")
       Response.write(tl_arErrFileExists(iAlreadyExists))
       Response.write("</b>")
       Response.write("</li>")
      next
      Response.write("</ol>")
      Response.write("<hr/>")
     end if

     '---------------------------------不允许上传的文件扩展类型
     if isArray(tl_arErrNotAllowExt) then
      dim iNotAllowExt
      Response.write("<ol>")
      Response.write("<label>不允许上传的文件扩展类型, "&(uBound(tl_arErrNotAllowExt)+1) &_
      " 个文件无法上传.</label>")
      for iNotAllowExt=0 to uBound(tl_arErrNotAllowExt)
       Response.write("<li><b class='crRed'>")
       Response.write(tl_arErrNotAllowExt(iNotAllowExt))
       Response.write("</b>")
       Response.write("</li>")
      next
      Response.write("</ol>")
      Response.write("<hr/>")
     end if

     '---------------------------------检测到包含恶意代码的文件
     if isArray(tl_arErrMaliceCode) then
      dim iMaliceCode
      Response.write("<ol>")
      Response.write("<label>检测到包含恶意代码的文件, "&(uBound(tl_arErrMaliceCode)+1) &_
      " 个文件无法上传.</label>")
      for iMaliceCode=0 to uBound(tl_arErrMaliceCode)
       Response.write("<li><b class='crRed'>")
       Response.write(tl_arErrMaliceCode(iMaliceCode))
       Response.write("</b>")
       Response.write("</li>")
      next
      Response.write("</ol>")
      Response.write("<hr/>")
     end if

     '---------------------------------检测到包含恶意代码的文件
     if isArray(tl_arErrNoExt) then
      dim iNoExt
      Response.write("<ol>")
      Response.write("<label>没有扩展名的文件, "&(uBound(tl_arErrNoExt)+1) &_
      " 个文件无法上传.</label>")
      for iNoExt=0 to uBound(tl_arErrNoExt)
       Response.write("<li><b class='crRed'>")
       Response.write(tl_arErrNoExt(iNoExt))
       Response.write("</b>")
       Response.write("</li>")
      next
      Response.write("</ol>")
      Response.write("<hr/>")
     end if

     Response.write("</div>")

    else
     exit function
    end if
   end function 'fReport()'

   private function fBinSv2fl(bin, bStart, bEnd, filepath_, ovWrite)
   '--------------------------------------
   ' 截取二进制流保存为文件 By shawl.qiu
   ' http://blog.csdn.net/btbtd
   '---------------------------
   ' sample call: call fBinSv2fl(bRead,fieldStartPsti(i)+3,fieldEndPsti(i)-fieldStartPsti(i)-3, fileName, 2)
   '------------
   ' 参数说明:
   '---------
   ' bin: 源二进制流
   ' bStart: 截取二进制流的起始位置
   ' bEnd: 截取二进制流的结束位置
   ' filepath_: 保存文件的路径
   ' ovWrite: 是否覆盖原有文件. 1: 不覆盖; 2. 覆盖
   '--------------------------------------
     filepath_=server.MapPath(filepath_)
    dim stm_, fromStm_
    set stm_=createObject("adodb.stream")
     stm_.type=1
     stm_.mode=3
     stm_.open
     stm_.write bin
     set fromStm_=createOBject("adodb.stream")
      with fromStm_
       .type=1
       .mode=3
       .open
       stm_.position = bStart
       stm_.copyTo fromStm_, bEnd
       .saveTofile filepath_, ovWrite
       .close
      end with
     set fromStm_=nothing
     stm_.close  'shawl.qiu code'
    set stm_=nothing
   end function

   private sub suErr(byval sStr, byval sCurl, byval iSecond)
    dim sUrl:sUrl=Request.ServerVariables("HTTP_REFERER")
    if sUrl="" then sUrl="/"
    if sCurl<>"" then sUrl=sCurl
    Response.write("<meta http-equiv='refresh' content='"&iSecond&";URL="&gobackurl&"'>")
    Response.write("<div style='display:table;width:100%;background-color:yellow!important;"&_
    "color:black!important;text-align:center!important;'>"&sStr&" "&iSecond&" 秒后返回.</div>")
   end sub 'suErr'

   private sub suErr1(byval sStr, byval sGbPox, byval sGbMid, byval sCurl,_
    byval iSecond, byval iDesc)
    dim sUrl:sUrl=Request.ServerVariables("HTTP_REFERER")
    if sUrl="" then sUrl="/"
    if sCurl<>"" then sUrl=sCurl
     Response.write("<script type='text/javascript'>"&vbcrlf)
     Response.write("//<![CDATA["&vbcrlf)
     Response.write(" οnlοad=function(){"&vbcrlf)
     Response.write("  fTimer("&iSecond&",'timer', 10);"&vbcrlf)
     Response.write(" }"&vbcrlf)
     Response.write("  function fTimer(iTimestamp, sId, iMs){"&vbcrlf)
     Response.write("  if(!(iTimestamp.constructor==Date)){"&vbcrlf)
     Response.write("   var sqTimeStamp=new Date();"&vbcrlf)
     Response.write("   sqTimeStamp.setSeconds(sqTimeStamp.getSeconds()+iTimestamp);"&vbcrlf)
     Response.write("   iTimestamp=sqTimeStamp;"&vbcrlf)
     Response.write("  }"&vbcrlf)
     Response.write("    var tl=arguments.callee;"&vbcrlf)
     Response.write("    if(typeof sId=='string'){"&vbcrlf)
     Response.write("   var oEle=document.getElementById(sId);"&vbcrlf)
     Response.write("  } else {"&vbcrlf)
     Response.write("   var oEle=sId;"&vbcrlf)
     Response.write("  }"&vbcrlf)
     Response.write("  var dt=new Date();"&vbcrlf)
     Response.write("  var iCk=((iTimestamp.getTime()-dt.getTime())/1000).toFixed(3);"&vbcrlf)
     Response.write("  if(iCk<=0){"&vbcrlf)
     Response.write("   oEle.innerHTML='00.000';"&vbcrlf)
     Response.write("   return false;"&vbcrlf)
     Response.write("  } else {"&vbcrlf)
     Response.write("   oEle.innerHTML=iCk;"&vbcrlf)
     Response.write("   var iTimer=setTimeout(function(){tl(iTimestamp, oEle, iMs)},iMs); "&_
     vbcrlf)
     Response.write("  }"&vbcrlf)
     Response.write(" } // end function fTimer // shawl.qiu script"&vbcrlf)
     Response.write("//]]>"&vbcrlf)
     Response.write("</script>"&vbcrlf)
     Response.write("<meta http-equiv='refresh' content='"&iSecond&";URL="&gobackurl&"'>")
     Response.write("<div style='display:table;width:100%;background-color:yellow!important;"&_
     "color:black!important;text-align:center!important;'>"&sStr&" "&iDesc&_
     " "&sGbMid&", 还有<span id='timer'>"&iSecond&"</span> "&sGbPox&"</div>")
   end sub 'suErr1'

   private function fForm()
    Response.write("<form action='"&action&"' method='post' id='uform'"&_
    " enctype='multipart/form-data' >"&vblf)
    dim i
    for i=1 to item
     Response.write("<div class='itemlist'>")
     Response.write("<input type='file' name='file' class='upButton' />")
     Response.write("</div>"&vblf)
    next
    if autoRenameOpt=true then
     Response.write("<div class='btnOpt'>")
     Response.write(" "&wordAutoRename&": <input type='checkbox' name='nautorename'"&_
     " checked='checked' />")
     Response.write("</div>")
    end if
    if rndPostfixOpt=true then
     Response.write("<div class='btnOpt'>")
     Response.write(" "&wordRndPostfix&": <input type='checkbox' name='nrndpfx'"&_
     " checked='checked' />")
     Response.write("</div>")
    end if
    if prefixOpt=true then
     Response.write("<div class='btnOpt'>")
     Response.write(" "&wordPrefix&": <input type='text' name='nprefix' value='"&_
      wordPrefixValue&"' size='15'/>")
     Response.write("</div>")
    end if
    Response.write("<div class='btnAct'><input type='submit' οnclick="""&_
     "return confirm('"&wordSubmit&"?')""/> ")
    Response.write("<input type='reset'  οnclick="""&_
     "return confirm('"&wordReset&"')""/> </div> ")
    Response.write("</form>")
    if debug then  Response.write("<a href='?'>back</a>")
   end function 'fForm'

   private function fInfo()
    Response.write("<div class='upInfo' style='padding:5px 0px'>")

    Response.write("<div>")
    Response.write("<b>允许上传的文件类型</b>: "&extension)
    Response.write("</div>")
    Response.write("<div>")
    Response.write("<b>上传总大小限制</b>: "&totalsize&" kb")
    Response.write(", <b>每文件总大小限制</b>: "&singlesize&" kb.")
    Response.write("</div>")
    Response.write("<div>")
    Response.write("<b>每次上传时间间隔为</b>: "&interval&" 秒")
    Response.write("</div>")

    Response.write("</div>")
   end function 'fInfo'

   private function fHeader()
    'public auSubject, auVersion, au, auEmail, auBlog, auCreateDate'
    Response.write("<div class='au_header'>")
    Response.write(auSubject&" "&auVersion)
    Response.write("</div>")
   end function 'fHeader'

   private function fFooter()
    'public auSubject, auVersion, au, auEmail, auBlog, auCreateDate'
    Response.write("<div class='au_footer'>")
    Response.write("版权声明: 本程序允许非商业性的自由传播与应用, 商业使用者需经作者许可,"&_
    " 否则将追究法律责任.")
    Response.write("</div>")
   end function 'fHeader'

   private function fAbout()
    Response.write("<div class='about'>")

    Response.write("<ul>")
    Response.write("<li class='ftBld'>subject: "&auSubject&"</li>")
    Response.write("<li>version: "&auVersion&"</li>")
    Response.write("<li>author: "&au&"</li>")
    Response.write("<li>e-mail: "&auEmail&"</li>")
    Response.write("<li>blog: "&auBlog&"</li>")
    Response.write("<li>created: "&auCreateDate&"</li>")
    Response.write("<li>published: "&auPubDate&"</li>")
    Response.write("</ul>")

    Response.write("<ol>")
    Response.write("<label class='ftBld'>功能摘要:</label>")
    Response.write("<li>支持自定义上传多个文件</li>")
    Response.write("<li>支持中文文件名</li>")
    Response.write("<li>支持自定义上传总大小</li>")
    Response.write("<li>支持自定义上传每文件总大小</li>")
    Response.write("<li>支持自定义上传文件类型</li>")
    Response.write("<li>支持自定义上传间隔</li>")
    Response.write("<li>支持自定义是否重命名文件(在已存在相同名称的文件名时)</li>")
    Response.write("<li>支持自定义是否添加随机后缘</li>")
    Response.write("<li>支持自定义添加前缀</li>")
    Response.write("</ol>")

    Response.write("<ul>")
    Response.write("<label class='ftBld'>升级描述:</label>")
    Response.write("<li>"&auUpDesc&"</li>")
    Response.write("</ul>")

    Response.write("</div>")
   end function 'fAbout'

   private function fFsoCkFdr(byval sPath, byval bCov)
   ' FSO 检测文件夹函数 By shawl.qiu
    if bCov then sPath=Server.MapPath(sPath)
    fFsoCkFdr=createObject("scripting.fileSystemObject").folderExists(sPath)
   end function 'fFsoCkFdr'

   private function fBin2Str(str, charSet)
   '--------------------------------------
   ' 二进制转字符串函数 By shawl.qiu
   ' http://blog.csdn.net/btbtd
   '--------------------------
   ' 参数说明:
   '----------
   ' str: 要转换成字符串的二进制数据
   ' charSet: 字符串默认编码集, 如不指定, 则默认为 gb2312
   '-------------
   ' sample call: response.write fBin2Str(midB(fStr2Bin(str, SQSTRINGMARKER354),1),SQSTRINGMARKER355)
   '--------------------------------------
   ' 注意: 二进制字符串必须先用 midB(binaryString,1) 读取(可自定读取长度).
   '--------------------------------------
    dim stm_
    set stm_=createObject("adodb.stream")
     with stm_
      .type=2
      .open
      .writeText str
      .Position = 0
      if charSet<>"" then
       .CharSet = charSet
      else
       .CharSet = "gb2312"
      end if
       fBin2Str=.ReadText
      .close
     end with 'shawl.qiu code'
    set stm_=nothing
   end function 'fBin2Str'

   private function fRe(str,glb,igc,mtl,pt,rpt)
    dim re
    set re=new RegExp
     re.global=glb
     re.ignoreCase=igc
     re.multiline=mtl

     re.pattern=pt
     fRe=re.replace(str,rpt)
    set re=nothing
   end function 'fRe shawl.qiu code'

   private function fRndStr(num)
    if isNumeric(num)=false then exit function else num=int(num)
    dim i, j
    dim rndStr(61)

    for j=0 to 9:rndStr(j)=cStr(j):next
    j=10:for i=65 to 90:rndStr(j)=chr(i):j=j+1:next
    j=36:for i=97 to 122:rndStr(j)=chr(i):j=j+1:next

    j=0:randomize
    do until j=num:fRndStr=fRndStr+rndStr(Int((61 - 0 + 1) * Rnd + 0)):j=j+1:loop
    erase rndStr
   end function 'shawl.qiu code

   private function fReTest(sStr,sPt)
    dim re
    set re=new RegExp
     re.ignoreCase=true
     re.pattern=sPt
     fReTest=re.test(sStr)
    set re=nothing
   end function 'fReTest shawl.qiu code'

   private function fCheckFile(path)
   ' FSO 检测文件函数 By shawl.qiu
    fCheckFile=createObject("scripting.fileSystemObject").fileExists(path)
   end function
   '------------------------------------end private method
end class
'---------------------------------------------------------------------end class sqUpload

function sqUploadVbs()
  set sqUploadVbs = new sqUpload
end function
%>