<!--#include file="SMS.Class.asp"-->
<%
Set newclient = New SMS
response.charset="gb2312"
session.codepage="936"
mobile = newclient.Safereplace(Trim(request("mobile")))
Msgno = newclient.Safereplace(Trim(request("Msgno")))
Msg = newclient.Safereplace(session("msg"& Msgno))
sendtime = newclient.Safereplace(Trim(request("sendtime")))
sendtype = newclient.Safereplace(Trim(request("sendtype")))
If VCPState = "1" Then
	If Msg = "" Then
		response.End
	End If
	If VCPServer = "0" Then 
		Call newclient.sendSMS(mobile,Msg,sendtime,sendtype)
	Else
		strmessage = "&message="
		strmessage = strmessage & Server.URLEncode(Msg)
		strmobile = "&mobile="
		strmobile = strmobile & mobile
		Call newclient.GetHttpPage(strmessage & strmobile,"SendSms")
	End If 
End If
'response.write session("msg"& Msgno)
session("msg"& Msgno) = ""
%>