UC知道utf-8字符串转成中文如何转换
来源：百度知道 编辑：UC知道 时间：2024/05/04 04:48:53
我是用ASP做的一个查询系统
如:"123.asp?key=可园"已转成"123.asp?key=%E5%B0%91%E5%B9%B4%E5%AE%AB"
但是查询页面又如何将key的字串符转成中文呢?
下面的是查询页面的代码
dim key
key=Trim(Request("key"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from szbus where line like '%"&request("Key")&"%' or title like '%"&request("Key")&"%' or keyworks like '%"&request("Key")&"%' order by ID desc"
rs.open sql,conn,1,1
=======================================
以下的回答我以了,好像不行啊!能否具体点回答呢,谢谢了!!!
=====================================
如:"123.asp?key=可园"已转成"123.asp?key=%E5%B0%91%E5%B9%B4%E5%AE%AB"
但是查询页面又如何将key的字串符转成中文呢?
下面的是查询页面的代码
dim key
key=Trim(Request("key"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from szbus where line like '%"&request("Key")&"%' or title like '%"&request("Key")&"%' or keyworks like '%"&request("Key")&"%' order by ID desc"
rs.open sql,conn,1,1
=======================================
以下的回答我以了,好像不行啊!能否具体点回答呢,谢谢了!!!
=====================================
你的那个不是utf-8的,是url编码,用下面这个就可以了.
<%
key=request("key")
Dim s
dim t
dim i
dim jjjj
dim h
dim l
dim xxxx
s=""
xxxx=Len(key)
For i =1 to xxxx
t = Mid(key,i,1)
jjjj = Asc(t)
If jjjj> 0 Then
If f Then
s = s & "%" & Right("00" & Hex(Asc(t)),2)
Else
s = s & t
End If
Else
If jjjj < 0 Then jjjj = jjjj + &H10000
h = (jjjj And &HFF00) \ &HFF
l = jjjj And &HFF
s = s & "%" & Hex(h) & "%" & Hex(l)
End If
Next
set rs=server.CreateObject("adodb.recordset")
sql="select * from szbus where line like '%"&Key&"%' or title like '%"&Key&"%' or keyworks like '%"&Key&"%' order by ID desc"
rs.open sql,conn,1,1
%>
server.htmlencode(request("key"))
server.urlencode(request