sp1000je
93 lines
3.5 KiB
Plaintext
93 lines
3.5 KiB
Plaintext
<!--#include virtual = "/common/lib/dbcon.asp" -->
|
|
<!--#include virtual = "/common/lib/func.asp" -->
|
|
<%
|
|
'memgr_logincookie "itech", "qhdkswjqth"
|
|
|
|
Dim bdm_idx, table
|
|
bdm_idx = Trim( Request.QueryString("bdm_idx") )
|
|
table = Trim( Request.QueryString("table") )
|
|
|
|
If bdm_idx <> "" And table <> "" Then
|
|
Select Case table
|
|
Case "member"
|
|
sql = "select M_name, (m_mobile1+'-'+m_mobile2+'-'+m_mobile3) as m_mobile from " & table & " where bdm_idx = " & bdm_idx
|
|
Case "bd_address_page"
|
|
|
|
If bdm_idx = "all" Then
|
|
sql = "select adr_name, adr_mobile1+adr_mobile2+adr_mobile3 from " & table & " where adr_m_id = '" & session("ss_m_id") & "' and adr_mobile1 <> '' and adr_mobile2 <> '' and adr_mobile3 <> '' order by adr_name"
|
|
ElseIf bdm_idx = "0" Then
|
|
sql = "select adr_name, adr_mobile1+adr_mobile2+adr_mobile3 from " & table & " where adr_m_id = '" & session("ss_m_id") & "' and (bdm_idx = 0 or bdm_idx = '') and adr_mobile1 <> '' and adr_mobile2 <> '' and adr_mobile3 <> '' order by adr_name"
|
|
else
|
|
sql = "select adr_name, adr_mobile1+adr_mobile2+adr_mobile3 from " & table & " where bdm_idx = " & bdm_idx & " and adr_m_id = '" & session("ss_m_id") & "' and adr_mobile1 <> '' and adr_mobile2 <> '' and adr_mobile3 <> '' order by adr_name"
|
|
End if
|
|
'response.write sql
|
|
End select
|
|
'response.write sql
|
|
Set rs = Dbcon.Execute( sql )
|
|
|
|
If rs.bof Or rs.eof Then
|
|
mem_list = Null
|
|
Else
|
|
mem_list = rs.getrows
|
|
End If
|
|
Set rs = nothing
|
|
Else
|
|
mem_list = null
|
|
End If
|
|
|
|
'---------------개인주소록 그룹 리스트-------------------------
|
|
sql = "select bdm_idx, bdm_menuname from bd_address where bdm_id = '"&session("ss_m_id")&"' and bdm_ref = 0 order by bdm_code"
|
|
Set juso_rs = DbCon.Execute(sql)
|
|
If juso_rs.bof Or juso_rs.eof Then
|
|
juso_data1 = Null
|
|
Else
|
|
juso_data1 = juso_rs.getrows
|
|
End If
|
|
Set juso_rs = Nothing
|
|
'-------------------개인주소록 리스트 끝-----------------------
|
|
%>
|
|
<html>
|
|
<head>
|
|
<title><%=site_name%></title>
|
|
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
|
|
<style type="text/css">
|
|
<!--
|
|
body {margin-left: 0px; margin-top: 0px;}
|
|
.style1 {font-family: "돋움"; font-size: 11px;color: #FFFFFF;}
|
|
.style4 { font-family: "돋움"; font-size: 11px; color: #FFFFFF}
|
|
.style5 {font-family: "돋움"; font-size: 11px; color: #ffe50c;font-weight: bold;}
|
|
.style7 {font-family: "돋움"; font-size: 11px; color: #2865ae;font-weight: bold;}
|
|
.style9 {font-family: "돋움"; font-size: 11px; color: #666666; }
|
|
.style11 {font-family: "돋움"; font-size: 11px; color: #4888a0; font-weight: bold;}
|
|
.style12 {font-family: "돋움"; font-size: 11px; color: #333333; font-weight: bold;}
|
|
.style13 {font-family: "돋움"; font-size: 12px; color: #FFFFFF;}
|
|
td {margin:0; padding:0; border:0;font-size:11px;color: #333333}
|
|
-->
|
|
</style>
|
|
</head>
|
|
|
|
<body>
|
|
<form id="mem_list" name="mem_list" method="post" action="memAdd.asp">
|
|
<table width="100%" cellspacing="0" cellpadding="0">
|
|
<%
|
|
If Not(IsNull(mem_list)) Then
|
|
For i = 0 To UBound(mem_list, 2)
|
|
mem_list(1,i) = Replace(mem_list(1,i),"-","")
|
|
mem_list(1,i) = Replace(mem_list(1,i)," ","")
|
|
%>
|
|
<tr>
|
|
<td><input id="chk_<%=i%>" type="checkbox" name="check" value="M;<%=mem_list(0,i)%>;<%=mem_list(1,i)%>"></td>
|
|
<td><label for="chk_<%=i%>"><%=mem_list(0,i)%></label></td>
|
|
<td><label for="chk_<%=i%>"><%=mem_list(1,i)%></label></td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan="3" height="1" bgcolor="EFEFEF"><img width="0" height="1"></td>
|
|
</tr>
|
|
<%
|
|
next
|
|
End if
|
|
%>
|
|
</table>
|
|
</form>
|
|
</body>
|
|
</html> |