conn1.asp

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

<!--#include file="setup.asp"--><%
  response.expires=0
  response.buffer=true
session.timeout=30
dim conn
dim char_str(20)
sub OpenDataConn()

	'dim connstr,conn
	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
%>