UC知道集成搜索引擎搜索中文结果显示问题（高手帮忙在线等）
来源：百度知道 编辑：UC知道 时间：2024/05/22 19:53:04
我实现的功能是在index.asp中选择相应的搜索网站后。在search.asp中能指向选择的搜索网站
可是搜索中文的结果地址栏显示的仍然是中文，而不是代码？请高手帮忙解决一下，谢谢
下面是index.asp文件的代码：
<html>
<head>
</head>
<body>
<form action="search.asp" method="get" name="form" target="_blank">
<div align="center">请选择您喜欢的搜索引擎<br>
<br>
<select name="select">
<option value="1" selected>搜狐</option>
<option value="2">新浪</option>
<option value="3">百度</option>
</select><br><br>
请键入您要查询的关键字<br>
<input type="text" name="textfield" value="中文">
<br><br>
<input type="submit" value="搜 索">
</form>
</body>
可是搜索中文的结果地址栏显示的仍然是中文，而不是代码？请高手帮忙解决一下，谢谢
下面是index.asp文件的代码：
<html>
<head>
</head>
<body>
<form action="search.asp" method="get" name="form" target="_blank">
<div align="center">请选择您喜欢的搜索引擎<br>
<br>
<select name="select">
<option value="1" selected>搜狐</option>
<option value="2">新浪</option>
<option value="3">百度</option>
</select><br><br>
请键入您要查询的关键字<br>
<input type="text" name="textfield" value="中文">
<br><br>
<input type="submit" value="搜 索">
</form>
</body>
把&str换成&GBtoUTF8(str)
下面附一个GB转UTF-8的函数:
Function GBtoUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'如果输入参数为空，则退出函数
If szInput = "" Then
GBtoUTF8= szInput
Exit Function
End If
'开始转换
For x = 1 To Len(szInput)
wch = Mid(szInput, x, 1)
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
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
GBtoUTF8= szRet
End Function