<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->

<%

Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=member.xls"


a_num = request("a_num")
p_cate = request("p_cate")

If p_cate<>"" Then
	sql_where = " and b_cate="&p_cate
End If

R_Fields_no = "m_id, m_pwd, m_name, g_menuname"

sql = " select a.m_id, a.m_pwd, a.m_name, b.g_menuname as g_menuname, a.m_level " &_
	  "   from member a join member_group b on a.m_level=b.g_num "&_
	  "  ORDER BY a.m_level, a.m_id"
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
	vData = rs.getrows()
	vCnt = UBound(vData,2)
Else
	vCnt = -1
End If
rs.close : Set rs = nothing
Dbcon.close : Set Dbcon = Nothing
%>


<table border="1">
	<tr>
		<td>아이디</td>
		<td>비밀번호</td>
		<td>이름</td>
		<td>그룹</td>
	</tr>
<%

If vCnt>-1 Then 

	num = vCnt+1

	For i=0 To vCnt
		
		Call arr2Value(R_Fields_no, "vData", i)
%>

	<tr>
		<td><%=m_id%></td>
		<td><%=m_pwd%></td>
		<td><%=m_name%></td>
		<td><%=g_menuname%></td>
	</tr>
<%

		num = num -1
	next

End if
%>

</table>