asp页面出现乱码
今天在用utf-8编码用在新的网站上，不想问题还真多，所以找了些文章，帖子，看了看，等下有用的就贴下面了。
今天，我开始把 CODEPAGE="936" 改成 CODEPAGE="65001"
把charset=gb2312改成 charset=utf-8
可是还是乱码，只要是脚本用的地方还是乱码，现在终于找到问题了，就是当脚本输出时候，要以utf-8编码输出。
就是要加一句<% Response.Charset = "utf-8" %>
①首先当然是页面本身用utf-8编码，在DW新建页时默认编码定为“Unicode(UTF-8)”
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
' ②CODEPAGE="65001" 告诉服务器页面使用UTF-8编码的
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
' ③charset=utf-8告诉浏览器页面使用UTF-8编码的
</head>
<body>
<% Response.Charset = "utf-8" %>
' ④服务器输出编码为utf-8
</body>
</html>
晕，事情还没有结束
刚开心，问题出来了，刷新后又变成乱码，或者浏览其他的gb2312的页面回来又乱码了。值得又去google了一下，呵呵，还是找到答案了
看看下面的文字，就知道了，所有在后来我加了这个，程序顶端
<%Session.CodePage=65001%>
<%@ codepage=936%>简体中文
<%@ codepage=950%>繁体中文
<%@ codepage=65001%>UTF-8
codepage指定了IIS按什么编码读取传递过来的串串（表单提交，地址栏传递等）。
出乱码的原因也就是网站要整合的时候模块编码不一样引起的。
不要转换任何模块网页的编码该utf-8的还是utf-8，该Gb22312的还是Gb2312
将GB2312模块的conn.asp文件中加入了以下这段代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
一切OK!
同样在在Utf-8模块的包文件（如conn.asp，但是要注意conn.asp必须是在第一行调用）最前面加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
转自：http://pcajax.javaeye.com/blog/569027
相关文档：
使用VB将ASP代码封装到DLL文件完整实例
http://blog.csdn.net/cncco/archive/2007/10/20/1834865.aspx
用VB封装ASP，建立SayHello测试程序
1、打开VB6，新建ActiveX DLL
2、在工程引用中加入Microsoft Active Server Pages Object Library选择
3、填加代码如下：
'Code Start
'声明部分
Private MyScriptingContext ......
什么是 ADO 存取数据库时的分页显示？如果你使用过目前众多网站上的电子公告板程序的话，那你应该会知道电子公告板程序为了提高页面的读取速度，一般不会将所有的帖子全部在一页中罗列出来，而是将其分成多页显示，每页显示一定数目的帖子数，譬如 20 条。这就是数据库查询的分页显示，如果你还不明白，去看看 yahoo 等搜索 ......
函数 语法 功能
Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。
Trim Trim(string) 将字符串前后的空格去掉
Ltrim Ltrim(string) 将字符串前面的空格去掉
Rtrim Rtrim(string) 将字符串后面的空格去掉
Mid Mid(string,start,length) 从string字符串的start字符开始取得length长� ......
本文的创造性在于cookies_to_array(c) 直接简单快捷转化字符串为数组的方法
另外 本文操作的数组 不是 asp普通的多维数组 而是锯齿型的
这种数组 更易操作 更易阅读 行列清晰 很像数据库中的表
可以类比为 datatable
class myarray
'必须为锯齿数组array(array(1,2,3))
function array_to_cookies(a)
......
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
