专注于为中小企业提供成都网站建设、网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业远安免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了数千家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
1，asp数据库连接的UTF8代码
用<%@language=vbscript codepage=65001%>或者<%Response.Charset= "utf-8"%>用一个就行。你用记事本或者editplus打开该文件，点击文件另存为，对话窗口中注意下面的编码，选择utf-8试试。看我的截图。2，asp如何用UTF8编写网页
我也遇到这些问题的 我的解决方式 是做的时候用Gb2312 需要utf-8时候再改过来 好像一起加也可 ！比如 index 包含 top aa 和 di，asp 三个页面 只要 top 中是utf-8 注释其他几个页面写了 gb2312也没关系最好的办法是所有文件都用统一的编码，每个文件都加上当然，直接加这个是不行的，因为会有一些符号或者字符是不会直接转过来的，你需要用dw来重新加载它，或者用记事本打开，另存为，再把文件编码也改成对应的编码就可以了。你的浏览器的设置仍然是gb2312，所以你看utf8的时候是乱码用呢编码是这样子的 ！ 中文有专用的编码得嘛· 你晓得的。3，asp如何转换gb2312字符串为utf8字符串
写一个程序将gb码转换成UTF8, 以下是我用的函数使用方法: UTF8STR = GB2UTF("GB码内容", 1)不过我不能理解,你是怎么接收到gb码参数的? 无论是POST还是GET 如果你的页面写好是utf-8, 那你收到的参数应该都是UTF8的编码,难道你整个WEB的页面编码不统一吗?Private Function GetHex(ByVal str1 As String, IsANSI As Boolean) As String Dim b1() As Byte If IsANSI Then b1 = StrConv(str1, vbFromUnicode) Else b1 = str1 Dim s1 As Long, n1 As Long, l1 As Long l1 = LBound(b1) n1 = UBound(b1) - l1 + 1 GetHex = Space(n1 * 2) For s1 = 1 To n1 Mid(GetHex, s1 + s1 - 1, 2) = Replace(Format(Hex(b1(s1 + l1 - 1)), "@@"), " ", "0") NextEnd FunctionPrivate Function U2UTF8(ByVal a_iNum, ByVal is_With_%) Dim sResult, sTmpResult, caHex, sUTF8 Dim iTemp, iHexNum, i iHexNum = a_iNum If iHexNum = "" Then Exit Function End If caHex = "" sResult = "" sTmpResult = "" If (iHexNum < 128) Then is_With_% = 0 sTmpResult = sTmpResult & Chr(iHexNum) ElseIf (iHexNum < 2048) Then sTmpResult = ChrB(&H80 + (iHexNum And &H3F)) iHexNum = iHexNum \ &H40 sTmpResult = ChrB(&HC0 + (iHexNum And &H1F)) & sTmpResult ElseIf (iHexNum < 65536) Then sTmpResult = ChrB(&H80 + (iHexNum And &H3F)) iHexNum = iHexNum \ &H40 sTmpResult = ChrB(&H80 + (iHexNum And &H3F)) & sTmpResult iHexNum = iHexNum \ &H40 sTmpResult = ChrB(&HE0 + (iHexNum And &HF)) & sTmpResult End If If Len(sTmpResult) > 0 And is_With_% = 1 Then i = 1 caHex = GetHex(sTmpResult, False) Do While i < Len(caHex) sResult = sResult & "%" & Mid(caHex, i, 2) i = i + 2 Loop Else sResult = sTmpResult End If U2UTF8 = sResultEnd FunctionFunction GB2UTF(ByVal a_sStr, ByVal is_With_%) Dim sGB, sResult, sTemp Dim iLen, iUnicode, iTemp, i sGB = Trim(a_sStr) iLen = Len(sGB) For i = 1 To iLen sTemp = Mid(sGB, i, 1) iTemp = Asc(sTemp) If (iTemp > 127 Or iTemp < 0) Then iUnicode = AscW(sTemp) If iUnicode < 0 Then iUnicode = iUnicode + 65536 End If Else iUnicode = iTemp End If sResult = sResult & U2UTF8(iUnicode, is_With_%) Next GB2UTF = sResultEnd Function是不是采用gb2312是由你的系统环境变量或ide决定的，不是c语言决定的。gb2312是一种字符集 c中的汉字也可以是utf8或其它字符集编码不明白你“得到汉字字符串”是什么意思，char str[]="中国"; 本身就是字符串啊！有一个折中的办法，就是不管是utf-8还是gb2312对于url编码来说，都认，所以，建议你将接收到的不确定是utf-8还是gb2312编码的那些字符用url编码： server.urlencode()
分享名称：aspcms如何使用utf8，asp数据库连接的UTF8代码
文章位置：
http://bzwzjz.com/article/idehsc.html
