conn.asp

东滕网站源码

 <% 
'下载使用本留言系统时请将数据库改名。
'不要忘了。改名后请把下面的数据源路径修改一下。
'
'
 db="kenatlybdatabase/kenandatabase.mdb"                   
 connstr="DBQ="+server.MapPath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};Pwd=kenannet"
 set conn=server.CreateObject("ADODB.Connection")
 conn.open connstr                                         
Sub rsclose()
    rs.close()
	set rs=nothing
End Sub
Sub connclose()
    conn.close()
	set conn=nothing
End Sub
%>