<%@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
%> |