<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<%if Not (getconfig("SK_Office")="0" AND (Session("Manager")="1" OR (JudgePopedomTF(Session("UserName"),"SK100000000") AND JudgePopedomTF(Session("UserName"),"SK100000705")))) then Call ReturnError()%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>发送短信</title>
<META http-equiv=Page-Enter content=SKCRM>
<META http-equiv=Page-Exit content=SKCRM>
<META content="MSHTML 6.00.3790.2858" name=GENERATOR>
<LINK href="../images/style.css" type=text/css rel=stylesheet>
<script language="javascript">
window.onbeforeunload = function()
{
if (document.body.offsetWidth-50 < event.clientX && event.clientY<0)
{
return "是否关闭当前窗口？关闭本窗口将放弃发送短信！";
}
}

function Form1_Validator(theForm)
{ 
if (theForm.phone.value == "")
{
alert("对不起,手机号码不能为空!");
theForm.phone.focus();
return (false);
}

if (theForm.message.value == "")
{
alert("对不起,短信内容不能为空!");
theForm.message.focus();
return (false);
}

return (true);
}
function showUploadDialog(s_Type, s_Link, s_Thumbnail){
var arr = showModalDialog("<%=getconfig("SK_EditorPath")%>/dialog/i_upload.htm?style=mini&type="+s_Type+"&link="+s_Link+"&thumbnail="+s_Thumbnail, window, "dialogWidth:0px;dialogHeight:0px;help:no;scroll:no;status:no");
}
</script>
<style type="text/css">
<!--
body {
margin: 5px 0px 5px 0px;
overflow-x: hidden;
}
ul,li{ margin:0; padding:0; list-style:none}
ul{ padding:1px; border:0px;}
li { border-bottom:1px dashed #eee; padding:4px}
-->
</style>
</head>
<body>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<TBODY>
<tr>
<td class="SK_Td_Top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12" height="25"><img src="../images/tab_03.gif" width="12" height="25" /></td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="46%" valign="middle">发送短信</td>
<td width="54%"></td>
</tr>
</table></td>
<td width="16"><img src="../images/tab_07.gif" width="16" height="25" /></td>
</tr>
</table></td>
</tr>
<tr>
<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="8" background="../images/tab_12.gif"></td>
<td>
<form id="form1" name="thisForm" <%if Getconfig("SK_DxMethod")=0 then%>method="post"<%else%>method="get"<%end if%> action="<%=Getconfig("SK_DxAddress")%>" onSubmit="return Form1_Validator(this)" accept-charset="utf-8">
<input type="hidden" name="cdkey" value="<%=Getconfig("SK_DxKey")%>">
<input type="hidden" name="password" value="<%=Getconfig("SK_DxPass")%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="b5d6e6">
<tr>
  <td width="13%" class="SK_Text2">手机号码</td>
  <td width="87%" colspan="5" class="SK_Text1">
<%
Dim str
if F("Action")="QF" then
set RsClient=server.createobject("adodb.recordset")

if F("id")<>"" then
SqlClient="select * from SK_Linkman where LinkmanID in("&F("id")&")"
else
SqlClient="select * from SK_Linkman"
end if

RsClient.open SqlClient,conn,1,1
do while not RsClient.eof
if RsClient("SK_Mobile")<>"" then
str = str &RsClient("SK_Mobile")&","
end if
RsClient.movenext
loop
'循环出来后减去最后那个逗号
str = mid(str,1,len(str) -1 )
'Response.Write(""&str&"")
RsClient.close
set RsClient=Nothing
%>
<textarea name="phone" cols="50" rows="6"><%=""&str&""%></textarea>
<%else%>
<textarea name="phone" cols="50" rows="6"></textarea> 
<%end if%>
<font color=red>*发送多人，手机间用逗号隔开(注意要在半角下面的符号)。</font></td>
</tr>
<tr>
  <td class="SK_Text2">短信内容</td>
  <td colspan="5" class="SK_Text1"><textarea name="message" cols="50" rows="6"></textarea></td>
</tr>

<tr>
<td colspan="6" class="SK_Text">
<input type="hidden" name="addserial" value="<%=Getconfig("SK_Dxaddserial")%>">
<INPUT class="button1" type="submit" value=" 确定 "> 
<input type="button" value=" 返回 " onClick="history.go(-1);" class="button1">
</td>
</tr>
</table>
</form>
</td>
<td width="8" background="../images/tab_15.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="SK_Td_Foot">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" height="20"><img src="../images/tab_18.gif" width="12" height="20" /></td>
<td width="98%" class="SK_Td_Page"></td>
<td width="1%"><img src="../images/tab_20.gif" width="16" height="20" /></td>
</tr>
</table>

</td>
</tr>
</TBODY>
</table>
</body>
<%
Call CloseDB()
%>
</html>