<%@ Language = "VBScript" %>
<%
' поддерживаются: cp1251, koi, utf8
encoding = "cp1251"
' привязать sms ключ к URL
url_restrict = false
' ресурс активаций для ключа
limit = 0
' отображать панель смены языков
lang_switcher = true
' язык по умолчанию
default_lang = "ru"
' номер проекта
project_id = 29453
language = default_lang
If lang_switcher Then
getparam = Request.QueryString("lng")
If getparam <> "" Then
language = getparam
Else
If Request.Cookies("z_lng").HasKeys Then
Request.Cookies("z_lng")
Else
language = default_lang
End If
End If
End If
result_code = false
result_message = "closed"
Set xmlHTTP = Server.CreateObject("Microsoft.XMLHTTP")
code = Request.Form("code")
check_url = ""
If code <> "" Then
check_url = "http://check.smszamok.ru/check/?p=" & code & "&id=" & project_id & "&mod=asp2"
If url_restrict Then
check_url = check_url & "&url_restricted=" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
End If
If limit Then
check_url = check_url & "&limit=" & limit
End If
xmlHTTP.Open "GET", check_url, false
xmlHTTP.Send null
If xmlHTTP.status = 200 Then
result_message = xmlHTTP.responseText
If result_message = "true" Then
result_code = true
End If
Else
result_message = "server_busy"
End If
End If
If NOT result_code Then
If result_message = "server_busy" Then
check_url = "http://iface.smszamok.ru/client/sorry.php?lng=" & language & "&enc=" & encoding
Else
check_url = "http://iface.smszamok.ru/client/" & language & ".iface.utf8.php?pid=" & project_id & "&message=" & result_message & "&ls="
If lang_switcher Then
check_url = check_url & "1"
Else
check_url = check_url & "0"
End If
End If
xmlHTTP.Open "GET", check_url, false
xmlHTTP.Send null
Response.Charset = encoding
Response.Write xmlHTTP.responseText
' халявы нема
Response.End
End If
%>
Сайт создан в системе
uCoz