sp1000je
66 lines
1.1 KiB
Plaintext
66 lines
1.1 KiB
Plaintext
<!--#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> |