|
|
亿华科技=>>ASP开发包 接口界面说明
图1
|
附：页面原代码（控件需下载或者购买后取得）
|
<%
response.buffer=true
dim DllSMS
dim strRes,strNO,strCON,strCent,strMsgCenter,lngcom
strNO=request.Form("txtNo")
strCent=request.Form("txtNo2")
lngcom=request.form("txtNo3")
strCON=request.Form("txtContent")
if strNo="" then
response.Write
"<script>alert('请入接收号码');window.history.back();</script>"
response.End
end if
if strCent="" then
response.Write
"<script>alert('请入中心号码');window.history.back();</script>"
response.End
end if
if lngcom="" then
response.Write
"<script>alert('请入端口号');window.history.back();</script>"
response.End
end if
set DllSMS=Server.CreateObject("Szhto.JSms")
'打开设备
strRes=DllSMS.YhOpenModem(cint(lngcom),"9600,N,8,1","SERSDFESRE")
response.Write "端口打开："+strRes
response.Flush
strRes=DllSMS.YhSendSms(cstr(strCent),cstr(strNo),cstr(StrCon),1)
response.Write " "+strRes
'接收短信
' strRes=DllSms.YhReadSms( "1" , "" )
' response.Write " 中心号码："+Dllsms.RsCenterNo
' response.Write " 对方号码："+Dllsms.RsTel
' response.Write " 接收日期："+Dllsms.RsDate
' response.Write " 短信内容："+Dllsms.Rscon
response.Flush
DllSMS.YhCloseModem
set DllSMS=nothing
%> |
|
