刚刚测试了多次，很抱歉，程序存在BUG，

在KS_Cls\Slee.FectionSMS.asp的

  Call CloseConn()    '把这行删掉
  Set KS=Nothing
 End Sub

此主题相关图片如下：手机短信.jpg

发送成功后的手机截图

上一贴提到：二次开发给后台登录加多一道安全防线——地区登录限制 

http://bbs.kesion.com/dispbbs.asp?boardid=41&Id=106778

好现在就可应用上去

接上一贴，修改：admin\login.asp

在<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->后面添加一行<!--#include file="../KS_Cls/Slee.FetionSMS.asp"-->

在上一贴代码基础上增加红色字部分

ScriptName=KS.R(Trim(Request.ServerVariables("HTTP_REFERER")))
Call KS.InsertLog("AREACHECK",0,ScriptName,"登录地区异常：" & Area) '记录日志

'-----新增加-----

Dim SMS : Set SMS = New FetionSMS

SMS.Send "","后台有异常登录：" & Area & " 时间：" & now()

Set SMS = Nothing

'----------------
response.redirect "/index.asp" '这里可以改成你要跳转的页面