conn.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<%
scadb = dbdns&"clientdb/RClient.mdb"	'dbdns为数据库的相对路径
Set conn = Server.CreateObject("ADODB.Connection")
connstr2="provider=microsoft.jet.oledb.4.0;data source =" & server.mappath(""&scadb&"")
conn.Open connstr2
  function rs_close()
  rs.close:    set rs=nothing
  end function
'====================================
function conn_close()
  conn.close:   set conn=nothing
end function

Function OrderCount(i)
OrderCount=conn.Execute("Select count(*) from ticket_M where [网上订单状态]='"&i&"' and  订单编号 in (select 订单编号 from  ticket_d)")(0)
end Function
%>