send_sms.asp

网络办公系统源码

<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="Phone_Fun.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim SitePhoneConfig
set prs=conn.execute("select SitePhoneConfig from oa_company where id="&session("companyid"))
	if not prs.eof then
		SitePhoneConfig=cint(prs(0))
	end if
prs.close
set prs=nothing


if  ChkAdmin("oa_sendsms")=False then
   call message("您没有管理发送手机段信的权限","back")
   call endexit()
end if

 if SitePhoneConfig=0 then
   call message("手机短信已经关闭","back")
   call endexit()
 end if

sendto=replace(trim(request("mobile"))," ","")
Msg=trim(request("Msg"))
act=request.QueryString("act")

if act="send" then
	Er=Send_Phone(sendto,Msg)
	if Er=true then
  		call message("手机短信发送成功。","?")
	    call endexit()
	else
		call message("手机短信出错，请重试。","back")
		call endexit()
	end if	
end if

%>
<link href="../img/Style.css" type=text/css rel=stylesheet>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0" class="TableBorder">
	<form name="form1" method="POST" action="send_sms.asp?act=send" onSubmit="return CheckForm();">
	<tr>
		<th colspan="2" align="center"> <span class="TableRow1">发送手机短信</span></th>
	</tr>
	
	<tr>
	<td colspan="2" class="TableRow1"> <fieldset style="cursor: default">
	<legend>&nbsp;发送手机短信</legend>
	<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2">
	
		<tr>
			<td width="20%" align="right" class="TableRow1"><div class="divbody"> 手机号码：</div></td>
			<td class="TableRow1" width="80%">
			  <textarea name="mobile" cols="50" rows="5" id="mobile"><%=request("tel")%></textarea>
		      <span class="tablebody1">
		      <input type="button" class="Button" value="选择人员" border="0" onclick="javascript:void(openurl('selectpeople.asp'))" >
			</span></td>
		</tr>
	
		<tr>
		  <td align="right" class="TableRow1">&nbsp;</td>
		  <td class="TableRow1">手机/小灵通号码：[号码之间用“,”隔开,中间不要有空格]</td>
		  </tr>
		<tr>
		  <td align="right" class="TableRow1"> 信息： </td>
		  <td class="TableRow1"><textarea name="Msg" cols="50" rows="8"></textarea></td>
		  </tr>
		<tr>
		  <td width="20%" align="right" class="TableRow1"><div class="divbody"></div></td>
		  <td width="80%" class="TableRow1"> 最多可输入手机60/小灵通58个中文字符或手机120/小灵通116个纯英文字符 </td>
	  </tr>
	</table>
	</fieldset>	</td>
	</tr>
	<tr>
	<td width="20%" align="center" class="TableRow2">&nbsp;</td>
	<td width="80%" align="left" class="TableRow2"><input type="submit" value="发送信息" name="B1" class=Button>
&nbsp;&nbsp;
<input type="reset" value=" 重置 " name="B12" class="Button" /></td>
	</tr>
	</form>
</table>
<%
Call closeconn()
%>
<script language="javascript">
function CheckForm()
{
    var objFrm=document.form1;
	if(objFrm.mobile.value=="")
	{
		alert("请按要求输入手机号码！");
		objFrm.mobile.focus();
		return false;
	}
	if(objFrm.Msg.value=="")
	{
		alert("请输入手机内容！");
		objFrm.Msg.focus();
		return false;
	}
	return true;

}
</script>

<script   language="javascript">   
  function   openurl(url)   
  {   
      window.open(url,"_blank","left=200,top=200,width=400,height=200,resizable=yes");   
  }   
  </script>