在NETBOX中使用Asp AJAX Response.CharSet解决方法
刚调试程序的时候报错后然后找的解决方法，现在发出来大家借鉴。
-----------------------
错误提示：
运行时错误 800a01b6
对象不支持此属性或方法: Response.CharSet
---------------------------------------------------------------------
(百度一下，还有很多人遇到同样的错误)
Microsoft VBScript runtime error 800a01b6
Object doesnt support this property or method: Response.Charset
检查出错代码：
Response.CharSet = "GB2312"
这行代码主要是为了解决ajax用get获得数据时，中文乱码的问题。
删除这行代码后netbox正常运行，但是ajax返回的中文数据成了乱码。
说明 NetBox不支持 Response.CharSet 。
打开netbox的使用手册，依次展开：
对象参考 → Response 对象 → Response 方法
AddHeader 方法
AddHeader 方法用指定的值添加 HTML 标题。该方法常常向响应添加新的 HTTP 标题
语法
Response.AddHeader name, value
参数
name
新的标题变量的名称
value
存储在新的标题变量中的初始值
注释
为避免命名不明确，name 中不能包含任何下划线字符 (_)。ServerVariables 集合将标题中的下划线字符解释为反斜杠。例如，下面的脚本使服务器查找一个名为 MY-HEADER 的标题名。
<% Request.ServerVariables("HTTP_MY_HEADER") %>
示例
下面这个示例使用 AddHeader 方法要求客户端使用 BASIC 验证。
<% Response.Addheader "WWW-Authenticate", "BASIC" %>
注意 前面的脚本仅通知客户端浏览器使用哪个验证。若您在 Web 应用程序中使用该脚本，则一定要启用 Web 服务器的 BASIC 验证。
于是将
Response.CharSet = "GB2312"
替换成：
Response.Addheader "Content-Type","text/html; charset=gb2312"
NetBox环境下ajax用get获取数据,中文乱码的问题解决！
相关文档：
Web项目中总是会用到异步操作，现在的异步操作可以用各种各样的控件来实现，但实现原理还是一样的，本人更喜欢使用最原始的Ajax操作去实现异步处理，本文仅献给那些喜欢实现Ajax和项目中要用到Ajax的朋友。
Ajax实现原理就是客户端通过javascript操作调用� ......
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!-- #include file="../configinc/conndb.asp"-->
<!--#include file="../configi ......
XMLHttpRequest 对象是AJAX功能的核心，要开发AJAX程序必须从了解XMLHttpRequest 对象开始。
了解XMLHttpRequest 对象就先从创建XMLHttpRequest 对象开始，在不同的浏览器中创建XMLHttpRequest 对象使用不同的方法：
先看看IE创建XMLHttpRequest 对象的方法(方法1)：
var xmlhttp = new ActiveXObject(" ......
conndb.asp
<%
Session.CodePage=65001
response.Charset="utf-8"
%>
<%
'数据库连接文件
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("../date/#heihuhuhuajian.mdb")+";Jet OLEDB:Database Pass ......
原版
upload_5xsoft.inc 文件内容
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim Data_5xsoft
Class upload_5xsoft
dim objForm,objFile,Version
Public function Form(strForm)
strForm=lcase(strForm)
if not ......
