conn.asp

来自「中介之家房产中介系统 V4.0企业共享版」· ASP 代码 · 共 19 行

<%
   dim conn   
   dim connstr
   const city="德阳"
   const tel="0838-2405181"

   on error resume next
   connstr="DBQ="+server.mappath("data/housedata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr 
%>
<%
dim typein
typein=request("type")
%>

<% 
'变更数据库名后需相应变更的文件：conn.asp、edit.asp、list.asp、dir.asp、dir_search.asp
 %>