Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование (VB,C#,ASP,.NET): новости, советы, примеры



Выпуск # 164


http://www.kbyte.ru/

 

Новый выпуск!

Дело было вечером, делать было нечего, и решил я выпустить рассылку с последними обновлениями сайта, строго не судите, но если есть что сказать, пишите, не молчите, буду рад ответить.

 

Содержание выпуска

Система ЭКСПЕРТ

    Вопрос #000389: Программный перевод компьютера в спящий режим

    Вопрос #000383: Локализация приложения

    Вопрос #000380: Visible and FOR

    Вопрос #000379: Ссылка в ВБ 6.0

    Вопрос #000376: Открыть окно браузера с результатами поиска

Последнее на форумах

    Почтовый клиент

    Не судите строго! Конструктивная критика приветствуется!

    Как правильно вызвать форму из DLL

    Программа или специальный скрипт к сайту...

    iframe

Последние статьи

    Работа с SQL – Запросы

    Использование XML.Serialization

    Выбор языка программирования для научных работ (2-я редакция)

    Работаем с MIME

    Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше

Интересные коды и решения

Юмор на Kbyte.Ru

 

Система ЭКСПЕРТ

 

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)


Вопрос #000389: Программный перевод компьютера в спящий режим

Автор вопроса: Игорь Голов // 23.07.2007 / 02:15

Доброго времени суток!
Возникла проблема - необходимо переводить компьютер в спящий режим из разрабатываемой программы.

Как это сделать?

Платформа: Microsoft Visual Basic 2005.

Спасибо!

--------------------------------------
Категория: --- Visual Basic .NET

Отвечает: EROS // 23.07.2007 / 09:38

Application.SetSuspendState Method
Suspends or hibernates the system, or requests that the system be
suspended or hibernated.
 
Подробности тут
 
С Уважением, EROS 

 

Вопрос #000383: Локализация приложения

Автор вопроса: weltkind // 21.07.2007 / 06:23

День добрый! В очередной раз обращаюсь к вам за помощью!!
Решил я перевести свою программку на другой язык (немецкий) решил
реаализовать это таким образом
в свойствах формы пункт Localizable выставить значение True
и всем обектам в пункте Text ввести соответствующие надписи на др языке
задать предварительно в свойствах формы в пункте Language выствить
необходимый мне язык но тут возникла проблема как реализовать
переключение языка непосредственно при выполнении так как в среде
разработке при изменении пункта Language с default на Dutch все надписи на
форме меняються а вот при выполненни незнаю как сделать
добавил сл код непомог:
System.Threading.Thread.CurrentThread.CurrentUICulture = New
System.Globalization.CultureInfo(тут вписывал код языка (1049)(1033) и
т.д.)
Помогите Плиз !!
Если вы знаете как можно по другому реализовать многоязычность сообщите...
Зарание Вам блгадарен!!

Отвечает: EROS // 21.07.2007 / 21:26

Здравствуйте, weltkind!
Ваш код, в принципе, верный. Но вы должны понимать как ЭТО работает.
Дело в том, что локализованные надписи на кнопках, надписях и т.д. загружаются в
процедуре InitializeComponent.. Отсюда можно сделать вывод, что если Вы
установите локаль ДО инициализации компонентов (например в
конструкторе формы Sub New), то у Вас все заработает...
Если же вы хотите менять надписи в режиме Run-Time, то это делается
примерно так...

'// EROS (VB 2005,ChangeUICulture Example)
'//
'// Устанавливаем нужную локаль
My.Application.ChangeUICulture("en-US") '// Англ. локаль
'// Получаем менеджера русурсов для этой локали
Dim resources As ComponentResourceManager = New ComponentResourceManager(Me.GetType)
'// Перебираем все контролы на форме и меняем надписи
For Each item As Control In Controls
resources.ApplyResources(item, item.Name)
Next
'// Это на тот случай если текст заголовка тоже локализованный
resources.ApplyResources(Me, "$this")
'// Наслаждаемся результатом

--
С уважением,
EROS

 

Вопрос #000380: Visible and FOR

Автор вопроса: Taras // 21.07.2007 / 06:23

Здраствуйте!
У меня такой вопросик
создал я форму на ней розместил 4 текстовых поля (1 для ввода количиства видимых текстовых полей, видимый)
3 невидимых тексттовых поля (невидимы)
кнопку которой присвоил следущее значение
Dim i As Integer
Dim n As Integer
n = text1.text
For i=0 to n
text(n).visible = true
next

после того как мы задади текстовому полю 1 значение и нажмем на кнопку
в зависимости от заданого числа станут видимыми н-ное количиство текстовых форм
но после нажатия на клавишу проесходить ошибка...
Где моя ошибка?

--------------------------------------
Категория: --- Visual Basic 5.0/6.0

Отвечает: Алексей Немиро // 21.07.2007 / 07:04

Здравствуйте, Тарас!

Специально для вас накатал небольшой, но интересный пример :)

Создайте стандартный EXE-проект и просто вставьте ниже следующий код:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
Option Explicit
'Пример динамического создания контролов VB 6.0
'Автор примера: Немиро Алексей, 21 июля 2007 года
'Специально для проекта Kbyte.Ru (http://kbyte.ru)
'Copyright (c) Nemiro AS, 2007
'mailto:admin@kbyte.ru

'регистрируем обработчик событий для кнопки - cmdRefresh
Private WithEvents cmdRefresh As CommandButton

Private Sub Form_Load()
 'подгоняем размер формы
 Form1.Width = 6000
 Form1.Height = 4000

 'добавляем надпись - Label
 Form1.Controls.Add "VB.Label", "Label1"
 With Form1!Label1
  .Top = 120
  .Left = 120
  .AutoSize = True
  .Caption = "Введите число:"
  .Visible = True
 End With

 'Добавляем текстовое поля для ввода чисел
 Form1.Controls.Add "VB.TextBox", "txtNum"
 With Form1!txtNum
  .Top = 120
  .Left = Form1!Label1.Width + Form1!Label1.Left + 120
  .Height = 300
  .Width = 500
  .Text = 0
  .Visible = True
 End With

 'Добавляем кнопку
 Set cmdRefresh = Controls.Add("VB.CommandButton", "cmdRefresh")
 With Form1!cmdRefresh
  .Top = 120
  .Left = Form1!txtNum.Width + Form1!txtNum.Left + 120
  .Height = 320
  .Width = 1200
  .Caption = "Обновить"
  .Visible = True
 End With
 
End Sub

'Обработчик нажатия динамической кнопки
Private Sub cmdRefresh_Click()
 Dim i As Long
 If Not IsNumeric(Form1!txtNum.Text) Then MsgBox "Допускаются только числа!", vbExclamation: Exit Sub

 'удаляем все контролы с именем txtArr
g:
 For i = 0 To Form1.Controls.Count - 1
  If Left(Form1.Controls(i).Name, 6) = "txtArr" Then
  Form1.Controls.Remove Form1.Controls(i).Name
  GoTo g
  End If
 Next i

 'Добавляем указанное количество текстовых полей
 For i = 0 To CLng(Form1!txtNum.Text)
  Dim sName As String
  sName = "txtArr" & i
  Form1.Controls.Add "VB.TextBox", sName
  With Form1.Controls(Form1.Controls.Count - 1)
   .Top = Form1.Controls(Form1.Controls.Count - 2).Height + Form1.Controls(Form1.Controls.Count - 2).Top + 20
   .Left = 120
   .Height = 300
   .Width = 1200
   .Text = "поле " & i
   .Visible = True
  End With
 Next i

End Sub



--
С наилучшими пожеланиями,
Немиро Алексей

Отвечает: Алексей Немиро // 21.07.2007 / 07:20

Dim i As Integer
Dim n As Integer
n = text1.text
For i=0 to n
text(n).visible = true
next


Если text - это массив текстовых полей, то n должен быть равен UBound(text) - 1
Для работы с массивами элементов управления, также можно использовать операторы Load и Unload:
001:
002:
003:
Load Text(UBound(Text))
Text(UBound(Text) - 1).Text = "заходи на http://kbyte.ru!"
Text(UBound(Text) - 1).Visible = True

или
001:
002:
003:
004:
005:
If UBound(Text) > 1 Then
For i = 1 To UBound(Text)
 Unload Text(i)
Next i
End If

или
001:
002:
003:
004:
005:
006:
007:
Dim i As Long
For i = 0 To 100
 Load Text(UBound(Text))
 Text(UBound(Text) - 1).Text = "текстовое поле #" & i
 Text(UBound(Text) - 1).Left = Text(UBound(Text) - 2).Left + Text(UBound(Text) - 1).Width + 20
 Text(UBound(Text) - 1).Visible = True
Next i

и т.д. и т.п.

--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000379: Ссылка в ВБ 6.0

Автор вопроса: Тарас // 21.07.2007 / 06:23

Здраствуйте :)

Вопрос:
Как добавить ссылку на Microsoft Excel
6/7/8/9.0 (или любую другую версию) Object Library
у меня VB 6.0 sp5 русская версия и при выборе в меню проект я там добовать ссылку не вижу :(
Если вас незатруднит пожалуйста скинте мне исходник по работе с екселем пожалуйста...
или более подробно разпишите, пожелуйста...
С уважением Тарас!!! :)

--------------------------------------
Категория: --- Visual Basic 5.0/6.0

Отвечает: Алексей Немиро // 21.07.2007 / 07:08

Здравствуйте, Тарас!

Меню Проект (Project) => Ссылки (Reference), появится окно "Ссылки (Reference)", установите
флажки на библиотеки, которые вы хотите добавить в проект, и нажмите "Ok".

PS: Microsoft Excel скорей всего не будет, поскольку Эксель - это
часть офиса, так что надо искать MS Office ;)

--
С наилучшими пожеланиями,
Немиро Алексей

 

Вопрос #000376: Открыть окно браузера с результатами поиска

Автор вопроса: Федоренко Дмитрий Константинович // 19.07.2007 / 06:36

Здравствуйте.

Ранее через вашу систему был получен ответ, как можно заносить в форму в текстовое поле одной программы значение из формы текстового поля другой программы.
При этом используются следующие функции для определения дескрипторов окна-формы и нужных элементов на нем:

h = FindWindow(vbNullString, ByVal "ИМЯ_ФОРМЫ")
hText = FindWindowEx(h, 0, vbNullString, ByVal "ИМЯ_ТЕКСТОВОГО_ЭЛЕМЕНТА")
или
hwnd1 = WindowFromPoint(cursorpos1.x, cursorpos1.y)

Ответ на данный вопрос был успешно дан экспертами вашей системы с помощью демонстративной программы UltraSpy с используемыми в ней данными функциями, которую можно скачать с вашего сайта по ссылке http://kbyte.ru/Samples/Show.aspx?id=182.

Но такое решение проблемы не помогает в случае, когда речь идет об окне-форме Internet Explorer.

Например в частном случае. Если пройти по ссылке www.yandex.ru и попробовать описанным выше методом получить дескриптор элемента (поля ввода) строки поиска, то он с помощью таких функции не находится (что и понятно, так как в данном случае это уже не элемент типа текст как в VB, а часть разметки HTML).

Как же поступить в данном случае, при условии, что мы не можем открыть страничку в виде HTML кода и посмотреть имя этой переменной (строки ввода текста)?


Заранее благодарю, Дмитрий.

Отвечает: Алексей Немиро // 19.07.2007 / 09:14

Здравствуйте, Дмитрий!

В случае с Яндекс (и любой другой поисковой системой), если Вы хотите,
чтобы Ваша программа открыла страницу с результатами поиска, то все
довольно просто:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
Option Explicit
Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
 ShellExecute 0, vbNullString, _
 "http://www.yandex.ru/yandsearch?stype=&nl=0&text=Kbyte.Ru", vbNullString, _
 vbNullString, SW_SHOWNORMAL
End Sub


В данном примере программа откроет страницу Яндекс с результатами
поиска слова Kbyte.Ru. Получить такой url можно на самом Яндекс, введя
в строку поиска слово поиска, и нажав на кнопку «Найти». В указанном
выше примере, достаточно просто поменять значение параметра text в url.

Данный способ можно применять только для GET-запросов.

--
С наилучшими пожеланиями,
Немиро Алексей

 


Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

 

 

Последнее на форумах

Почтовый клиент | Автор: Алексей
Добавлено: 25.07.2007 / 12:28 | ответов: 6 | просмотров: 10

Пользуетесь ли вы почтовыми клиентами, если да, то какими?

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: LeX
Добавлено:25.07.2007 / 14:09
Я пробовал аутглюком но потом перестал, т.к. он глючит и не дружит с avast'ом :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Berd
Добавлено:25.07.2007 / 14:17
Я так понял здесь он скоро будет - почтовый клиент?
Мне проще, я ведь живу на переулке Почтовом :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: Алексей
Добавлено:25.07.2007 / 14:32
Я пробовал аутглюком но потом перестал, т.к. он глючит и не дружит с avast'ом

а если не секрет, что конкретно тебя не устроило в аутглюке? Ведь он довольно простой..
И что значит не дружит с avast-ом? Он его, что бьет, пинает, кусает,
игрушки отбирает :))

Я так понял здесь он скоро будет - почтовый клиент?

Нет :) просто я хочу понять, почему некоторые люди не используют почтовые клиенты :)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: LeX
Добавлено:25.07.2007 / 15:17
Он не работает когда включен аваст и почему-то не принимает письма :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 5 | Автор: Алексей
Добавлено:25.07.2007 / 15:29
Он не работает когда включен аваст и почему-то не принимает письма

просто надо было его настроить ;)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 6 | Автор: EROS
Добавлено:25.07.2007 / 19:45
я хочу понять, почему некоторые люди не используют почтовые клиенты :)

ответ до банального прост.. недостаточно навыков дя настройки клиента...
лично я предпочитаю обычный аутлук..

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Не судите строго! Конструктивная критика приветствуется! | Автор: Игорь Голов
Добавлено: 25.07.2007 / 00:15 | ответов: 2 | просмотров: 15

Пробую сделать свой сайт:
http://it-shark.3dn.ru

Хочу узнать как можно больше мнений о содержимом сайта.
Советы ещё никому и никогда не вредили, не так ли? :)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Алексей
Добавлено:25.07.2007 / 04:51
Дизайн у UcoZ-а как всегда нормальньй :)
http://it-shark.3dn.ru/index/0-4 - эта страничка у меня не помещается по ширине, видимо что-то с html-ом не так. (1024x768)
http://it-shark.3dn.ru/dir/ - хорошо :)

В общем сказать не чего, поскольку содержимого сайта как такогового пока нет. Если судить по заголовку "Жизнь и Творчество Маленького Человека", могу порекомендовать завести блог, с ним меньше хлопот будет.


зы: я ярый противник использования готовых движков :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: EROS
Добавлено:25.07.2007 / 08:37
я ярый противник использования готовых движков

присоеденяюсь..
Более того, если я вижу что это шаблон.. (phpBB,UcoZ и прочая фигня) - закрываю не читая.. Так что сорри, контент (если таковой имеется) даже не смотрел..

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Как правильно вызвать форму из DLL | Автор: Игорь Голов
Добавлено: 24.07.2007 / 20:36 | ответов: 3 | просмотров: 18

Доброго времени суток!
Требуется Ваша подсказка:
Как правильно вызвать Форму из DLL?
Необходимо, чтобы отрабатывали события формы.

Спасибо!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: EROS
Добавлено:24.07.2007 / 21:11
А в чем, собственно, проблема? Объявляешь переменную с ключевым словом WithEvents и нужным типом,создаешь объект (твоя форма).. и обрабатывай любые события.. Граблей тут в принципе не может быть!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Игорь Голов
Добавлено:25.07.2007 / 17:37
Если можно приведите, пожайлуста, примерчик.
Огромное спасибо!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: EROS
Добавлено:25.07.2007 / 22:26
Набросал простенький пример.. В примере реализовал "фирменную" форму kbyte.ru :-) и эффект плавного появления,чтоб наглядней было..
По примеру ты сможешь понять следующие моменты:
- Наследование формы
- Вызов формы из dll
- Реализация и передача событий
- Преобразование Image из ресурсов в Icon программно
- Создание и использование своего UserControl'a
- ну и еще кое что по мелочи...

P.S. Тестовый проект прикреплен с сообщению...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Программа или специальный скрипт к сайту... | Автор: Kolya007
Добавлено: 24.07.2007 / 03:03 | ответов: 6 | просмотров: 35

Возможно ли создать программу, а лучше специальный скрипт (файл), который независимо от пользователей(есть они или нет) проверял БД один раз в неделю, и при необходимости создавал файл по образцу, с некоторыми изменениями...
Файл образец news_s.txt... Создаваемые файлы news_s1.asp(есть, сделан вручную), news_s2.asp(нет), news_s3.asp(нет), news_s№.asp... № - id раздела получаемый из БД... Изменения должны будут касаться того, что нлишь SQL запроса в конечных файлах, а именно будет меняться содержимое "" в WHERE news_section=""

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Алексей
Добавлено:24.07.2007 / 03:40
Нормальный хостер должен предоставлять что-нибудь типа Crontab (планировщик задач), который позволяет запускать любые странички на сайте, с любыми параметрами, в любое время, или через определенный интервал времени.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Kolya007
Добавлено:24.07.2007 / 09:08
Понятно...))
А как сделать, чтобы программа(скрипт) при необходимости создавала файл по образцу, с некоторыми изменениями?..

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: EROS
Добавлено:24.07.2007 / 21:31
А как сделать, чтобы программа(скрипт) при необходимости создавала файл по образцу, с некоторыми изменениями?..

Налицо явное непониманимание принципов и понятий Web-технологии.. Позволю себе прокомментировать слова Алексея..
который позволяет запускать любые странички на сайте
Суть сказанного заключается в следующем:
К примеру, у тебя имеется страница job.aspx, и Cron-сервис хостера запускает ее, скажем, раз в сутки.. Страница состоит из 2 частей.. 1. Html-код(которого у тебя может и не быть) и 2. файл кода.. так называемый CodeBehind, это по сути обычный класс(знакомый тебе по WinForms)..Этот класс так же обладает событиями Init,Load и т.д... Так вот, в любои из подходящих событии страницы ты (как обычно) открываешь файл , вносишь изменения и сохраняешь под нужным тебе именем.. вот и все!
Граблей, на которые ты можешь наступить, навскидку я вижу двое.. 1. Это получения абсолютного физического пути к файл находящемуся на сервере.. это легко решается через Server.MapPath и 2. Судя по твоему посту ты собираешься создавать asp файлы.. Так вот налицо явная проблема с архитектурой.. так никто не делает! Страница для отображения новостей должна быть всего одна! Тебе необходимо в строке запроса передать параметр этой страницы.. например news.asp?section=1234 Далее при загрузке страницы ты получаешь номер секции (или что у тебя там).. в нашем случае это 1234 и показываешь пользователю нужную секцию,которую ты через сформированный запрос будешь получать из БД.. вот и все!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: Kolya007
Добавлено:24.07.2007 / 21:49
EROS, тот вариант провалился... Т.к. без теста, я страницу готовой несчитаю... А при тесте на моем ПК он высвечивал ошибки, которых в помине быть немогло... См. предыдущие темы "Вопрос по RecordSet", если я правельно помню название...))
По поводу
А как сделать, чтобы программа(скрипт) при необходимости создавала файл по образцу, с некоторыми изменениями?..

Налицо явное непониманимание принципов и понятий Web-технологии.. Позволю себе прокомментировать слова Алексея..

Я имел ввиду пример кода, на всякий случай...))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 5 | Автор: Алексей
Добавлено:25.07.2007 / 05:01
Добавить в избранное | Рассказать другу | Ответить
EROS, тот вариант провалился... Т.к. без теста, я страницу готовой несчитаю... А при тесте на моем ПК он высвечивал ошибки, которых в помине быть немогло...

если ты не можешь настроить нормально IIS, то тестируй на сервере ;)

Я имел ввиду пример кода, на всякий случай...))

попробуй поюзать CreateObject("Scripting.FileSystemObject"), или стандартные VB-функции (см. справочники), если конечно они работают в ASP. Но как сказал EROS, это довольно кривой вариант.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 6 | Автор: Kolya007
Добавлено:25.07.2007 / 15:01
если ты не можешь настроить нормально IIS, то тестируй на сервере ;)

IIS настроен по умолчанию...))
попробуй поюзать CreateObject("Scripting.FileSystemObject"), или стандартные VB-функции (см. справочники), если конечно они работают в ASP. Но как сказал EROS, это довольно кривой вариант.

Я знаю, но что поделать...))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


iframe | Автор: Kolya007
Добавлено: 21.07.2007 / 04:22 | ответов: 15 | просмотров: 132

На странице есть iframe, использую его, т.к. include несрабатывает с ASP страницами...
Вопрос: Возможно ли сделать так чтобы iframe при необходимости увеличивался, т.е. менял значение height... Запись height="*" и height="100%" неподходит...
Или дайте совет по include, что будет лучше...

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Алексей
Добавлено:21.07.2007 / 06:20
На странице есть iframe, использую его, т.к. include несрабатывает с ASP страницами...

моя твоя не понимать :)

Вопрос: Возможно ли сделать так чтобы iframe при необходимости увеличивался, т.е. менял значение height... Запись height="*" и height="100%" неподходит...

хз, юзай JavaScript тогда..

зы: iframe - das nicht gut

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Kolya007
Добавлено:21.07.2007 / 12:35
моя твоя не понимать :)

Вместо
001:
<!--webbot bot="Include" U-Include="sections/news_s1.asp" TAG="BODY" -->

испльзую
001:
<iframe name="news" frameborder="no" height="100%" width="100%" align="top" marginheight="0" marginwidth="0" scrolling="no" src="sections/news_s1.asp"></iframe>

т.к.
001:
<!--webbot bot="Include" U-Include="sections/news_s1.asp" TAG="BODY" -->

несрабатывает из-за .asp, будь он .htm или .html, то все бы работало...
хз, юзай JavaScript тогда..

зы: iframe - das nicht gut

Мне надо, чтобы он вместо выдавания скрола(scrolling), менял значение height на необходимый...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: Алексей
Добавлено:21.07.2007 / 13:02
Вместо
001:
<!--webbot bot="Include" U-Include="sections/news_s1.asp" TAG="BODY" -->

испльзую
001:
<iframe name="news" frameborder="no" height="100%" width="100%" align="top" marginheight="0" marginwidth="0" scrolling="no" src="sections/news_s1.asp"></iframe>

т.к.
001:
<!--webbot bot="Include" U-Include="sections/news_s1.asp" TAG="BODY" -->


несрабатывает из-за .asp, будь он .htm или .html, то все бы работало...


А что мешает юзать обычный инклуд?
001:
<!--  #include file ="sections/news_s1.asp"   -->


зы: FrontPage - das nicht Gut.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: Kolya007
Добавлено:21.07.2007 / 13:30
А что мешает юзать обычный инклуд?

То же, что и
001:
<!--webbot bot="Include" U-Include="sections/news_s1.asp" TAG="BODY" -->

Он несрабатывает...
зы: FrontPage - das nicht Gut.

Его я использую, толька для упрощения работы с сайтом... Просто все команды и операторы нельзя запомнить сразу...))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 5 | Автор: Алексей
Добавлено:21.07.2007 / 13:38
Он несрабатывает...

вероятно проблема в сервере, хотя по умолчанию в IIS все должно работать.

Его я использую, толька для упрощения работы с сайтом... Просто все команды и операторы нельзя запомнить сразу...))

Какой-нибудь Macromedia Dreamweaver по-моему гораздо лучше.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 6 | Автор: Kolya007
Добавлено:21.07.2007 / 13:46
Какой-нибудь Macromedia Dreamweaver по-моему гораздо лучше.

Знаю, но его у меня нет... А искать нет желания...
вероятно проблема в сервере, хотя по умолчанию в IIS все должно работать.

Скорее всего, ведь ОС пиратская...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 7 | Автор: Алексей
Добавлено:21.07.2007 / 14:00
Скорее всего, ведь ОС пиратская...

Это тут явно не причем :)

В чем именно выражает не работоспособность include?

Инклуды бывают разные:
<!--#include virtual=""--> - виртуальный путь к файлу
<!--#include file=""--> - физический путь к файлу

код тоже можешь показать, может там чего не так...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 8 | Автор: Kolya007
Добавлено:22.07.2007 / 04:07
Инклуды бывают разные:
<!--#include virtual=""--> - виртуальный путь к файлу
<!--#include file=""--> - физический путь к файлу

Я пробовал оба... Но результат нулевой... Он его словно пропускает...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 9 | Автор: Алексей
Добавлено:22.07.2007 / 04:11
С file полюбому должен работать...
Во включаемоме asp-файле asp-код должен быть записан в тэгах <%%>.
Еще попробуй изменить расширение файла на .inc.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 10 | Автор: Kolya007
Добавлено:22.07.2007 / 16:19
Еще попробуй изменить расширение файла на .inc.

Так вставляет, но только фон... А точнее говоря меняет имеющийся фон, на фон вставляемой страницы...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 11 | Автор: Алексей
Добавлено:23.07.2007 / 03:45
Так вставляет, но только фон... А точнее говоря меняет имеющийся фон, на фон вставляемой страницы...

код в студию! (фрагмент +/- 10 строк от инклуда, и содержимое самого включаемого файла)
Если он меняет фон, значит ты его заставил это сделать :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 12 | Автор: Kolya007
Добавлено:23.07.2007 / 14:19
001:
002:
003:
004:
<!--  #include file ="sections.inc"   -->
<!--  #include virtual ="sections.inc"   -->
<!--  #include file ="sections.asp"   -->
<!--  #include virtual ="sections.asp"   -->

Все 4 варианта меняют имеющийся фон, на фон вставляемой страницы...
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DBpath = Server.MapPath("./db/db.mdb")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM news_sections"
RS.Open strSQL, Conn
%>
<html>
<head>
<title></title>
<link href="section.css" rel="stylesheet" type="text/css">
</head>
<body>
<!-- Разделы, темы и т.д. -->
<%
If RS.EOF = true Or RS.BOF = true Then
Response.Write("<br>База данных пуста<br>")
Else
Do While Not RS.EOF
If RS.EOF = true Or RS.BOF = true Then Exit Do
Response.Write("<table width='190' align='center' border='0' class='l_n'>" & _
"<tr><td align='center' colspan='2' class='l_n'>" & _
"<img align='middle' height='10' width='190' src='./info/img/last_news/fon_table_top.jpg'></td></tr>" &_
"<tr><td><p align='center'>" & _
"<a href='sections/news_s" & RS.Fields("id_section") & ".asp' target='news'>" & RS.Fields("section") & _
"</a></p></td></tr>" & _
"<tr><td align='center' colspan='2' class='l_n'>" & _
"<img align='middle' height='10' width='190' src='./info/img/last_news/fon_table_bottom.jpg'>" & _
"</td></tr></table>")
RS.MoveNext
Loop
End If
%>
</body>
</html>
<%
RS.Close
Conn.Close
%>

Это вставляемая страница...
------------------------------------
А это в которую вставляю(вариант с iframe вместо include)
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
<html>
<head>
<title></title>
<link href="news.css" rel="stylesheet" type="text/css">
</head>
<body>
<table border="0" height="100%" width="100%">
<tr>
<td height="20%" width="*" align="center" valign="center" colspan="2">
<img align="middle" height="150" width="550" src="./info/logo/logo_text.gif" border="0">
</td>
</tr>
<tr>
<td height="*" width="20%" align="center" rowspan="2" valign="top">
<!-- Разделы, темы и т.д. -->
<iframe frameborder="no" height="100%" width="200" align="top" marginheight="0" marginwidth="0" scrolling="no" src="section.asp">
</iframe>
</td>
<td height="5%" align="center" valign="center" width="*">
<!-- Главные ссылки -->
<!--webbot bot="Include" U-Include="./menu/i_menu.htm" TAG="BODY" startspan -->
<table align="center" border="0" height="100%" width="100%">
<tr>
<td valign="top">
<a href="./index.htm"><img align="middle" src="./info/link/index.jpg" border="0"></a>
</td>
</tr>
</table>
<!--webbot bot="Include" i-checksum="62472" endspan --></td>
</tr>
<tr>
<td height="*" width="*" align="center" valign="top">
<!-- Новости -->
<iframe name="news" frameborder="no" height="100%" width="100%" align="top" marginheight="0" marginwidth="0" scrolling="no" src="sections/news_s1.asp">
</iframe>
</td>
</tr>
</table>
</body>
</html>

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 13 | Автор: Алексей
Добавлено:23.07.2007 / 14:40
Интересно, что ты хочешь увидеть в результате, если вставляемая страница у тебя "полноценная", т.е. имеет тэги <html>, <body> и даже stylesheet :) посмотри html, который выведет подобный вариант ;)

Инклуды должны содержать только те данные, которых нет на странице, в которую они вставляются. Инклуды будут продолжением страницы, в которую вставляются.

Например:

default.asp
001:
002:
003:
004:
005:
006:
<html>
<head>
<title><!--#include file="include/title.inc" --> </title>
<link href="home.css" rel="stylesheet" type="text/css">
</head>
<body>


include/title.inc
001:
Просто текст


Результат будет таким:
001:
002:
003:
004:
005:
006:
<html>
<head>
<title>Просто текст</title>
<link href="home.css" rel="stylesheet" type="text/css">
</head>
<body>


В общем, что содержит включаемый файл, то и будет вставлено один к одному в конечную страницу.

По фреймам, есть такая штука, фрамесит называется:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
<frameset rows="24,*,110" cols="776*" frameborder="no" border="0" framespacing="0" scroll="no">
  <frame src="top_menu.asp">
  <frameset rows="*" cols="*,200" framespacing="0" frameborder="NO" border="0">
    <frame src="main.asp" name="shmsg">
    <frame src="userlist.asp" name="rightFrame" scrolling="NO" noresize>
  </frameset>
  <frame src="add.asp" name="sendmsg" scrolling="NO" noresize >
</frameset>


Кусок майн пейджа asp-чата

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 14 | Автор: Алексей
Добавлено:23.07.2007 / 14:45
ps: атрибут virtual обычно под IIS не используют, скорей всего он даже не работает (покрайней мере в ранних версиях iis не работал), надо юзать file.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 15 | Автор: Kolya007
Добавлено:24.07.2007 / 00:54
Все ок... Спасибо...))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Наверх

 

Последние статьи

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 436

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 41

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 1670

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 1617

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

Visual Basic 2003/2005 .NET: Взаимодействие с Microsoft Word 2000 и выше
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 05.10.2006 / 12:15 | просмотров: 2994

Эта статья будет полезна только тем людям, у которых установлен Microsoft Word 2000 или выше! Мы научимся делать всё возможное с документами MS WORD при помощи VB 2003/2005 .NET.

 

