📄 admin_sms.asp
字号:
<%@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 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
%>
<html>
<head>
<Title>发送手机短信</Title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312' />
<link href='Admin_Style.css' rel='stylesheet' type='text/css'>
<script language='JavaScript' src='PopCalendar.js'></script>
<script language='JavaScript'>
PopCalendar = getCalendarInstance()
PopCalendar.startAt = 0 // 0 - sunday ; 1 - monday
PopCalendar.showWeekNumber = 0 // 0 - don't show; 1 - show
PopCalendar.showTime = 0 // 0 - don't show; 1 - show
PopCalendar.showToday = 0 // 0 - don't show; 1 - show
PopCalendar.showWeekend = 1 // 0 - don't show; 1 - show
PopCalendar.showHolidays = 1 // 0 - don't show; 1 - show
PopCalendar.showSpecialDay = 1 // 0 - don't show, 1 - show
PopCalendar.selectWeekend = 0 // 0 - don't Select; 1 - Select
PopCalendar.selectHoliday = 0 // 0 - don't Select; 1 - Select
PopCalendar.addCarnival = 0 // 0 - don't Add; 1- Add to Holiday
PopCalendar.addGoodFriday = 0 // 0 - don't Add; 1- Add to Holiday
PopCalendar.language = 0 // 0 - Chinese; 1 - English
PopCalendar.defaultFormat = 'yyyy-mm-dd' //Default Format dd-mm-yyyy
PopCalendar.fixedX = -1 // x position (-1 if to appear below control)
PopCalendar.fixedY = -1 // y position (-1 if to appear below control)
PopCalendar.fade = .5 // 0 - don't fade; .1 to 1 - fade (Only IE)
PopCalendar.shadow = 1 // 0 - don't shadow, 1 - shadow
PopCalendar.move = 1 // 0 - don't move, 1 - move (Only IE)
PopCalendar.saveMovePos = 1 // 0 - don't save, 1 - save
PopCalendar.centuryLimit = 40 // 1940 - 2039
PopCalendar.initCalendar()
</script>
<script language = 'JavaScript'>
function SelectUser(){
var arr=showModalDialog('Admin_SourceList.asp?TypeSelect=UserList&DefaultValue='+document.myform.inceptUser.value,'','dialogWidth:600px; dialogHeight:450px; help: no; scroll: yes; status: no');
if (arr != null){
document.myform.inceptUser.value=arr;
}
}
function CheckForm(){
if (document.myform.Content.value==''){
alert('短信内容不能为空！');
return false;
}
<%if Trim(Request("SendTo"))="Contacter" then%>
document.myform.Country.value=frm1.document.regionform.Country.value;
document.myform.Province.value=frm1.document.regionform.Province.value;
document.myform.City.value=frm1.document.regionform.City.value;
<%end if%>
return true;
}
function checkLength(){
myform.lencount.value=myform.Content.value.length;
}
</script>
</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> | <a href='Admin_SMS.asp?SendTo=Contacter'>给联系人发送短信</a> | <a href='Admin_SMS.asp?SendTo=Consignee'>给订单中的收货人发送短信</a> | <a href='Admin_SMS.asp?SendTo=Other'>给其他人发送短信</a> </td>
</tr>
</table>
<%
Select Case SendTo
Case "Member"
Call SendToMember()
Case "Contacter"
Call SendToContacter
Case "Consignee"
Call SendToConsignee
Case "Other"
Call SendToOther
Case Else
Call SendToMember
End Select
If FoundErr = True Then
Response.Write WriteErrMsg(ErrMsg, ComeUrl)
End If
%>
</body>
</html>
<%
Private Sub SendToMember()
Dim InceptType, UserName
InceptType = PE_CLng(Trim(Request("InceptType")))
UserName = Trim(Request("UserName"))
Response.Write "<form name='myform' method='post' onSubmit='return CheckForm();' action='Admin_SMSPost.asp'>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' class='title' colspan=2 align=center><b>给会员发送手机短信</b></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='right' class='tdbg5'>接收人：</td>"
Response.Write " <td><table><tr><td>会员组：</td><td>" & GetUserGroup() & "</td></tr>"
Response.Write "<tr><td>用户名：</td><td><input type='text' name='inceptUser' size='40' value='" & UserName & "'>"
Response.Write "<font color='blue'><=【<a href='#' onclick=""SelectUser();""><font color='green'>会员列表</font></a>】</font>"
Response.Write "多个用户名间请用<font color='#0000FF'>英文的逗号</font>分隔</td></tr>"
Response.Write "<tr><td>ID范围：</td><td>起始ID：<input type='text' name='BeginID' size='10' value=''> 终止ID：<input type='text' name='EndID' size='10' value=''></td></tr>"
Response.Write "</table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td align='right' class='tdbg5'>短信内容：</td>"
Response.Write " <td>可以在短信内容中使用几个变量：<br>{$1}：手机号码或小灵通号码<br>{$2}：真实姓名<br>{$3}：用户名<br>"
Response.Write " <textarea name='Content' id='Content' cols='50' rows='8' onpropertychange='checkLength();'>{$2}，您好！这是一条测试短信。----" & SiteName & vbCrlf & "（请勿回复此短信）</textarea>"
Call ShowCommonHTML("SendToMember")
End Sub
Private Sub SendToContacter()
Dim InceptType, TrueName
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -