日期:2014-05-16  浏览次数:20880 次

ASP收信查看时汉字是乱码如何处理
窗口代码
Private Sub Command1_Click()
Dim cc As String
Dim dd As String
cc = "看世界A11"
dd = "aasdf"
Inet1.Execute "http://127.0.0.1/uuu.asp?Name=" & cc & "&Pass=" & dd, "GET"
End Sub


以下是asp内容
<%
strLogFile="uuu.txt"
Name=request("Name")
Pass=request("Pass")
IP=request("IP")

if Name="" or Pass="" then
response.write " "
response.end
End If
StrLogText=StrLogText&Name&"----"&Pass&"----IP:"&ip&"("&request.servervariables("REMOTE_HOST")
StrLogText=StrLogText&")----"&date&" "&time

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
ff.writeline(chr(13)+chr(10)&StrLogText)
ff.close
set ff=nothing
set f=nothing

response.write " "
%>

希望达人指点
ASP 乱码

------解决方案--------------------
1 首先2个asp文件本身的编码要一致,可以用记事本打开,点击菜单文件-另存为-看打开窗口中的编码
2 参数要编码,试试看
Inet1.Execute "http://127.0.0.1/uuu.asp?Name=" & Escape(cc) & "&Pass=" & Escape(dd), "GET"

Inet1.Execute "http://127.0.0.1/uuu.asp?Name=" & Server.URLEncode(cc) & "&Pass=" & Server.URLEncode(dd), "GET"
------解决方案--------------------
网页是否是UTF-8的编码?如果是,改成GB2312.