최초등록

manager/content/03member/excel.asp

@@ -0,0 +1,66 @@
+<!--#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>