<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim rsAdmin
Dim rsAdmin_numRows
Set rsAdmin = Server.CreateObject("ADODB.Recordset")
rsAdmin.ActiveConnection = MM_gz_data_STRING
rsAdmin.Source = "SELECT * FROM admin ORDER BY adname ASC"
rsAdmin.CursorType = 0
rsAdmin.CursorLocation = 2
rsAdmin.LockType = 1
rsAdmin.Open()
rsAdmin_numRows = 0
%>
ÎÞ±êÌâÎĵµ
<%
rsAdmin.Close()
Set rsAdmin = Nothing
%>