?? conn.asp
字號(hào):
<%
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
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -