[ZT]一段用ASP控制串口GSM猫进行短信发送的代码

如果哪位大侠有时间把它做成组件，也别忘了分享一下哦。

 

<%
Function uni(Chinese)
For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & right("0000"& Hex(Ascw(a)) ,4)
next
End Function
mobile=request("mb")
content=request("ct")
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.CreateTextFile("COM2")
PDStr="AT"+Chr(13)+"AT+CSMP=17,167,0,8"+Chr(13)+"AT+CMGF=1"+Chr(13)+"AT+CMGS="+Chr(34)+mobile+Chr(34)+Chr(13)+uni(content)+Chr(13)+Chr(26)+Chr(13)+"AT+CMGF=0"+Chr(13)+"AT+CMGS=17"+Chr(13)+Chr(13)+Chr(13)
response.write PDStr
MyTextFile.WriteLine(PDStr)
MytextFile.Close
%>

 

将其存为  sms.asp

调用方法： http://server/sms.asp?mb=13800138000&ct=测试消息123abc