?? conn.asp
字號:
<%
dim conn
dim connstr
'on error resume next
call conn_init()
sub conn_init()
'on error resume next
connstr = "DBQ=" + server.mappath("data.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "數據庫連接出錯!"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "數據庫連接出錯!"
Response.End
end if
end if
end sub
sub endConnection()
conn.close
set conn=nothing
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -