<%@ 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=260
Dim QP_IsInStageMode
QP_IsInStageMode = False
'define response properties
Response.AddHeader "publisher", "Quantum Art's Q-Publishing 7.6 Wed, 16 Sep 2009 11:23:59 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 object1167O()
err.clear
%><%
AddValue "file", "timetable.mdb"
Object("Закачка")
if Value("failed") <> "1" then
Object("Import")
end if
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'управление' correctly!
Details: " & err.description)
End If
End Sub
Private Sub object949O()
err.clear
%><%
dim objFTP
Set objFTP = Server.CreateObject("NIBLACK.ASPFTP")
objFTP.lTransferType = 2 'BINARY
objFTP.sServerName = "post.akdal.ru"
objFTP.sUserID = "quantumart"
objFTP.sPassword = "#qart1234"
objFTP.bPassiveMode = True
If objFTP.bConnect Then
Response.Write("Connected") & "
"
Response.Write(Application("import_dir") & Value("file")) & "
"
If objFTP.bGetFile(Value("file"), Application("import_dir") & Value("file")) Then
Response.Write("OK")
else
Response.Write "FTP Error:" & objFtp.sError & objFtp.sErrorDesc
AddValue "failed", "1"
end if
else
Response.Write objFtp.sError & "
" & objFtp.sErrorDesc & "OBLOM"
AddValue "failed", "1"
end if
Set objFTP = Nothing
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'закачка' correctly!
Details: " & err.description)
End If
End Sub
Private Sub object1168O()
err.clear
%>
<%
dim connection, SQL, mdbSQL, RS, TableName, LocalContentItemID
'имя таблички, куда производится импорт
TableName = "airline_schedule"
'создание подключения к mdb-файлу
Set connection = Server.CreateObject("ADODB.Connection")
connection.ConnectionString = "DSN=akdal_timetable;"
connection.Open
'Уаление старых данных
SQL = "truncate table " & TableName
cnn.Execute(SQL)
'Инициализация локального ContentItemID
LocalContentItemID = 1
'Выборка из mdb
mdbSQL = "select * from [Timetable_web]"
Set RS = connection.Execute(mdbSQL)
While not(RS.EOF)
SQL = "INSERT INTO " & TableName & " ([CONTENT_ITEM_ID], [STATUS_TYPE_ID], [VISIBLE], [ARCHIVE], [CREATED], [MODIFIED], [LAST_MODIFIED_BY], [Рейс], [Флаг_рейса], [Аэропорт_вылета], [Аэропорт_прибытия], [Take_off_Airport], [Arrival_Airport], [Московское_время_вылета], [Московское_время_прибытия], [Местное_время_вылета], [Местное_время_прибытия], [Тип_самолета], [Aircraft_type], [Понедельник], [Вторник], [Среда], [Четверг], [Пятница], [Суббота], [Воскресенье], [Действительно_с], [Действительно_до], [Класс], [Class], [День_недели]) VALUES (" &_
LocalContentItemID & ", " &_
"131, " &_
"1, " &_
"0, " &_
"GETDATE(), " &_
"GETDATE(), " &_
"1, " &_
"'" & RS.Fields("REIS") & "', " &_
"NULL, " &_
"'" & RS.Fields("AIRPORT1_RUS") & "', " &_
"'" & RS.Fields("AIRPORT2_RUS") & "', " &_
"'" & RS.Fields("AIRPORT1_ENG") & "', " &_
"'" & RS.Fields("AIRPORT2_ENG") & "', " &_
"'1910-01-01 " & RS.Fields("TIME1_MOW") & "', " &_
"'1910-01-01 " & RS.Fields("TIME2_MOW") & "', " &_
"'1910-01-01 " & RS.Fields("TIME1_LOCAL") & "', " &_
"'1910-01-01 " & RS.Fields("TIME2_LOCAL") & "', " &_
"'" & RS.Fields("TBC") & "', " &_
"'" & RS.Fields("TBC_ENG") & "', " &_
"NULL, " &_
"NULL, " &_
"NULL, " &_
"NULL, " &_
"NULL, " &_
"NULL, " &_
"NULL, " &_
"'" & DateFormat(RS.Fields("INNV")) & "', " &_
"'" & DateFormat(RS.Fields("OFNV")) & "', " &_
"'" & RS.Fields("CLASS_RUS") & "', " &_
"'" & RS.Fields("CLASS_ENG") & "', " &_
"'" & RS.Fields("WEEKDAY") & "'" &_
")"
cnn.Execute(SQL)
Response.Write RS.Fields("REIS") & ", "
'Response.Write SQL & "
"
LocalContentItemID = LocalContentItemID + 1
RS.MoveNext
Wend
Response.Write("
Проимпортировано " & (LocalContentItemID - 1) & " рейсов.")
connection.Close
RS.Close
Set RS = Nothing
Set connection = Nothing
%><%
If Err.Number <> 0 Then
Response.write("Unable to display object 'import' 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("управление")
object1167O
Case Trim("закачка")
object949O
Case Trim("import")
object1168O
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("Управление") %>
<%
DisposeValues
cnn.Close
%>