conn2.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 22 行

<!--#include file="setup.asp"--><%
  response.expires=0
  response.buffer=true
session.timeout=30
dim conn
dim char_str(20)
sub OpenDataConn()
	dim connstr
	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
	connstr = connstr & Server.MapPath("../../data/fyhousefree.mdb")
	'response.write connstr
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr
end sub
sub CloseDataConn()
	'conn.close
	set conn=Nothing
end sub
%>