现在中文的程序都是GB2312的，这样对程序的推广很有限制的，因为GB2312只能用语中文，而不能支持其他语言，所以我把我自己作的转换文件献给大家，希望大家以后做程序一定用UTF-8编
<%
Function chinese2unicode(Str)
        dim i
        dim Str_one
        dim Str_unicode
        For i=1 to len(Str)
                Str_one=Mid(Str,i,1)
                Str_unicode=Str_unicode&chr(38)
                Str_unicode=Str_unicode&chr(35)
                Str_unicode=Str_unicode&chr(120)
                Str_unicode=Str_unicode& Hex(ascw(Str_one))
                Str_unicode=Str_unicode&chr(59)
        Next
        chinese2unicode = Str_unicode
End Function
Response.Write ("")& vbCrlf& vbCrlf& vbCrlf
Response.Write ("")& vbCrlf
action = Request.QueryString("action")
Select Case action
        Case "do"
                Call doing()
        Case else
                Call mains()
End Select

'-----------------------------
Sub mains()
        Response.write "

Gb2312 - Utf-8

"& vbCrlf
        Response.Write ("

")& vbCrlf
        Response.Write ("

")& vbCrlf
        Response.Write ("

")& vbCrlf
        Response.Write ("
 

")& vbCrlf
End Sub
'-----------------------------
Sub doing()
        Response.write "

Gb2312 - Utf-8

"& vbCrlf
        Response.Write ("

")& vbCrlf
        Response.Write (""&Request.Form("a")&"

")& vbCrlf
        Response.Write ("

")& vbCrlf
        Response.Write ("
 

")& vbCrlf

        Response.Write ("")& vbCrlf

End Sub

%>