<script language="jscript" runat="server">
Array.prototype.get = function(x) { return this[x]; };
function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }
</script>
<%if userid<>"" then
response.write("<script>alert('已登录！');window.location.href='center.asp';</script>")
response.end()
end if
if request.QueryString("action")="getsms" then
'发送短信
dim tel,data,smscon
tel=request.QueryString("tel")
if tel="" then
response.Write("{status:0,code:0}")
response.End()
end if
Dim zNum,shijian,smsurl,accountSid,smsContent,TOKEN,sig,timestamp
smsurl="https://api.miaodiyun.com/20150822/industrySMS/sendSMS"
accountS)
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
function dtos(num)
dtos=cstr(num)
dim i
'response.Write(num&":"&len(dtos)&"<br>")
if len(dtos)<2 then
for i=1 to 2-len(dtos)
'response.Write("("&i&")")
dtos="0"&dtos
'response.Write(dtos)
next
else
dtos=dtos
end if
'dtos=cint(dtos)
end function
function day_date() 'response.Write(month(now)&"-"&day(now)&"-"&hour(now)&"-"&minute(now)&"-"&second(now))
day_month=dtos(month(now))
day_day=dtos(day(now))
day_hour=dtos(hour(now))
day_minute=dtos(minute(now))
day_second=dtos(second(now))
day_date=cstr(year(now))&cstr(day_month)&cstr(day_day)&cstr(day_hour)&cstr(day_minute)&cstr(day_second)
end function
%>