?? ismssend.asp
字號:
<% Response.buffer = true %>
<HTML>
<HEAD>
<TITLE>iWebSMS 2000短信消息平臺演示程序</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=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("localhost",8090)
If (mResult) then
If (ObjiSMSClient2000.SendSMS(strSms_Msg_No,strTo_Mobile,strContent)) then
mResult = true
End If
Else
Response.Write ("<div align='center'><br><br>連接iWebSMS2000短信服務器失敗！<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 + -