📄 admin_sms.asp
字号:
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim SendTo
SendTo = Trim(Request("SendTo"))
'检查管理员操作权限
If AdminPurview > 1 Then
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
If PurviewPassed = False Then
Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>对不起，你没有此项操作的权限。</font></p>"
Response.End
End If
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 "Order"
Call SendToOrder
Case "Other"
Call SendToOther
Case Else
Call SendToMember
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
%>
</body>
</html>
<%
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 SendToOrder()
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>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -