<%@language="vbscript" codepage="936"%>
<%response.buffer=true%>
<%
issqldatabase=0 '定义数据库类别，0为access数据库，1为sql数据库
if issqldatabase=0 then
''''''''''''''''''''''''' access数据库 ''''''''''''''''''''
datapath ="include/" '数据库目录的相对路径
datafile ="data.mdb" '数据库的文件名
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(datapath&datafile)&""
sqlnowstring="now()"
sqlchar="'"
'''''''''''''''''''''''''''''''''
else
'''''''''''''''' sql数据库 ''''''''''''''''''''
sqllocalname ="(local)" '连接ip [ 本地用 (local) 外地用ip ]
sqlusername ="sa" '用户名
sqlpassword ="1" '用户密码
sqldatabasename="mydbname" '数据库名
connstr = "provider=sqloledb;user id=" & sqlusername & "; password=" & sqlpassword & "; initial catalog = " & sqldatabasename & "; data source=" & sqllocalname & ";"
sqlnowstring="getdate()"
'''''''''''''''''''''''''''''''''''''
end if
on error resume next
set conn=server.createobject("adodb.connection")
conn.open connstr
if err then
err.clear
set conn = nothing
response.write "数据库连接出错，请检查连接字串。"
response.end
end if
on error goto 0
%> |