conn.asp

来自「vb 和 access 做的工资管理系统的毕业设计论文 共500kb」· ASP 代码 · 共 18 行

<%@LANGUAGE="VBSCRIPT"%>
<%
	option explicit
	dim startime
	dim conn
	dim connstr
	dim db
	startime=timer()
	db="db/gzglxt.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	conn.Open connstr
function CloseDatabase
Conn.close
	Set conn = Nothing
End Function
dim sql,rs
%>