admin_smspost.asp

来自「江西旅行网整站源码下载希望对大家有用经过测试安全可用」· ASP 代码 · 共 352 行 · 第 1/2 页
ASP
352 行
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.buffer = True
Const PurviewLevel = 0
Const PurviewLevel_Channel = 0
Const PurviewLevel_Others = ""
%>
<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Function.asp"-->
<!--#include file="../Inc/MD5_Code.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<%
Dim SendTo
SendTo=Trim(Request("SendTo"))
If AdminPurview = 1 Then
    PurviewPassed = True
Else
    Select Case Trim(Request("SendTo"))
    Case "Member"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "SendSMSToMember")
    Case "Contacter"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "SendSMSToContacter")
    Case "Consignee"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "SendSMSToConsignee")
    Case "Other"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "SendSMSToOther")
    End Select
End If
If PurviewPassed = False Then
    Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>对不起，你没有此项操作的权限。</font></p>"
    Response.End
End If

Dim mSendNum     '接收短信的手机号
Dim mContent     '短信内容
Dim mSendTiming  '是否定时发送，0为否（默认），1为定时
Dim mSendTime    '定时发送时间
Dim MD5String   'MD5校验字符。MD5字符是由上述几个字段加上用户密码，然后用MD5函数加密得到的字符串。字段顺序如下：
                 'SMSUserName & SMSKey & mSendNum & mContent & mSendTiming & mSendTime
Dim RecieverCount
RecieverCount=0
mContent=Trim(Request("Content"))
mSendTiming=PE_Clng(Trim(Request("SendTiming")))
Select Case SendTo
Case "SendToMember"
    mSendNum=GetReciever_Member()
Case "SendToContacter"
    mSendNum=GetReciever_Contacter()
Case "SendToConsignee"
    mSendNum=GetReciever_Consignee()
Case "SendToOther"
    mSendNum=Trim(Request("Receiver"))
    Dim arrReceiver
    arrReceiver=split(mSendNum,vbcrlf)
    RecieverCount=ubound(arrReceiver)+1
End Select
if mSendNum="" then
    FoundErr=True
    ErrMsg=ErrMsg & "<li>找不到满足条件的手机号码</li>"
End If
mSendTime=Trim(Request("SendDate")) & " " & Trim(Request("SendTime_Hour")) & ":" & Trim(Request("SendTime_Minute")) & ":00"

If mContent="" then
    FoundErr=True
    ErrMsg=ErrMsg & "<li>请输入短信内容</li>"
End If
if mSendTiming=1 and IsDate(mSendTime)=False then
    FoundErr=True
    ErrMsg=ErrMsg & "<li>定时发送时间的格式不对！</li>"
End If

if FoundErr=True then
    Response.write ErrMsg
    Response.End
end if

Dim SMSUserName,SMSKey
Dim rsConfig
Set rsConfig = Conn.Execute("select top 1 * from PE_Config")
If not(rsConfig.BOF And rsConfig.EOF) Then
    SMSUserName = rsConfig("SMSUserName")
    SMSKey = rsConfig("SMSKey")
End If
rsConfig.Close
Set rsConfig = Nothing

dim PE_MD5
set PE_MD5 = new Md5_Class
md5string = UCase(Trim(PE_MD5.MD5(SMSUserName & SMSKey & mSendNum & mContent & mSendTiming & mSendTime)))
set PE_MD5 = nothing

Dim MessageCount
MessageCount=((len(mContent) \ 70)+1) * RecieverCount
%>
<html>
<head>
<Title>短信预览</Title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312' />
<link href='Admin_Style.css' rel='stylesheet' type='text/css'>
</head>
<body>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
  <tr class='topbg'> 
    <td height='22' colspan='10'><table width='100%'><tr class='topbg'><td align='center'><b>发 送 手 机 短 信</b></td><td width='60' align='right'><a href='http://go.powereasy.net/go.aspx?UrlID=10047' target='_blank'><img src='images/help.gif' border='0'></a></td></tr></table></td>
  </tr>
  <tr class='tdbg'>
    <td width='70' height='30'><strong>管理导航：</strong></td>
    <td><a href='Admin_SMS.asp?SendTo=Member'>给会员发送短信</a>&nbsp;|&nbsp;    <a href='Admin_SMS.asp?SendTo=Contacter'>给联系人发送短信</a>&nbsp;|&nbsp;    <a href='Admin_SMS.asp?SendTo=Consignee'>给订单中的收货人发送短信</a>&nbsp;|&nbsp;    <a href='Admin_SMS.asp?SendTo=Other'>给其他人发送短信</a>    </td>
  </tr>
</table>
<form name='message' method='post' action='http://sms.powereasy.net/MessageGate/MessageGate.aspx'>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='title'><td colspan='2' align='center'>预 览 短 信</td></tr>
<tr class='tdbg' valign='top'>
<td width='300'>下面是根据您指定的条件查找到的接收人：<br><textarea name="SendNum" rows='20' cols='40' readonly><%= mSendNum %></textarea></td>
<td><b>短信内容：</b><br><textarea name="Content" rows='5' cols='60' readonly><%= mContent %></textarea><br><br><br><br><br><br><b>短信统计：</b><br>需要向 <%=RecieverCount%> 个号码发送 <%=MessageCount%> 条短信<br><br><b>说明：</b><br>因为每条短信不能超过70个字，所以短信数可能会大于号码数。<br>因为短信内容中的变量替换等原因，可能会导致实际发送的短信数会超过这里计算的短信数，最终结果以动易短信通平台上的实际发送数目为准。</td></tr>
<tr class='tdbg'><td colspan='2' height='50' align='center'><input type='submit' name='submit' value='提交给短信服务器'>
<input type="hidden" name="UserName" value="<%= SMSUserName %>" />
<input type="hidden" name="SendTiming" value="<%= mSendTiming %>" />
<input type="hidden" name="SendTime" value="<%= mSendTime %>" />
<input type="hidden" name="MD5String" value="<%= MD5String %>" />
<input type="hidden" name="Reserve" value="管理员ID：<%= AdminID %>" />
</td></tr></table>
</form>
</body>
</html>
<%

Private Function GetReciever_Member()
    Dim InceptType,GroupID,inceptUser
    Dim sqlUser,strReciever,strMobile
    strReciever=""
    sqlUser="select U.UserName,C.TrueName,C.Mobile,C.PHS from PE_User U left join PE_Contacter C on U.ContacterID=C.ContacterID where (C.Mobile<>'' or C.PHS<>'')"
    InceptType = PE_CLng(Trim(Request("InceptType")))
    Select Case InceptType
    Case 0  '所有会员
        
    Case 1  '指定会员组
        GroupID = ReplaceBadChar(Trim(Request("GroupID")))
        If GroupID <> 0 Then
            sqlUser = sqlUser & " and U.GroupID in (" & GroupID & ")"
        End If
    Case 2  '指定用户名
        inceptUser = Replace(ReplaceBadChar(Request("InceptUser")), ",", "','")
        sqlUser = sqlUser & " and U.UserName in ('" & inceptUser & "')"
    End Select
    sqlUser=sqlUser & " order by U.UserID"
    Dim rsUser,strMoblie
    set rsUser=conn.execute(sqlUser)
    if not(rsUser.bof and rsUser.eof) then
        strMobile=rsUser("Mobile")
        if strMobile="" then strMobile=rsUser("PHS")
        strReciever=strMobile & "," & rsUser("UserName")
        if rsUser("TrueName")<>"" then
            strReciever=strReciever & "," & rsUser("TrueName")
        end if
        RecieverCount=1
        rsUser.movenext
        do while not rsUser.eof
            strMobile=rsUser("Mobile")
            if strMobile="" then strMobile=rsUser("PHS")
            strReciever=strReciever & vbcrlf & strMobile & "," & rsUser("UserName")
            if rsUser("TrueName")<>"" then
                strReciever=strReciever & "," & rsUser("TrueName")
            end if
            RecieverCount=RecieverCount+1
            rsUser.movenext
        loop
    End if
    rsUser.Close
    set rsUser=nothing
    GetReciever_Member=strReciever
End Function

Private Function GetReciever_Contacter()
admin_smspost.asp - 源码说明

本页面展示了「江西旅行网整站源码下载希望对大家有用经过测试安全可用」中的 admin_smspost.asp 源码文件，采用 ASP 编程语言编写，共 352 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与旅行相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?