Microsoft VBScript 运行时错误 '800a01b6'

Microsoft VBScript 运行时错误 '800a01b6'

对象不支持此属性或方法: 'Session.codepage'
\wwwroot\nPost\config.asp, line 5

以下是代码

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
dim mdb,sessionvar
mdb="../mdb/qq270588799.mdb" '数据库存放地点(根目录的相对地址)
Session.codepage=936
sessionvar="123" '更改为任意字符
%>
<%
dim conn
dim connstr
dim startime
'startime=timer()
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb)
conn.Open connstr

sub CloseConn()
conn.close
set conn=nothing
end sub
function htmlencode2(str)
dim result
dim l
if isNULL(str) then
htmlencode2=""
exit function
end if
l=len(str)
result="

microsoft Microsoft MICROSOFT Microsoft是什么意思 Microsoft代理 microsoft update Microsoft Office Microsoft FrontPage microsoft安装 microsoft office