conn.asp

来自「专为各大学、函授学校以及远程教育中心向学生们发布复习材料、实验素材等课件而设计的」· ASP 代码 · 共 21 行

<%@ 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
%>