%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_connsj_STRING Recordset1_cmd.CommandText = "SELECT * FROM user" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_cmd Dim Recordset2_numRows Set Recordset2_cmd = Server.CreateObject ("ADODB.Command") Recordset2_cmd.ActiveConnection = MM_connsj_STRING Recordset2_cmd.CommandText = "SELECT * FROM ml" Recordset2_cmd.Prepared = true Set Recordset2 = Recordset2_cmd.Execute Recordset2_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>