解决asp utf 8 access中文乱码一例
文件头用了
<%@Language="VBScript" CodePage="65001"%>
文件本身已经是Utf-8的编码了
提交过到Access库中怎么都是 “产品介绍 ”这样的编码
一步步分析，不存库直接输出，也是这样的编码。想来跟Access无关了。
相于迷惑，后来重新建一个表单元，提交，输出结果，编码正常
对比之下发现，原来的提交的表单数据都用了Server.HTMLEncode（）这个函数处理过，去掉就不会被编码了。
找到原因，在文件头用<%@Language="VBScript" CodePage="65001"%>定义字符集的时候，Server.HTMLEncode（）会将中文转成对应的10进制代码。
解决方法：不用Server.HTMLEncode（），自己定义一个：
'' 替换Server.HTMLEncode，避免对utf-8进行编码
'' ＆要换成半角的&
function HTMLEncode(Str)
Str = Replace(Str, """", "＆quot;", 1, -1, 1)
Str = Replace(Str,"<","＆lt;", 1, -1, 1)
Str = Replace(Str,">","＆gt;", 1, -1, 1)
HTMLEncode = Str
end function
相关文档：
<%
'1、创建EXCEL对像
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false '不显示警告
objExcelApp.Application.Visible = false '不显示界面
'2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = ob ......
在SQL Server 内查询Access 数据, 并将数据保存到SQL Server
-- OPENROWSET ACCESS 不能有密码, 有密码用OPENDATASOURCE
SELECT *
from OPENROWSET ('Microsoft.Jet.OLEDB.4.0',
'C:\temp\Test.mdb'; /*Access 数据库路径*/
'admin'; /*Access工作组密码*/
'',/*Access工作组密码*/
[AccessTableName])
1. 查询Acce ......
Asp代码：
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.LoadImgMarkPic server.mappath("blend.bmp")
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo
if strError<>"" then
......
<%
'建立文件夹函数
Function CreateFolder(strFolder)'参数为相对路径
'首选判断要建立的文件夹是否已经存在
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'检查文件夹是否存在
If not objFSO.FolderExists(strTestF ......
