📄 conn.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%
conn_type=1 '数据库连接方式,0=系统DSN,1=文件DSN(Jet4.0),2=文件DSN(Microsoft Access Driver),3=Microsoft SQL Server
db = "data/data.asp" '数据库路径
Set conn = Server.CreateObject("ADODB.Connection")
select case conn_type
case 0
connstr="DSN=kejian;" '请根据实际情况自行修改
case 1
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
case 2
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
case 3
connstr="Provider=SQLOLEDB;Server=127.0.0.1;Database=kejian;UID=sa;pwd=;" '请根据实际情况自行修改
case else
response.write "找不到数据库"
response.end
end select
conn.Open connstr
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -