你可以在一个页面内加入两个iframe<form name="form1" action="demo.asp" target="in1">
..
</form>
<form name="form2" action="demo.asp" target="in2">
..
</form><iframe name="in1"></iframe>
<iframe name="in2"></iframe>

解决方案 »

  1.   

    <script language="javascript">
    <!--
      function funsubmit()
     {
        form1.method = 'post';
        form1.action = 'a.asp';
        form1.submit();    form2.method = 'post';
        form2.action = 'a.asp';
        form2.submit();
     }
    //->
    </script><form name=form1>
      <input type=button value=submit onclick="funsubmit();">
    </form><form name=form2>
      <input type=button value=submit onclick="funsubmit();">
    </form>
      

  2.   

    upload.inc
    <!--------------------->
    <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
    Function GetUpload(FormData)
    Dim DataStart,DivStr,DivLen,DataSize,FormFieldData
    '分隔标志串(+CRLF)
    DivStr = LeftB(FormData,InStrB(FormData,str2bin(VbCrLf)) + 1)
    '分隔标志串长度
    DivLen = LenB(DivStr)
    PosOpenBoundary = InStrB(FormData,DivStr)
    PosCloseBoundary = InStrB(PosOpenBoundary + 1,FormData,DivStr)
    Set Fields = CreateObject("Scripting.Dictionary")While PosOpenBoundary > 0 And PosCloseBoundary > 0
    'name起始位置(name="xxxxx"),加6是因为[name="]长度为6
    FieldNameStart = InStrB(PosOpenBoundary,FormData,str2bin("name=")) + 6
    FieldNameSize = InStrB(FieldNameStart,FormData,ChrB(34)) - FieldNameStart '(")的ASC值=34
    FormFieldName = bin2str(MidB(FormData,FieldNameStart,FieldNameSize))'filename起始位置(filename="xxxxx")
    FieldFileNameStart = InStrB(PosOpenBoundary,FormData,str2bin("filename=")) + 10
    If FieldFileNameStart < PosCloseBoundary And FieldFileNameStart > PosopenBoundary Then
    FieldFileNameSize = InStrB(FieldFileNameStart,FormData,ChrB(34)) - FieldFileNameStart '(")的ASC值=34
    FormFileName = bin2str(MidB(FormData,FieldFileNameStart,FieldFileNameSize))
    Else
    FormFileName = ""
    End If'Content-Type起始位置(Content-Type: xxxxx)
    FieldFileCTStart = InStrB(PosOpenBoundary,FormData,str2bin("Content-Type:")) + 14
    If FieldFileCTStart < PosCloseBoundary And FieldFileCTStart > PosOpenBoundary Then
    FieldFileCTSize = InStrB(FieldFileCTStart,FormData,str2bin(VbCrLf & VbCrLf)) - FieldFileCTStart
    FormFileCT = bin2str(MidB(FormData,FieldFileCTStart,FieldFileCTSize))
    Else
    FormFileCT = ""
    End If'数据起始位置:2个CRLF开始
    DataStart = InStrB(PosOpenBoundary,FormData,str2bin(VbCrLf & VbCrLf)) + 4
    If FormFileName <> "" Then
    '数据长度,减1是因为数据文件的存取字节数问题(可能是AppendChunk方法的问题):
    '由于字节数为奇数的图象存到数据库时会去掉最后一个字符导致图象不能正确显示,
    '字节数为偶数的数据文件就不会出现这个问题,因此必须保持字节数为偶数。
    DataSize = InStrB(DataStart,FormData,DivStr) - DataStart - 1
    FormFieldData = MidB(FormData,DataStart,DataSize)
    Else
    '数据长度,减2是因为分隔标志串前有一个CRLF
    DataSize = InStrB(DataStart,FormData,DivStr) - DataStart - 2
    FormFieldData = bin2str(MidB(FormData,DataStart,DataSize))
    End If'建立一个Dictionary集存储Form中各个Field的相关数据
    Set Field = CreateUploadField()
    Field.Name = FormFieldName
    Field.FilePath = FormFileName
    Field.FileName = GetFileName(FormFileName)
    Field.ContentType = FormFileCT
    Field.Length = LenB(FormFieldData)
    Field.Value = FormFieldDataFields.Add FormFieldName, FieldPosOpenBoundary = PosCloseBoundary
    PosCloseBoundary = InStrB(PosOpenBoundary + 1,FormData,DivStr)
    Wend
    Set GetUpload = Fields
    End Function'把二进制字符串转换成普通字符串函数
    Function bin2str(binstr)
    Dim varlen,clow,ccc,skipflag
    '中文字符Skip标志
    skipflag=0
    ccc = ""
    If Not IsNull(binstr) Then
    varlen=LenB(binstr)
    For i=1 To varlen
    If skipflag=0 Then
    clow = MidB(binstr,i,1)
    '判断是否中文的字符
    If AscB(clow) > 127 Then
    'AscW会把二进制的中文双字节字符高位和低位反转,所以要先把中文的高低位反转
    ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
    skipflag=1
    Else
    ccc = ccc & Chr(AscB(clow))
    End If
    Else
    skipflag=0
    End If
    Next
    End If
    bin2str = ccc
    End Function 
    '把普通字符串转成二进制字符串函数
    Function str2bin(varstr)
    str2bin=""
    For i=1 To Len(varstr)
    varchar=mid(varstr,i,1)
    varasc = Asc(varchar)
    ' asc对中文字符求出来的值可能为负数,
    ' 加上65536就可求出它的无符号数值
    ' -1在机器内是用补码表示的0xffff,
    ' 其无符号值为65535,65535=-1+65536
    ' 其他负数依次类推。
    If varasc<0 Then
    varasc = varasc + 65535
    End If
    '对中文的处理:把双字节低位和高位分开
    If varasc>255 Then
    varlow = Left(Hex(Asc(varchar)),2)
    varhigh = right(Hex(Asc(varchar)),2)
    str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" & varhigh)
    Else
    str2bin = str2bin & chrB(AscB(varchar))
    End If
    Next
    End Function '取得文件名(去掉Path)
    Function GetFileName(FullPath)
    If FullPath <> "" Then
    FullPath = StrReverse(FullPath)
    FullPath = Left(FullPath, InStr(1, FullPath, "") - 1)
    GetFileName = StrReverse(FullPath)
    Else
    GetFileName = ""
    End If
    End Function
    </SCRIPT>
    <SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
    function CreateUploadField(){ return new uf_Init() }
    function uf_Init(){
    this.Name = null
    this.FileName = null
    this.FilePath = null
    this.ContentType = null
    this.Value = null
    this.Length = null
    }
    </SCRIPT>
    <!---------------------------------------------------->
    在提交的叶面使用
    <form method="POST" enctype="multipart/form-data">
    保存的叶面
    将upload.inc包含
    <!--#include file="upload.inc"-->
    <%function lngConvert2(strTemp)       
    str1=leftb(strTemp,1)       
    str2=rightb(strTemp,1)       
    lngConvert2 = clng(ascb(str2) + ((ascb(str1) * 256)))       
    end function       
           
    function lngConvert(strTemp)       
    str1=leftb(strTemp,1)       
    str2=rightb(strTemp,1)       
    len1=ascb(str1)       
    len2=ascb(str2)       
    lngConvert = clng(ascb(str1) + ascb(str2) * 256)       
    end function 
          
    Dim FormData,FormSize       
    FormSize=Request.TotalBytes       
    FormData=Request.BinaryRead(FormSize)       
          
    Set Fields = GetUpload(FormData)       
    If Fields("newfile").FileName<>"" Then       
    tempstr=Leftb(Fields("newfile").Value,10)       
    tstr=chrb(255)&chrb(216)&chrb(255)&chrb(224)&chrb(0)&chrb(16)&chrb(74)&chrb(70)&chrb(73)&chrb(70)       
    end if       
           
    '提交页面的表单内容
    txt1=Fields("txt1").Value
    txt2=Fields("txt2").Value
    txt3=Fields("txt3").Value
         
    Set rs = Server.CreateObject("ADODB.Recordset")       
    sql="select * from news"       
    rs.open sql,conn,1,3     
    '插入纪录  
    rs.addnew       
    rs("title")=title
    rs("body")=content
    rs("pub")=from
    rs("up_date")=now()
    set field=rs.fields("pic")       
    field.appendchunk Fields("newfile").Value       
    '多个图片一样处理
    Rs.Update       
    rs.close       
    conn.close       
    set rs=nothing       
    set conn=nothing       
    %>