MYSQL &
一键开启GZIP压缩（w
[星外虚拟主机管理平台]是一套庞大虚拟主机管理软件(它由[主控端] [受控端]组成),国内不少IDC企业都使用该程序开展其互联网业务,其程序本身集成短信功能,但是受短信通道限制,导致重要通知无法及时发送给客户,我们的润网互联SMS手机短信通接口采用多通道自动切换空闲网关,发送成功率可达99%,仅需如下修改即可:
打开主控网站文件/inc-freehost-function/FreeHostFunction.asp,原短信发送函数如下(约第2428行):
修改为(使用前在您的网站后台填入在润网数据注册的账户信息):
打开主控网站文件/inc-freehost-function/FreeHostFunction.asp,原短信发送函数如下(约第2428行):
| 以下是引用片段: Function SendSms(SendNum,Content,SendTiming,SendTime,Reserve) 'SendTime=Replace(SendTime,"/","-") If IsNull(SendNum) Then SendNum="" If IsNull(Content) Then Content="" If IsNull(Reserve) Then Reserve="" Randomize dtNow = Now() ranNum = Int(900 * Rnd) + 100 SmsID = Year(dtNow) & Right("0" & Month(dtNow), 2) & Right("0" & Day(dtNow), 2) & Right("0" & Hour(dtNow), 2) & Right("0" & Minute(dtNow), 2) & Right("0" & Second(dtNow), 2) & ranNum 'SendTime=Now If hour(now)<9 And SendTiming=1 Then SendTime=Year(now)&"-"&month(now)&"-"&day(now)&" 12:00:00" If hour(now)>20 And SendTiming=1 Then SendTime=Year(dateadd("d",1,now))&"-"&month(dateadd("d",1,now))&"-"&day(dateadd("d",1,now))&" 12:00:00" MD5String=MD5(SmsID&Application("SMSUserName") & Application("SMSKey") & SendNum & Content & SendTiming & SendTime) body="ID="&server.URLEncode(SmsID)&"&UserName="&server.URLEncode(Application("SMSUserName"))&"&SendNum="&server.URLEncode(SendNum)&"&Content="&server.URLEncode(Content)&"&SendTiming="&server.URLEncode(SendTiming)&"&SendTime="&server.URLEncode(SendTime)&"&Reserve="&Reserve&"&MD5String="&MD5String Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4 xml.Open "GET", "http://sms.powereasy.net/MessageGate/Message.aspx?"&body, False xml.send returnstr = bytes2BSTR(xml.responsebody) Set xml = Nothing FreeHost_oplog username,"信息","<b>短信返回</b>:手机号:"&SendNum&" 内容:"&Content&" 返回信息:"&returnstr SendSms = returnstr End Function |
| 以下是引用片段: Function SendSms(SendNum,Content,SendTiming,SendTime,Reserve) 'SendTime=Replace(SendTime,"/","-") If IsNull(SendNum) Then SendNum="" If IsNull(Content) Then Content="" If IsNull(Reserve) Then Reserve="" Randomize dtNow = Now() ranNum = Int(900 * Rnd) + 100 SmsID = Year(dtNow) & Right("0" & Month(dtNow), 2) & Right("0" & Day(dtNow), 2) & Right("0" & Hour(dtNow), 2) & Right("0" & Minute(dtNow), 2) & Right("0" & Second(dtNow), 2) & ranNum If hour(now)<9 And SendTiming=1 Then SendTime=Year(now)&"-"&month(now)&"-"&day(now)&" 12:00:00" If hour(now)>20 And SendTiming=1 Then SendTime=Year(dateadd("d",1,now))&"-"&month(dateadd("d",1,now))&"-"&day(dateadd("d",1,now))&" 12:00:00" body="Name="&Application("SMSUserName")&"&Pass="&Application("SMSKey")&"&SendNum="&SendNum&"&Content="&Content&"" Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4 xml.Open "GET", "http://www.runidc.com/sms/send.asp?"&body, False xml.send returnstr = bytes2BSTR(xml.responsebody) If returnstr ="1" Then returnstr ="发送成功" If returnstr ="0" Then returnstr ="发送失败" Set xml = Nothing FreeHost_oplog username,"信息","<b>短信返回</b>:手机号:"&SendNum&" 内容:"&Content&" 返回信息:"&returnstr SendSms = returnstr End Function |
