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">
<%

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

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

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

%>
<link href="../oaadmin/img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="0" class="tabel1">
  <form name="form1" method="POST" action="send_sms.asp?act=send" onSubmit="return CheckForm();">
    <tr>
      <th height="25" colspan="2" align="center" bgcolor="#CC0000"> <span class="TableRow1 style1">发送手机短信</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 align="right" class="TableRow1">发送设置：</td>
            <td class="TableRow1"><input name="sendflag" type="radio" value="1">
            设置1
              <input name="sendflag" type="radio" value="2" checked>
            设置2</td>
          </tr>
          <tr>
            <td width="20%" align="right" class="TableRow1"> 手机号码：</td>
            <td class="TableRow1" width="80%">
              <input name="mobile" type="text" class="tabel1" id="mobile" value="<%=trim(request("mobile"))%>" size="50">
              <span class="tablebody1"> </span></td>
          </tr>
          <tr>
            <td align="right" class="TableRow1">&nbsp;</td>
            <td class="TableRow1">&nbsp;</td>
          </tr>
          <tr>
            <td align="right" class="TableRow1"> 信息： </td>
            <td class="TableRow1"><textarea name="Msg" cols="50" rows="8" class="tabel1">您好，您的空间已快到期，为了不影响您的正常使用，请及时联系红金羚软件客服,13915064582</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=tabel1>
&nbsp;&nbsp;
        <input type="reset" value=" 重置 " name="B12" class="tabel1" /></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>