conn.asp

新婚来贺名单管理系统(单用户版)新婚举办婚宴需要登记来宾名单以及来宾给新人包的红包的礼金数 使用流程： 1.先将宴请宾客名单全部录入 2.婚宴当日为来宾签到 签到的同时记录来贺礼金（就是记录每位

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
Dim SessionN
SessionN = Replace(Session("MM_Username"), "'", "''")

MM_conn_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & server.mappath("data\global.asa")
Dim Mrs
Dim Mrs_numRows

Set Mrs = Server.CreateObject("ADODB.Recordset")
Mrs.ActiveConnection = MM_conn_STRING
Mrs.Source = "SELECT SUM(M) FROM Guest WHERE ren = '" + Replace(SessionN, "'", "''") + "'"
Mrs.CursorType = 0
Mrs.CursorLocation = 2
Mrs.LockType = 1
Mrs.Open()

Mrs_numRows = 0
%>
<%
Dim allqdRS__MMColParam
allqdRS__MMColParam = "1"
If (Session("allQD") <> "") Then 
  allqdRS__MMColParam = Session("allQD")
End If
%>
<%
Dim allqdRS
Dim allqdRS_numRows

Set allqdRS = Server.CreateObject("ADODB.Recordset")
allqdRS.ActiveConnection = MM_conn_STRING
allqdRS.Source = "SELECT * FROM Guest WHERE Y = " + Replace(allqdRS__MMColParam, "'", "''") + ""
allqdRS.CursorType = 0
allqdRS.CursorLocation = 2
allqdRS.LockType = 1
allqdRS.Open()

allqdRS_numRows = 0
%>