send.asp

购物网站 采用B/S。 主要须实现的功能如下： 顾客的注册、登录模块、商品浏览模块、购物车模块、特价商品信息显示模块、顾客反馈信息模块、系统信息管理的登录模块、订单管理系统、商品管理模块、

<% Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function 


smsname="boobuy.cn"							'boobuy.cn的sms用户名
smspass="geegfvb6e3jhgf5adhk65efgt432fj0i"	'安全操作码，登陆boobuy.cn就可以看见
smsnumber="07733986302"						'接收号码，灵通要有区号，手机直接号码
smstext="测试内容"							'信息内容 

set http = Server.CreateObject("Microsoft.XMLHTTP")
Http.Open "GET", "http://boobuy.cn/sms/boobuysms.asp?smsname="&smsname&"&smspass="&smspass&"&smsnumber="&smsnumber&"&smstext="&smstext&"",false
Http.Send
smsjieguo=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
%>

<%=smsjieguo%>