码迷,mamicode.com
首页 > Web开发 > 详细

ASP 编码转换(乱码问题解决)

时间:2015-09-18 11:58:42      阅读:247      评论:0      收藏:0      [点我收藏+]

标签:

ASP 编码转换(乱码问题解决)

输出前先调用Conversion函数进行编码转换,可以解决乱码问题。

 

注,“&参数&”为ASP的连接符,这里面很多是直接调用的数据库表字段,实际使用请自行修改后再调试。

<!--GB转unicode---将GB编码文字转换为unicode编码文字-->
<% function Conversion(Str) 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 Conversion = Str_unicode end function %> <% dim HTML HTML ="<table width=‘600px‘ border=‘1px‘><tr><th colspan=‘2‘ align=‘center‘>"&Conversion("用户调查表")&"</th></tr><tr><td width=‘200px‘>"&Conversion("公司名称")&"</td><td>"&Conversion(""&company&"")&"</td></tr><tr><td>"&Conversion("公司地址")&"</td><td>"&Conversion(""&addr&"")&"</td></tr><tr><td>"&Conversion("部门")&"</td><td>"&Conversion(""&dep&"")&"</td></tr><tr><td>"&Conversion("联系人")&"</td><td>"&Conversion(""&contacts&"")&"</td></tr><tr><td>"&Conversion("联系方式")&"</td><td>"&Conversion(""&phone&"")&"</td></tr><tr><td>"&Conversion("问题描述")&"</td><td>"&Conversion(""&qs_inf&"")&"</td></tr><tr><td>"&Conversion("问答提交")&"</td><td>"&Conversion(""&qs_wt&"")&"</td></tr></table>" %>

 

其它:GB转UTF8--将GB编码文字转换为UTF8编码文字


<!--GB转UTF8--将GB编码文字转换为UTF8编码文字-->
<%
Function toUTF8(szInput)
    Dim wch, uch, szRet
    Dim x
    Dim nAsc, nAsc2, nAsc3
    ‘如果输入参数为空,则退出函数
    If szInput = "" Then
        toUTF8 = szInput
        Exit Function
    End If
    ‘开始转换
     For x = 1 To Len(szInput)
        ‘利用mid函数分拆GB编码文字
        wch = Mid(szInput, x, 1)
        ‘利用ascW函数返回每一个GB编码文字的Unicode字符代码
        ‘注:asc函数返回的是ANSI 字符代码,注意区别
        nAsc = AscW(wch)
        If nAsc < 0 Then nAsc = nAsc + 65536
    
        If (nAsc And &HFF80) = 0 Then
            szRet = szRet & wch
        Else
            If (nAsc And &HF000) = 0 Then
                uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            Else
               ‘GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版
                uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
                            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
                            Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            End If
        End If
    Next        
    toUTF8 = szRet
End Function
%>

  

-完-

ASP 编码转换(乱码问题解决)

标签:

原文地址:http://www.cnblogs.com/colinliu/p/4818489.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!