conn.asp

发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~

<%
'<!--#include file="SqlIn.asp"-->
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB_set)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(DB_set)
conn.Open connstr
If Err Then
	Err.Clear
	Set conn = Nothing
	Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
	Response.End
End If
	
sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		conn.close
		set conn=nothing
	end if
end sub
%>