sp1000je/sms_host20170829
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

최초등록

Browse Source
This commit is contained in:
sp1000je
2026-02-23 10:01:00 +09:00
commit 7bc9767bf4
3120 changed files with 198447 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
content/01message/buseo_list.asp
+93
View File
@@ -0,0 +1,93 @@
<!--#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>