<%
dim dbtype,conn,dbpath,ConnString
dbtype=1  '数据库类型：Access——1，SQL Server——2
select case dbtype
	case 1
		dbpath="/db/jizhang.mdb"
		ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
	case 2
		ConnString="Provider=SQLOLEDB;Data Source=DESKTOP-CLJ4JJJ;Initial Catalog=jizhangSQL;User ID=sa;Password=_H6n6afA6wAFrnD478955yD;"
end select
set conn=server.createobject("adodb.connection")
conn.open ConnString
%>