errconn.asp

支持手机WAP管理 用户名:admin 密码为:admin

<%@language=vbscript%>
<%option explicit%>
<%
Dim conn,mycnstr,rs,sql,issql
Session.Timeout=20
set conn=Server.CreateObject("ADODB.Connection")
issql=0
if issql=1 then
'=========SQL数据库连接=============
dim comm,SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
	SqlDatabaseName = "err500"
	SqlPassword = "123456"
	SqlUsername = "zhinet" '数据库用户名
	SqlLocalName = "(local)" '数据库地址，可以填ip地址，不懂再问我..
mycnstr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	'mycnstr1="Driver={Microsoft Access Driver (*.mdb)};DBQ="+Server.MapPath("./forum/db1ahsunbbs2003.mdb")

set comm=server.createobject("adodb.command")
comm.activeconnection=mycnstr 'myconstr是数据库连接字串
elseif issql=0 then
'==========ac数据库连接=========
'更改数据库名字
dim db
db="data.mdb"
mycnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
end if
conn.Open mycnstr

sub closeconn()
   conn.close
   set conn=nothing
end sub
%>