表单从gb2312的页面提交到utf-8页面，或者表单从utf-8的页面提交到gb2312页面的解决办法

·在不同编码的页面之间提交表单 ，可使用accept-charset属性，此属性FF支持，但是IE不支持
--------------------------------------------------------------------
1. 表单从gb2312的页面提交到utf-8页面时。即
   ·<form method="post" action="2.php" accept-charset="utf-8">
   ·accept-charset属性FF识别，但是ie不识别，因此采用
   ·<form method="post" action="2.php" accept-charset="utf-8" onsubmit="document.charset='utf-8';">

   ·当提交后，直接后退到表单提交页，form页面会编程乱码。，此时需要在gb2312页面中head结束之前添加
     <script>
         if(document.charset!="gb2312" && navigator.userAgent.indexOf("MSIE")>0){
            window.location.reload();
         }
    </script>
---------------------------------------------------------------------

2. 从 UTF8 编码页面 Post 数据到 GB2312 页面乱码问题解决方法
    问题描述：如包含中文，则接收的数据会发生乱码
    解决方法：
          FF中，支持accept-charset属性
            <form method="post" action="2.php" accept-charset="gb2312">
          IE中，采用js（小强）--gbk将中文编译，在utf-8中解
           ·gb2312文件--escape，js编码函数
      <script type="text/javascript">
                        function chkform(f)
                        {
                       f.uname.value=escape(f.uname.value);
                       return true;
                         }
                  </script>

     <form  onsubmit="return chkform(this);"  action="insert.asp" method="post" >
     ------------------------------------------------------------
          ·utf-8文件，接收.asp函数，解码escape
 Function vbsUnEscape(str)
    dim i,s,c
    s=""
    For i=1 to Len(str)
        c=Mid(str,i,1)
        If Mid(str,i,2)="%u" and i<=Len(str)-5 Then
            If IsNumeric("&H" & Mid(str,i+2,4)) Then
                s = s & CHRW(CInt("&H" & Mid(str,i+2,4)))
                i = i+5
            Else
                s = s & c
            End If
        ElseIf c="%" and i<=Len(str)-2 Then
            If IsNumeric("&H" & Mid(str,i+1,2)) Then
                s = s & CHRW(CInt("&H" & Mid(str,i+1,2)))
                i = i+2
            Else
                s = s & c
            End If
        Else
            s = s & c
        End If
    Next
    vbsUnEscape = s
End Function

uname=vbsUnEscape(uname)