📄 conn.asp
字号:
<%
'option explicit
dim conn
dim connstr
dim db
'更改数据库名字
db="datacnmai_xp/%297456123894cnmaidatazhaobaoshengcnmaicom.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
Rem 断开数据库连接
function Closedb
'Conn.close
Set conn = Nothing
End Function
Rem 过滤SQL非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -