📄 ismssend.asp
字号:
<% Response.buffer = true %>
<HTML>
<HEAD>
<TITLE>SMSServer短信消息平台演示程序</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel='stylesheet' type='text/css' href='iSMSCss.css'>
</HEAD>
<BODY>
<%
Dim strSender,strFrom_Mobile,strTo_Mobile,strContent,strSms_Msg_No,strIP,mResult
strSender=MarkText(Request("Sender"))
strFrom_Mobile=Request("From_Mobile")
strTo_Mobile="+86"&MarkText(Request("To_Mobile"))
strContent=MarkText(Request("Content"))
if strSender<>"" then
strContent=strContent+"-"+strSender
end if
strSms_Msg_No=""
strIP=""
mResult=true
strIP = Request("REMOTE_ADDR")
if (mResult) then
strSms_Msg_No = GetMaxFieldNo(Session("iSMSDemo"),"Sms_Tb_Msg","Sms_Msg_No",6)
mSql="Insert Into Sms_Tb_Msg (Sms_Msg_No,From_Mobile,To_Mobile,Content,IP) values ('"+ strSms_Msg_No +"','"+ strFrom_Mobile + "','"+ strTo_Mobile +"','"+ strContent +"','"+ strIP +"')"
Session("iSMSDemo").Execute(mSql)
Set ObjiSMSClient2000 = Server.CreateObject("Dbstep.SMSClient2000")
mResult=ObjiSMSClient2000.OpenSMS("you server",8090)
If (mResult) then
If (ObjiSMSClient2000.SendSMS(mSms_Msg_No,strTo_Mobile,strContent)) then
mSql="Update Sms_Tb_Msg Set Msg_Status='Y',Finish_DateTime='"& now() &"' where Sms_Msg_No='"+strSms_Msg_No+"'"
Session("iSMSDemo").Execute(mSql)
mResult = true
End If
Else
Response.Write ("<div align='center'><br><br>连接SMSServer短信服务器失败！<input type='button' value='返 回' onclick='javascript:history.back();' id='button'1 name='button'1></div>")
mResult = false
End If
ObjiSMSClient2000.CloseSMS()
Set ObjiSMSClient2000 = nothing
End If
If (mResult) then
Response.Redirect("iSMSList.asp")
End IF
'取出最大的记录流水号
Function GetMaxFieldNo(Conn,TableName,FieldName,FieldLen)
Dim Sql, MaxNo
Set Rsc = Server.CreateObject("ADODB.RecordSet")
Sql = "Select Max(" & FieldName & ") as MaxNo From " & TableName
Rsc.Open Sql, Conn
If Not Rsc.EOF Then
MaxNo = CLng(Rsc("MaxNo"))
Else
MaxNo = "0000000000000000000000000"
End If
Rsc.Close
Set Rsc = Nothing
MaxNo = Right(("0000000000000000000000000" + CStr(MaxNo + 1)), FieldLen)
GetMaxFieldNo = MaxNo
End Function
Function MarkText(InLine)
Dim OutLine
OutLine=Replace(InLine,"'","''")
MarkText=OutLine
End Function
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -