<!--#include file="../conn/conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="../smsapi/smsapi.asp"-->
<%Response.Charset = "GB2312"
On Error Resume Next
SQLin
if Request.Cookies("admin_name")<>"" then
mobno=Replace(request("mobno"),"'","")
login=Replace(request("member"),"'","")
msg=Replace(request("smsmsg"),"'","")
	if mobno<>"" and Smssend=1 then
		apitype = 0 '通道选择，0 是默认，1 通道1 ，2 通道2， 3 即时通道 ，4 营销通道；
		Set newclient=New SMS
		respxml=newclient.sendSMS(""&mobno&"",""&msg&"","")
		code=newclient.getCode()
		if code<>"000" then
		conn.execute("Insert into JOB_Sms(S_memberlogin,S_tomemberlogin,S_tomobile,S_issuccess,S_sendtime,S_content) values('webmaster','"&login&"','"&mobno&"',0,"&FR_HR_Now&",'"&msg&"')")
		Response.Write("失败")
		response.end
		else
		conn.execute("Insert into JOB_Sms(S_memberlogin,S_tomemberlogin,S_tomobile,S_issuccess,S_sendtime,S_content) values('webmaster','"&login&"','"&mobno&"',1,"&FR_HR_Now&",'"&msg&"')")
		Response.Write("成功")
		response.end
		end if
	end if
end if
CloseConn
%>