• 永不沉没的泰坦尼克号工程开工仪式举行(一) 2019-08-19
  • 今年回南天为何掉线了?这其实并不奇怪 2019-08-19
  • 政能亮政府服务,当好“店小二”而非“二大爷” 2019-08-16
  • 女性之声——全国妇联 2019-08-16
  • 人傻有人爱,人聪明有人恨,人愚笨有人笑,人痴有人关心,不是每个人的命运都一样的 2019-08-11
  • 人民的力量——一份大报,与一个大党、一个大国的故事 2019-08-05
  • 中华人民共和国建筑法 2019-08-05
  • 转方式调结构显现阶段性成果(读数·发现经济运行的轨迹) 2019-08-02
  • 一语惊坛(6月8日):友谊勋章是给国际友人的最高荣誉。 2019-08-02
  • 《红海行动》出征中美电影节 2019-07-28
  • 发挥自身优势 奋力走在前列——习近平总书记在山东考察回访记 2019-07-28
  • 民生时评:上海支付宝回收垃圾并不现实(原创首发) 2019-07-28
  • 俺发现你还真是踩云的人。找不到谱。 2019-07-28
  • 12306网站用户信息外泄?铁总深夜“辟谣” 2019-07-25
  • 端午节期间 拉萨至日喀则增开列车 2019-07-24
  • 代码示例

    北京11选五和值走势图 www.tqjw.net 北京11选五和值走势图asp代码示例  在线技术支持

    					 
    	<%
    	Function BytesToBstr(body,code) 
    	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 =code
    	BytesToBstr = objstream.ReadText 
    	objstream.Close 
    	set objstream = nothing 
    	End Function
    	%>
    
    	<%
    	'response.ContentType="text/xml;charset=UTF-8'
    	%>
    	
    <% Function UrlEncoding(DataStr) Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8 StrReturn = "" For Si = 1 To Len(DataStr) ThisChr = Mid(DataStr,Si,1) If Abs(Asc(ThisChr)) < &HFF Then StrReturn = StrReturn & ThisChr Else InnerCode = Asc(ThisChr) If InnerCode < 0 Then InnerCode = InnerCode + &H10000 End If Hight8 = (InnerCode And &HFF00)\ &HFF Low8 = InnerCode And &HFF StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) End If Next UrlEncoding = StrReturn End Function Function GetSeed() timeStr=now() GetSeed=cstr(Year(timeStr))+cstr(Month(timeStr)) +cstr(Day(timeStr))+cstr(hour(timeStr))+cstr(Minute(timeStr))+cstr(Second(timeStr)) End Function %> <% '发送短信' 'accName 用户名' 'accPwd 密码' 'aimcodes 电话' 'content 内容' 'seed 当前时间 格式:YYYYMMDD HHMISS 例如:20130806102030' 'sign 签名' %> <% accName="用户名" accPwd="密码" sign="签名" Function SendSms(mobiles,content) seed=GetSeed() password=UCase(md5(UCase(md5(accPwd)+seed))) url="accName="+accName+"&accPwd="+password+"&aimcodes="+mobiles+"&content="+content+sign+"&seed="+seed Set HttpReq = Server.CreateObject("Microsoft.XMLHTTP") HttpReq.open "post", "//sdk.lx198.com/sdk/send2", False,"","" HttpReq.setRequestHeader "Content-Length",len(url) HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded;charset=UTF-8" url=URLEncoding(url) HttpReq.send(url) str=HttpReq.responseText response.Write str End Function <% '查询回执报告' 'accName 用户名' 'accPwd 密码' 'seed 当前时间 格式:YYYYMMDD HHMISS 例如:20130806102030' %> Function qryReport() seed=GetSeed() password=UCase(md5(UCase(md5(accPwd)+seed))) url="accName="+accName+"&accPwd="+password+"&seed="+seed Set HttpReq = Server.CreateObject("Microsoft.XMLHTTP") HttpReq.open "post", "//sdk.lx198.com/sdk/qryReport2", False,"","" HttpReq.setRequestHeader "Content-Length",len(url) HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded;charset=UTF-8" url=URLEncoding(url) HttpReq.send(url) str=HttpReq.responseText response.Write str End Function <% '查询余额' 'accName 用户名' 'accPwd 密码' 'seed 当前时间 格式:YYYYMMDD HHMISS 例如:20130806102030' %> Function qryBalance() seed=GetSeed() password=UCase(md5(UCase(md5(accPwd)+seed))) url="accName="+accName+"&accPwd="+password+"&seed="+seed Set HttpReq = Server.CreateObject("Microsoft.XMLHTTP") HttpReq.open "post", "//sdk.lx198.com/sdk/qryBalance2", False,"","" HttpReq.setRequestHeader "Content-Length",len(url) HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded;charset=UTF-8" url=URLEncoding(url) HttpReq.send(url) str=HttpReq.responseText response.Write str End Function <% '查询上行短信' 'accName 用户名' 'accPwd 密码' 'seed 当前时间 格式:YYYYMMDD HHMISS 例如:20130806102030' %> Function receiveSms() seed=GetSeed() password=UCase(md5(UCase(md5(accPwd)+seed))) url="accName="+accName+"&accPwd="+password Set HttpReq = Server.CreateObject("Microsoft.XMLHTTP") HttpReq.open "post", "//sdk.lx198.com/sdk/receiveSms2", False,"","" HttpReq.setRequestHeader "Content-Length",len(url) HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded;charset=UTF-8" url=URLEncoding(url) HttpReq.send(url) str=HttpReq.responseText response.Write str End Function SendSms "电话号","测试内容" qryReport qryBalance receiveSms %>
  • 永不沉没的泰坦尼克号工程开工仪式举行(一) 2019-08-19
  • 今年回南天为何掉线了?这其实并不奇怪 2019-08-19
  • 政能亮政府服务,当好“店小二”而非“二大爷” 2019-08-16
  • 女性之声——全国妇联 2019-08-16
  • 人傻有人爱,人聪明有人恨,人愚笨有人笑,人痴有人关心,不是每个人的命运都一样的 2019-08-11
  • 人民的力量——一份大报,与一个大党、一个大国的故事 2019-08-05
  • 中华人民共和国建筑法 2019-08-05
  • 转方式调结构显现阶段性成果(读数·发现经济运行的轨迹) 2019-08-02
  • 一语惊坛(6月8日):友谊勋章是给国际友人的最高荣誉。 2019-08-02
  • 《红海行动》出征中美电影节 2019-07-28
  • 发挥自身优势 奋力走在前列——习近平总书记在山东考察回访记 2019-07-28
  • 民生时评:上海支付宝回收垃圾并不现实(原创首发) 2019-07-28
  • 俺发现你还真是踩云的人。找不到谱。 2019-07-28
  • 12306网站用户信息外泄?铁总深夜“辟谣” 2019-07-25
  • 端午节期间 拉萨至日喀则增开列车 2019-07-24
  • 河南22选5杀号 快乐三张牌 福彩网软件下载 竞彩篮球玩法 白小姐一肖一碼期期准 11选5彩票app 30选5开奖结果查询今天 腾龙时时彩手机版下载 内蒙福彩中心有2个 竞彩总进球数怎么中奖 双色球黑龙江36选7 北京快乐8总共多少个数字 游戏推牌九 pk10牛牛玩法 3d开奖直播网易