conn.asp

销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim connstr,db
db = "hy.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

sub connopen()
If IsObject(oConn) = True Then Exit Sub
'dim connstr,db
'db = "hy.mdb"
Set oconn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
oconn.Open connstr
end sub

function rsoff
    rs.close
	set rs=nothing
end function
	
function conoff
	conn.close
	set conn=nothing
end function
%>