?? conn.asp
字號:
<%
function openconn(sessionname)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../kq/"&cstr(year(date()))&".mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set openconn=session(sessionname)
end function
function opennewdb(sessionname,yearvalue)
dim conn
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../kq/"&yearvalue&".mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
set session(sessionname)=conn
set opennewdb=session(sessionname)
end function
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -