<% 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 %> <% If vCnt>-1 Then num = vCnt+1 For i=0 To vCnt Call arr2Value(R_Fields_no, "vData", i) %> <% num = num -1 next End if %>

아이디	비밀번호	이름	그룹
<%=m_id%>	<%=m_pwd%>	<%=m_name%>	<%=g_menuname%>