%@LANGUAGE="VBSCRIPT"%> <% Dim rs1__MMColParam rs1__MMColParam = "1" If (Session("MM_password") <> "") Then rs1__MMColParam = Session("MM_password") End If %> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_master_STRING rs1.Source = "SELECT * FROM dbo.Master WHERE Pwd = '" + Replace(rs1__MMColParam, "'", "''") + "'" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 session("i_Master")=rs1.Fields(0) %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||