connection.inc

一个VB的p2p聊天系统

<%
Response.buffer=false
dim Conn,strSql,DbPath
set Conn=server.CreateObject("ADODB.CONNECTION")
DbPath = SERVER.MapPath("Database\HrManager.mdb")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
%>