<%@ Language = 'VbScript' LCID=1049 CodePage=1251 EnableSessionState=True%>
<% Option Explicit %>
<%
Response.CharSet = "windows-1251"
%>
<%
cnn.Open Application("ConnectionString")
Randomize
'defining the global variables
dim site_id, page_id, strSQL
site_id=50
page_id=263
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:24:03 GMT"
Response.Expires = -1000
Response.CacheControl = "Private"
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control", "no-cache, no-store, must-revalidate"
dim upload_url, base_upload_url, published_status_type_id, object_call_depth
Dim AbsUploadURL, UploadURLPrefix, PublishedStatusName
Dim QP_IsInFrontend
QP_IsInFrontend = True
dim object_call_stack(20)
upload_url = "/upload/images"
site_url = "/live/"
base_upload_url = "/upload/"
object_call_depth = 0
published_status_type_id=GetMaximumWeightStatusTypeId(50)
PublishedStatusName=GetMaximumWeightStatusTypeName(50)
FillValues
Private Sub object915O()
err.clear
%>Надо бы переопределить<%
If Err.Number <> 0 Then
Response.write("Unable to display object 'заголовок' correctly!
Details: " & err.description)
End If
End Sub
Private Sub object914O()
err.clear
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'css' correctly!
Details: " & err.description)
End If
End Sub
Private Sub object1178O()
err.clear
%><%
'GetIPaddr.vbs - Check the IP address you are currently
'connected to the Internet with (or LAN IP).
'© Bill James - bill@billsway.com
' rev 15 Jan 2002
' Now works with Windows NT, 2K, XP
Dim IP_Address : IP_Address = GetIP()
If IP_Address = "0.0.0.0" OR IP_Address = "" Then
MsgBox "No IP Address found."
Else
InputBox vbcrlf & "Current IP Address is " & IP_Address & _vbcrlf & vbcrlf & vbcrlf & vbcrlf & _"(Use Ctrl + C to copy IP Address to Clipboard)", _"GetIPaddr.vbs © Bill James", IP_Address
End If
Function GetIP()
Dim ws : Set ws = CreateObject("WScript.Shell")
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim TmpFile : TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
Dim ThisLine, IP
If ws.Environment("SYSTEM")("OS") = "" Then
ws.run "winipcfg /batch " & TmpFile, 0, True
Else
ws.run "%comspec% /c ipconfig > " & TmpFile, 0, True
End If
With fso.GetFile(TmpFile).OpenAsTextStream
Do While NOT .AtEndOfStream
ThisLine = .ReadLine
If InStr(ThisLine, "Address") <> 0 Then IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
Loop
.Close
End With
'WinXP (NT? 2K?) leaves a carriage return at the end of line
If IP <> "" Then
If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
End If
GetIP = IP
fso.GetFile(TmpFile).Delete
Set fso = Nothing
Set ws = Nothing
End Function
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'центральная часть' correctly!
Details: " & err.description)
End If
End Sub
Private Sub CallStackOverflow()
Response.Write "Object Call Stack Overflow
Call Stack:
"
dim i
for i=1 to 20
Response.Write object_call_stack(i)&"
"
next
Response.End
End Sub
Private Function ObjectNS(name)
Object(name)
End Function
Private Function Object(name)
object_call_depth = object_call_depth + 1
if object_call_depth > 20 then CallStackOverflow
object_call_stack(object_call_depth) = name
Select Case Trim(lCase(name))
Case Trim("заголовок")
object915O
Case Trim("css")
object914O
Case Trim("центральная часть")
object1178O
Case Else
Response.Write "Object " & name & " not found.
"
End Select
object_call_depth = object_call_depth - 1
End Function
Function LangObject (objectName)
Dim lang
lang = Value ("lang")
if ( lang = "en" or lang = "am" ) then
Object (objectName & "_" & lang)
else
Object (objectName)
end if
End Function
%>
<%Object("Заголовок")%>
<%Object("CSS")%>
<%Object("Центральная часть")%>
<%
DisposeValues
cnn.Close
%>