📄 xuanke.asp
字号:
<%
Dim xuanke_conn
dim db
dim connstr
db = "database/xuanke.mdb" 'ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set xuanke_conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
xuanke_conn.Open connstr
'关闭数据库连接,在每页中调用此函数,将连接放入连接池
sub CloseConn()
xuanke_conn.Close()
Set xuanke_conn = Nothing
end sub
'替换单引号
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "'", "''")
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -