表單上傳資料解析

Source
<HTML>
<BODY>

<H1>表單上傳資料解析</H1><P>
<FORM Name=frm1>
<TEXTAREA Name=txtIn Rows=5 Cols=60></TEXTAREA><P>
<INPUT Type=Button Name=MyButton Value="解析" ><P>
<TEXTAREA Name=txtOut Rows=5 Cols=60></TEXTAREA>
</FORM>

<SCRIPT Language="VBScript">
<!--
    Sub MyButton_OnClick()
      Dim dat
      dat = frm1.txtIn.Value
      out = ""
      While Len(dat) > 0
        pos = InStr(dat, "&")
	If pos > 0 Then
            dat0 = Left(dat, pos - 1)
            dat = Mid(dat, pos + 1)
	Else
            dat0 = dat
            dat = ""
        End If
        pos = InStr(dat0, "=")
        If pos > 0 Then
            out = out & Left(dat0, pos)
            dat0 = Mid(dat0, pos + 1)
            out = out & parse(dat0) & Chr(&HD) & Chr(&HA)
        End If
      Wend
      frm1.txtOut.Value = out
    End Sub

    Function parse(d)
        parse = ""
        While Len(d) > 0
            d0 = Left(d, 1)
            d = Mid(d, 2)
    
            If d0 = "+" Then
                parse = parse & " "
            ElseIf d0 = "%" Then
                d0 = Left(d, 2)
                d = Mid(d, 3)
                v = CLng("&H" & d0)
        
                If v >= 128 Then
                    d0 = Left(d, 1)
                    d = Mid(d, 2)
                    If d0 = "+" Then
                        v = v * 256 + Asc(" ")
                    ElseIf d0 = "%" Then
                        d0 = Left(d, 2)
                        d = Mid(d, 3)
                        v = v * 256 + CLng("&H" & d0)
                    Else
                        v = v * 256 + Asc(d0)
                    End If
                    parse = parse & Chr(v)
                Else
                    parse = parse & Chr(v)
                End If
            Else
                parse = parse & d0
            End If
        Wend
    End Function
-->
</SCRIPT>

</BODY>
</HTML>