
aps连不上数据库|asp|asp+access 10
<%'设置环境response.buffer=trueserver.scripttimeout=300session.timeout=60'遇到错误向下执行onerror...
<%
'设置环境
response.buffer=true
server.scripttimeout=300
session.timeout=60
'遇到错误向下执行
on error resume next
'数据库路径
sjklj=server.mappath("data_base/###WDDLHYCNv2.0~das5a###.asp")
dim conn
set conn=server.createobject("adodb.connection")
'conn.open "dbq="&sjklj&";driver={microsoft access driver (*.mdb)}"
'----------------------------------------------------------------------
'OLEDB连接
conn.open "provider=microsoft.jet.oledb.4.0;data source="&sjklj
'数据库维护提示
if conn.errors.count<>0 then
conn.errors.clear
response.write "网站正在维护中,请稍稍休息一会儿,马上就好!^_^"
response.end
end if
'打开系统配置
set rs_xtpz=server.createobject("adodb.recordset")
lr_xtpz="select * from xtpz"
rs_xtpz.open lr_xtpz,conn,1,2,1
'系统自带记数器记数
if session("jsq_fsx")="" then
rs_xtpz("jss")=rs_xtpz("jss")+1
rs_xtpz.update
session("jsq_fsx")="防刷新"
end if
%> 展开
'设置环境
response.buffer=true
server.scripttimeout=300
session.timeout=60
'遇到错误向下执行
on error resume next
'数据库路径
sjklj=server.mappath("data_base/###WDDLHYCNv2.0~das5a###.asp")
dim conn
set conn=server.createobject("adodb.connection")
'conn.open "dbq="&sjklj&";driver={microsoft access driver (*.mdb)}"
'----------------------------------------------------------------------
'OLEDB连接
conn.open "provider=microsoft.jet.oledb.4.0;data source="&sjklj
'数据库维护提示
if conn.errors.count<>0 then
conn.errors.clear
response.write "网站正在维护中,请稍稍休息一会儿,马上就好!^_^"
response.end
end if
'打开系统配置
set rs_xtpz=server.createobject("adodb.recordset")
lr_xtpz="select * from xtpz"
rs_xtpz.open lr_xtpz,conn,1,2,1
'系统自带记数器记数
if session("jsq_fsx")="" then
rs_xtpz("jss")=rs_xtpz("jss")+1
rs_xtpz.update
session("jsq_fsx")="防刷新"
end if
%> 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询