Статьи на Kbyte.Ru

Наверх

 

Интересные коды и решения

Как программно изменить тему страницы?
Дата добавления: 31.07.2006 / 13:40 | просмотров: 668 | платформа: ASP .NET (VB)

Как преобразовать цвет в Web-стандарт?
Дата добавления: 24.03.2007 / 11:37 | просмотров: 96 | платформа: VB .NET

Класс доступа к данным SQL Server
Дата добавления: 24.03.2007 / 11:48 | просмотров: 172 | платформа: VB .NET

Как можно скрыть курсор мышки?
Дата добавления: 16.08.2006 / 19:48 | просмотров: 392 | платформа: VB

Как запретить пользователю перемещать форму?
Дата добавления: 31.07.2006 / 12:05 | просмотров: 356 | платформа: VB

Как сделать Label с тенью?
Дата добавления: 16.08.2006 / 23:42 | просмотров: 536 | платформа: VB

Как преобразовать десятичное число в бинарное?
Дата добавления: 16.08.2006 / 20:32 | просмотров: 495 | платформа: VB

Перекодировка текста из DOS в Windows и обратно
Дата добавления: 31.07.2006 / 12:31 | просмотров: 575 | платформа: VB

Поиск и замена символов/слов/строк
Дата добавления: 31.07.2006 / 12:28 | просмотров: 1253 | платформа: VB

Как получить содержимое каталога?
Дата добавления: 31.07.2006 / 17:31 | просмотров: 491 | платформа: ASP .NET (VB)

 

Универсальные коды на Kbyte.Ru

Наверх

 

Юмор на Kbyte.Ru

В США борьба за равноправие привела к тому, что теперь женщины приравниваются к неграм, голубым и инвалидам.

 

Рейтинг: 10
Всего голосов: 12
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- А ну-ка быстро доедай белок - он самый полезный.
- Ма-ам, но я вообще не люблю глаза.

 

Рейтинг: 32
Всего голосов: 54
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

- Почему реки мелеют летом?
- Потому что очень жарко, и рыба много пьёт.

 

Рейтинг: 322
Всего голосов: 460
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Не верь, не бойся, не проси - азы вождения автомобиля в городе Москве.

 

Рейтинг: 297
Всего голосов: 399
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Дамочка привела сына в зоопарк и остановилась у бассейна.
- Видишь, Вася, это кит.
- Простите, мадам, это крокодил, - поправил ее служитель, стоявший рядом.
- Нет, это кит! - упорствовала дама.
В этот момент животное выбралось на сушу.
- Ну, что вы на это скажете? - победоносно воскликнул служитель.
- Киты ведь никогда не выходят на берег!
- Чепуха! Вы же сами видите: иногда выходят!

 

Рейтинг: 3
Всего голосов: 5
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Программер снял тёлку и приволок домой. Во время этого дела у гёрлы случился эпилептический припадок.
Она стала биться в конвульсиях, извиваться и стонать. Парниша получил, такой кайф, которого у него никогда не было. Ну слез он с неё, а она всё в припадке бьётся. Вызвал он скорую. Врач спрашивает, в чём дело?
- Да, кажись, у неё оргазм завис!

 

Рейтинг: 340
Всего голосов: 453
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Хакер приходит к специалисту по паранормальным явлениям:
- Доктор, помогите мне! У меня дома такое творится. Диски по комнате летают, сами в компьютер ставятся и Windows устанавливают!
- У-у! Батенька, да у вас полтерГейтс!

 

Рейтинг: 32
Всего голосов: 52
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Урок русского языка. Учительница спрашивает детей привести пример на окончание -тся. Отвечает Маша: "Мама стирается."
Учитель: "Садись. Пять."
Отвечает Петя:" Файл копируется."
Учитель:"Садись. Пять. Ну а Вовочка твой пример?"
Вовочка:"Корова залезла на дерево."
Учитель:"Ну и что?"
Вовочка:"Сейчас на@бн%тся!"

 

Рейтинг: 0
Всего голосов: 0
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Студент сдаёт экзамен по физике. Сдаёт очень плохо. Профессор пытается его вытянуть, спрашивает:
- Ну скажите хотя бы, при какой температуре кипит вода?
- Профессор, я не знаю, при какой температуре она кипит, но я знаю, что при 40 градусах она превращается в водку!

 

Рейтинг: 75
Всего голосов: 109
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Играю в DOOM по переписке.

 

Рейтинг: 40
Всего голосов: 63
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное