📄 smsky.asp
字号:
<!--#include file="include/conn.asp"-->
<!--#include file="../client_infor.asp"-->
<!--#include file="CheckSystem.asp"-->
<%
SetLimit=session("Limit")
call checklimit(SetLimit,"1")'调用验证管理员权限的函数
response.Clear()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理机票系统</title>
<link rel="stylesheet" type="text/css" href="style/comm.css" />
<link rel="stylesheet" type="text/css" href="style/skin0.css" />
</head>
<br>
<%
'Option Explicit
Dim KyHttpRequest 'XML文档对象
URL = "http://"&SmsUrl&"/SDK/Sms_KYSms.asp?CorpID="&ComId&"&LoginName="&SmsName&"&passwd="&SmsPw
'调用MSXML，发送请求
set KyHttpRequest = CreateObject("MSXML2.ServerXMLHTTP" )
if KyHttpRequest is Nothing Then
'返回错误
response.write "create Msxl2.ServerXMLHTTP error"
response.end
end if
'发出请求
KyHttpRequest.open "GET",URL,False
KyHttpRequest.send()
if KyHttpRequest.status <> 200 then
'返回错误
response.write "Open Request Error"
response.end
end if
retMsg = KyHttpRequest.responseText
ilen = InStr(retMsg,",")-1
if ilen <= 0 then
ilen = len(retMsg)
end if
Ret = left(retMsg,ilen)
'response.write Ret
iRet = 0+Ret
if iRet>0 then '判断是成功
response.write "<div class=txt_title>当前可用短信数为:<font color=red>"&iRet&"条</font></div>"
else
response.write "<div class=txt_title>错误代码:"&iRet&"</div>"
end if
'释放资源
Set KyHttpRequest = Nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -