savetb2.asp

单片机控制cdma模块发短信

<!--#include file="Conn1.asp"-->
<title>短信发送中...</title>
<%
dim OrgAddr,DestAddr,flag,feeflag,fee,tel',MsgData
smscontent = request("smscontent")
tel = request("tel")
'Response.Write(smscontent&tel):Response.End()
ST = Timer()
Dim smscontent
'MsgData = request.Form(Session("smscontent"))
'Response.Write("")
'Response.End()	
	Array_Sql = "Insert Into [sendmsg] (OrgAddr,DestAddr,MsgData,flag,feeflag,fee) Values "&_
		"('14013336181968','"&tel&"','"&smscontent&"','0','0','0')"
		'Array_Sql = "Insert Into [sendmsg] (OrgAddr,DestAddr,MsgData,flag,feeflag,fee) Values "&_
		'"('1401','111111','content','0','0','0')"
		Set Rs = Conn.Execute(Array_Sql)
	ET = Timer()
Response.Write("<Script>alert('发送报告：\n\n您已成功发送了短信');parent.form1.reset();</Script>")
'Response.Write("")
'Response.End()
%>
<script>//go();</script>