conn.asp

来自「DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流」· ASP 代码 · 共 12 行

<%  
    on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("#uavk.mdb")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
	dim rs
    set rs = server.createobject("adodb.recordset")
%>