> Web开发 > asp > 正文 ASP生成JSON的问题 2012-12-11            作者：wu_now    我要投稿

代码如下：
前台页面
$.getJSON(“AjaxService.asp?uid=” + escape(option.value) + “&r=” + Math.random(), function (date) {
if (date.success == 0) {
validateSettings.succeed.run(option);
namestate = true;
} else {
validateSettings.error.run(option, option.prompts.error.beUsed.replace(“{1}”, option.value));
namestate = false;
}
})

后台
<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”65001″%>
<!–#include file=”JSON_2.0.4.asp”–>
<!–#include file=”conn.asp”–>
<%
Response.Charset=”utf-8″
Dim data,uname
Dim rs,sql
uname=Request.QueryString(“uid”)
uname=VbsUnEscape(uname)
Set data = jsObject()
Set rs=server.createobject(“adodb.recordset”)
sql=”selse * from table where field =’”&uname&”‘”
if rs.eof and rs.bof then
data(“success”)= -1
else
data(“success”) = 0
end if
data.Flush

Function VbsUnEscape(str)
Dim x
x=InStr(str,”%”)
Do While x>0
VbsUnEscape=VbsUnEscape&Mid(str,1,x-1)
If LCase(Mid(str,x+1,1))=”u” Then
VbsUnEscape=VbsUnEscape&ChrW(CLng(“&H”&Mid(str,x+2,4)))
str=Mid(str,x+6)
Else
VbsUnEscape=VbsUnEscape&Chr(CLng(“&H”&Mid(str,x+1,2)))
str=Mid(str,x+3)
End If
x=InStr(str,”%”)
Loop
VbsUnEscape=VbsUnEscape&str
End Function
%>
利用FireFox调试时候，后台返回乱码，何解呀？

每个asp文件最顶端加上：
<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”65001″%>
<%Response.CodePage=65001%>
<%Response.Charset=”utf-8″%>
asp文件保存成utf-8格式，这样就不会有任何乱码问题了。

 

点击复制链接 与好友分享!回本站首页 上一篇：网上书店设计报告 下一篇：asp---乱码问题 相关文章

ASP.NET编程中的十大技巧

利用ASP实现对Web主机硬盘文件的读写

用ASP实现远程批量文件改名

在ASP中利用COM组件开发Web应用程序

用ASP编程控制在IIS建立Web站点

ASP升级程序

ASP六大对象介绍

在ASP中使用Oracle数据库技巧

Asp中调用VB编写的DLL

ASP中页面限权访问的几种方法

图文推荐