conn.asp

来自「淘特网独自开发的一套访问统计系统」· ASP 代码 · 共 20 行

<!-- #INCLUDE FILE = "config.asp" -->
<%
on error resume next
const databaseType=1'0=Mssql	1=access
dim conn
set conn=server.CreateObject("adodb.connection") 
if(databaseType=1) then
	conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/totstat/tot_stat.mdb")
else
	conn.open "driver={sql server};server=127.0.0.1;database=stat;uid=stat;pwd=123456"
end if
if Err.Number <> 0 then
		Response.Write("<script>alert('[系统错误]\n\n数据库连接错误！');</script>")  
        Response.End
end if
sub connclose	
   conn.close
   set conn=nothing   
end sub
%>