Программирование (VB,C#,ASP,.NET): новости, советы, примеры (comp.soft.prog.vbaspsharpnet) : Рассылка : Subscribe.Ru

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

Вопрос #001017: Бесплатные программы

Автор вопроса: Sarj // 03.06.2008 / 08:56

Уважаемые эксперты, поскажите пожалуйста бесплатный аналог Corel Draw. Очень надо...
 
 .....

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

Здравствуйте, Sarj.
 
 http://inkscape.org/
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #001014: Avi и Mpeg4 в Visual Basic

Автор вопроса: алексей // 02.06.2008 / 12:36

Как можно проигрывать эти форматы в вижал бэйсик? Пример на сайте не работает.
 
 .....

Отвечает: Алексей Немиро // 02.06.2008 / 12:43

Здравствуйте, Алексей.
 
 Можно использовать MediaPlayer. Для этого его нужно подключить к
 проекту через меню Project (Проект) -> Components (Компоненты), в
 появившемся окне найти и выбрать
Windows Media Player. Далее, в
 панели инструментов должна появиться иконка плеера, который можно
 разместить на форме. Указать файл для проигрывания можно
 в свойство URL, или FileName в зависимости от версии проигрывателя.
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000952: Обработка файлов в C# (.NET 2.0)

Автор вопроса: Сергей // 09.05.2008 / 18:07

Доброе время суток!
 В общих словах, такая задача поставлена передо мной: На веб-странице 
 пользователь выбирает файл, нажимает кнопку "Импорт" и из этого файла 
 данные импортируются в таблицу БД Oracle.
 Файл должен быть
текстовым, первые 2 строки- информация о времени и 
 логине того, кто выгружал. После них идут строки данных, поля 
 разделяются симоволом | .
 Просьба дать ссылки на документацию по работе с файлами, которые могут 
 помочь :-)

Отвечает: Алексей Немиро // 12.05.2008 / 10:34

Здравствуйте, Сергей.
 
 Необходимые классы и функции для работы с файлами лежак в пространстве имен System.IO. Также Вам могут понадобиться классы для работы с регулярными выражениями, которые лежат в пространстве имен System.Text.RegularExpressions.
 Что касается импорта файлов, то данные можно взять прямо из потока FileUpload.PostedFile.InputStream, передать их в StreamReader
и обработать при помощи регулярных выражений. 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000947: Секундомер

Автор вопроса: Александр // 08.05.2008 / 17:40

Добрый день!
 Как сделать секундомер на сайте kbyte.ru много но вот все они выдают результат как 345сек, а мне надо 1:45:01 то есть в временом формате. Как сделать???
 
 .....

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

Здравствуйте, Александр.
 
 Зная, что в минуте 60 секунд, в часе 60 минут, а в сутках 24 часа, можно легко превратить 345 секунд в нужный формат.
 001:
002:
003:
004:
005:
006:
007:
008:
009:
Dim sec As Integer
sec = 345
Dim ssec As Integer, min As
Integer, hour As Integer
If sec > 59 Then
 min = Int(sec / 60)
 ssec = sec Mod 60
End If
If min > 59 Then
hour = Int(min / 60)
MsgBox sec & " сек. = " & hour & " ч. " & min & " мин. " & ssec & " сек."

 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000937: DLOOKUP??

Автор вопроса: Алексей // 05.05.2008 / 16:37

Почему те поля формы, которые имеют в ControlSource функцию Dlookup не записывают значение полей в конечную таблицу?
 
 --------------------------------------
 Категория: --- MS Access

Отвечает: Алексей Немиро // 06.05.2008 / 05:24

Здравствуйте, Алексей.
 
 Из справки MS Access: Функция Dlookup
 При использовании этой функции не учитываются
 несохраненные изменения записей подмножества. Если функция
 DLookup должна использовать измененные значения, необходимо сначала сохранить
 изменения с помощью команды Сохранить запись
в меню
 Записи, с помощью перемещения фокуса на другую запись или
 метода Update.

 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

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

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

Наверх

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

Группировка полей в гриде из MS SQL 2005 | Автор: bobsapp
Добавлено: 17.08.2009 / 21:00 | ответов: 1 | просмотров: 36

Народ, будьте добры, подскажите как организовать группировку полей из БД?
Есть такая таблица:
id_code val deflt id_category
1 A1 1 1
2 B1 1 1
3 C1 1 1
1 A2 0 2
2 C2 0 2
3 B2 0 2
1 A1 0 3
2 A2 0 3
3 A3 0 3

Мне нужно получить следующий результат по этой таблице:
-----------
deflt = 1 |
-----------------------
1. 'A1' + 'B1' + 'C1' |
-----------------------

-----------
deflt = 0 |
-----------------------
2. 'A2' + 'C2' + 'B2' |
3. 'A1' + 'A2' + 'A3' |
-----------------------
Как сгруппировать данные?
В данном случае вначале записи деляться на deflt = 1 и deflt = 0.
Затем, каждая уникальная запись, это id_category и список из компонования val согласно id_code.

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

Ответ # 1 | Автор: bobsapp
Добавлено:18.08.2009 / 15:40
ааа, я наверное не ясно вообще написал.
вывод нужен на страничке асп.нет

в какой грид или рипитер я ещё незнаю. в принципе не важно, главное результат.
можно в литерал

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

Реализация настраиваемого приложения | Автор: Revenant
Добавлено: 17.08.2009 / 12:03 | ответов: 1 | просмотров: 37

Всем доброго времени суток!

Мне нужно сделать настраиваемое приложение (есть окно настроек с чекбоксами радиобаттонами, назначением хот киев и тд.), чтоб после нажатия на кнопку "сохранить изменения" все тут же вступало в силу.
Я никогда не работал с этим и не знаю с чего начать.. Как и какими средствами это реализовать в .NET?

ЗЫ тут же спрошу.. Как программно настроить чтоб приложение запускалось при старте системы?

Заранее благодарен)

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

Ответ # 1 | Автор: Revenant
Добавлено:18.08.2009 / 14:10
С настраиваемым приложением я разобрался, помог сайт CodeProject.com)

По поводу автозагрузки тема еще в силе

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

Hex-Редактор на VB | Автор: Chaosito
Добавлено: 17.08.2009 / 02:41 | ответов: 4 | просмотров: 84

Здравствуйте! Можно ли сделать в VB 6.0, хекс-редактор..., вернее, редактировать отдельные байты файла.
Например мне нужно изменить оффсет 2062, в шестнадцатиричной системе это 80E,
значит мне нужно изменить значение на смещении 0x0800 и 0E...
Дак вот к примеру в койнидь текстбокс, я ввожу значение, прога открывает файл в бинарном режиме,
а дальше как... перемещение, изменение и сохранение по этим всем дебрям осуществить?

Вот скрин сделаный из hex-эдитора: http://chaosito.narod.ru/FromHexEditor.JPG

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

Ответ # 1 | Автор: Алексей
Добавлено:17.08.2009 / 06:59
Работа с бинарными файлами
Функция Seek
Функция Loc
Функция HEX
Функция MID - для извращения со строками.
Остальное дело техники, т.е. мозга и пальцев :)

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

Ответ # 2 | Автор: Chaosito
Добавлено:17.08.2009 / 16:57
Спасибо за ответ... Получилось!
Уже было отчаялся и начал писать о просьбе помочь... написал начал перечитывать и тут навело на кое-какие мысли... и все заработало!!! =))

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

Ответ # 3 | Автор: Chaosito
Добавлено:17.08.2009 / 21:46
Ну вот я и вернулся с новым, даже не вопросом, а багом каким то ))

Кароч прочитать у меня все получилось, вот:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
Private Sub Command1_Click()
Dim MyFile As Integer, i As Long
Dim usr As Byte
MyFile = FreeFile
Open ("C:\Audio.bin") For Binary As #MyFile
For i = 2055 To 2070
  Get #MyFile, i, usr
  lvlVolume(i - 2055).Text = usr
Next
Close #MyFile
End Sub

Colorized by: Eros.CodeSyntaxColor Engine

А вот записать не получается....

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
Dim MyFile As Integer, i As Long
Dim usr As Byte
MyFile = FreeFile
Open ("C:\Audio.bin") For Binary As #MyFile
For i = 2055 To 2070
  Put #MyFile, i, Hex(Val(lvlVolume(i - 2055).Text))
Next
Close #MyFile

Colorized by: Eros.CodeSyntaxColor Engine

При использовании без перевода в 16ую систему (Hex), вб заплняет все байты с 2055 по 2070 - нулями... А при переводе (Hex, как в примере выше) заполняет эти байты восьмерками....

Вот сижу и думаю теперь что может быть не так....

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

Ответ # 4 | Автор: Chaosito
Добавлено:17.08.2009 / 22:00
И так решение проблемы нашел... видимо опять нужно было подумать подольше =)
перебрал преобразования типов Val, Hex... Пробовал переприсвоением.. заметил что значения при записи меняются... значит проблема крылась где то в типах... потом решил проверить а нет ли преобразования Byte... такого не оказалось... зашел в Object Browser, написал Int... перешел к списку приставок преобразований... и увидел CByte, подписав ее в код все получилось :)

Сам код:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
Dim MyFile As Integer, i As Long
Dim usr As Byte
MyFile = FreeFile
Open ("C:\Audio.bin") For Binary As #MyFile
For i = 2055 To 2070
Put #MyFile, i, CByte(lvlVolume(i - 2055).Text)
Next
Close #MyFile

Colorized by: Eros.CodeSyntaxColor Engine

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

*.exe запускает другой *.exe | Автор: towayy
Добавлено: 12.08.2009 / 19:44 | ответов: 10 | просмотров: 227

Visual Basic 6.0
Я не очень силён в WIN API но полагаю без него не обойдётся.

Помогите пожалуйста с кодом.
Как написать программу которая делала бы следующее:
Запускала из моего *.exe совсем другой *.exe фаил.
Ну пример:
Есть моя программа с названием project1.exe
+
есть программа уже кем то созданная ну например игра saper.exe
как зделать так что бы запустив двойным кликом project1.exe произошло обращение в машине и открылся за ним следом saper.exe?

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

Ответ # 1 | Автор: GAV_Alexey
Добавлено:12.08.2009 / 21:28
001:
002:
003:
004:
005:
Set FSO = CreateObject("Scripting.FileSystemObject")
Shell """Полный путь""", vbNormalFocus
Unload Me

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 2 | Автор: GAV_Alexey
Добавлено:12.08.2009 / 21:43
Тебе нужна только средняя строка

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

Ответ # 3 | Автор: towayy
Добавлено:12.08.2009 / 23:49
Спасибо всё работает.
Что то я совсем видимо с WIn API сегодня перегрелся напроч. Как я так забыл о Shell ("") не раз её для приколов использовал =)

Ещё вопрос дабы не разводить лишние посты. Подскажите что мне нужно знать что бы начинать уже заниматься изучением WIN API ?
Я скачал учебник автора DAN APPLEMAN . 1000 с лишним страница посвящёных исключительно WIN API (Может мне нужно в VB 6 в начальный этап к какойто теме вернуться и нормально её подтянуть?) незнаю. Но к какой?
По правде говоря на странице 59 у меня реально пошёл перегрев головы. Это прям какойто заворот мозгов.
Понял что мне ещё видимо рано на него суваться..
подскажите какой фундамент из VISUAL BASIC мне нужно под себя заложить что бы я смог уже чтото там понимать?
Какето объявленипия всё идут и идут . Функций тьма применяется уже в начале учебника.
Думал там коды будут для новичков хоть поменьше и со временем нарастать будут. Так нет там уже чутьли не на первых страницах коды минимум по 20 строчек.
Амперсандов (&)натыкана куча. Что делают зачем они там. Половины операторов просто не расписано ка что работает. Какая та левая тиория о том что API это мощь и так далее.
Но так хочется его познать . Хочу освоить работу с мышью .

Каждый из вас у кого предки не программисты, каждый кто когда либо играл роль самоучки, а не учился в университетах и так далее, проходил через этот геморой. Дайте совет с чего начать.
основы Visual BAsic 6.0 я знаю не плохо.
расчитываю на ваш дельный совет
заранее спасибо

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

Ответ # 4 | Автор: Алексей
Добавлено:13.08.2009 / 05:07
Амперсандов (&)натыкана куча. Что делают зачем они там.

В таком виде:
var& - это переменная var типа Long:
Dim var& аналогично Dim var As Long
Соответственно: $ - As String, % - As Integer, ! - As Single, # - As Double, @ - As Currency.
Вроде ничего не забыл :)

основы Visual BAsic 6.0 я знаю не плохо

Все что выше, это вроде как основы ;-)

расчитываю на ваш дельный совет

.NET ;-)
Или Си, но не VB 6.0, он немного для других вещей создан, остальное - извращенье.

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

Ответ # 5 | Автор: towayy
Добавлено:13.08.2009 / 12:35
vb.net Если его буду изучать то и там запутаюся...

Кстате я заметиол что все расхваливают VB NET. В чём же его приемущество по сравнению с VB 6.0 ?

Слышал есть ещё какойто VB STUdio 2008 ili 2009 что то в этом духе. Неуже VB NET и его переплёвывает?

Вообще раскрою карты. Каждый кто занялся программирование, он преследует какието свои цели.
Не отрицаю и у меня таковые имеются.
Гоорю желанием импровизировать и писать ботов для браузерных игр (самых для начала наипростейших)
В лепёшку разбиваюсь но в этих книгах как дохожу до какого нибудь интерестного момента и всё клин =)

Ну а по поводу VB NET я бы всё же хоте ответ услышать как можно подробнее =)

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

Ответ # 6 | Автор: Алексей
Добавлено:13.08.2009 / 13:03
В VB .NET истинно объектно-ориентированное программирование, после
него и в VB 6.0 код становится заметно лучше, несмотря на то, что в
шестерке возможности значительно ограничены. Вообще, в шестерке в этом плане
(ООП) откровенный геморр. Пока не потрогаешь руками не поймешь, что это такое :)
API если и требуется, то процентов на 5-10%, ибо все что нужно есть в .NET Framework.
Ну и программировать можно под все, что угодно, переучиваться не
нужно, отличия минимальны.

VB STUdio 2008 ili 2009

Visual Basic Studio 2008 или 2009? :-))

Visual Studio сейчас есть 2010-beta, под четвертый фреймворк
http://www.microsoft.com/visualstudio/en-us/products/2010/default.mspx

Каждый кто занялся программирование, он преследует какието свои цели.

Помню, я занялся программированием, чтобы писать игры :)))
Сначала на китайской клавиатуре Dendy писал, в китайском G-BASIC, потом перебрался на ПК в VB 6.0,
ничего толком не написал, хотя 2D-движки получались неплохие, но довольно
сырые, я их даже так и не публиковал нигде ни разу :)

ботов для браузерных игр

Думаю тут можно компонентом WebBrowser обойтись, хотя если
поковыряться и JavaScript в этих играх не страшный, то можно и руками
все сделать, - в шестерке через соккеты.

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

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

Ответ # 7 | Автор: towayy
Добавлено:13.08.2009 / 15:34
Алексей родился ряд вопросов после последнего твоего ответа:
1- что такое (ОПП) ?
2- Лично ты на своё усмотрение какую бы документацию мне предложил почитать о WebBrowser и WinSock
(у меня есть книжки но какие то они тухловатые, помоему самое большое руководство у меня есть только для WINAPI, а всё остальное марк пятидесяти строничный)
Наверное здесь на форуме у вас есть уже разделы в которых опубликованые различного рода матерьялы (учебники) не буду искать. Хотелось бы что бы ты на своё усмотрение посоветовал что взять?
Ну автора название, хотя я бы был рад за URL

заранее спасибо

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

Ответ # 8 | Автор: Алексей
Добавлено:13.08.2009 / 15:44
ОПП

видимо, Общество Поющих Программистов :)
А ООП - Объектно-ориентированное программирование:

wiki:
Объе?ктно-ориенти?рованное программи?рование (ООП) — парадигма программирования, в которой основными концепциями являются понятия объектов и классов (либо, в менее известном варианте языков с прототипированием, — прототипов).
Класс — это тип, описывающий устройство объектов. Понятие «класс» подразумевает некоторое поведение и способ представления. Понятие «объект» подразумевает нечто, что обладает определённым поведением и способом представления. Говорят, что объект — это экземпляр класса. Класс можно сравнить с чертежом, согласно которому создаются объекты. Обычно классы разрабатывают таким образом, чтобы их объекты соответствовали объектам предметной области.
Класс является описываемой на языке терминологии (пространства имён) исходного кода моделью ещё не существующей сущности, т.н. объекта.
Объект — сущность в адресном пространстве вычислительной системы, появляющаяся при создании экземпляра класса (например, после запуска результатов компиляции (и линковки) исходного кода на выполнение).
Прототип — это объект-образец, по образу и подобию которого создаются другие объекты.

2- Лично ты на своё усмотрение какую бы

хз, уже сто лет VB 6.0 не трогал, Google наверное самый надежный
источник информации:
http://www.google.com/search?hl=ru&rls=ru&hs=0RE&q=webbrowser+%2Bvb+6.0&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=

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

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

Ответ # 9 | Автор: towayy
Добавлено:13.08.2009 / 20:24
что то я не пойму как мне webrowser помочь сможет.
Я так понимаю он нужен что ли смоделировать модель всей браузерной игры на своей форме ?
Разве можно только им обойти? Даже не представляю схему. Разве у него столько функций полезных что бы его так жёстко раскрутить?

А на счёт WinSock.
Я так понимаю придётся как то ещё до кучи и JAVA Script изучать? И потом колдовать над выбраными с сервера кусками кода и обрабатывать их через WinSock ?

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

Ответ # 10 | Автор: Алексей
Добавлено:14.08.2009 / 09:09
В WebBrowser-е можно программно выполнить любые действия, которые
может выполнить пользователь.

Я так понимаю придётся как то ещё до кучи и JAVA Script изучать?

Да, и с HTTP-протоколом ознакомиться тоже придется, а также с HTML,
ну и в целом, нужно иметь хоть какое-то представление о том, как
подобные вещи работают, чтобы было проще :)
Голым JavaScript тут не отделаться, нужно иметь представление о том как
работают AJAX, JSON, XML etc.

И потом колдовать над выбранными с сервера кусками кода и обрабатывать их через WinSock ?

Можно и так сказать, но это более сложнее, придется анализировать и
моделировать действия клиентского кода. Т.е. на низком уровне
повторять действия пользователя. Если повезет, может что-нибудь удастся хакнуть :)
Плюс в данном случае в том, что бот может играть сразу в несколько
игр, или в одну несколько раз, в зависимости от канала связи, и юзер
сидящий за компом сможет нормально работать.
А с WebBrowser может получиться так, что бот будет один и юзер ничего
не сможет делать с компом во время работы бота. Но с WebBrowser реализовать это
проще. Слово "проще" в данном случае вовсе не означает, что будет
легко :)
В .NET это сделать проще чем в VB 6.0, ибо там есть достаточное количество
инструментов для этого и они гораздо мощнее, но опять же слово "проще" не означает, что
будет легко ;)

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

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

cookies | Автор: Chel
Добавлено: 11.08.2009 / 11:20 | ответов: 14 | просмотров: 302

Подскажите плиз как на ASP VBScript прочитать куки из файла и вывести их значение на сайт
вот код который я написал
<%@ language="VBScript" %>
<html>
<head>
<title></title>
</head>
<body>
<% if Request("content_length")=0 Then %>

<form name="frm" method="post" action="скрипт.asp">
<INPUT type="text" name="M">
<input type=submit name="B" value="Submit Form">
</form>
<% Else %>
<% C=(Request.Form("M"))
Response.Write ("привет:" & C)
Response.Write Request.Cookies("TimeVisited")
Response.Cookies("TimeVisited") = Now
Response.Cookies("TimeVisited").Expires= Now()+15
%>
<% End If %>
</body>
</html>
куки уже записанны на комп. Помогите плиз.

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

Ответ # 1 | Автор: Алексей
Добавлено:11.08.2009 / 13:20
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
'отправить куки
Response.Cookies("mysite").Expires = DateAdd("yyyy", 1, Date)
Response.Cookies("mysite")("login") = "медвед"
Response.Cookies("mysite")("password") = "превед"

'прочитать куки
Response.Write("Логин: " & Request.Cookies("mysite")("login"))
Response.Write("<br />Пароль: " & Request.Cookies("mysite")("password"))

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

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

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

Ответ # 2 | Автор: Chel
Добавлено:11.08.2009 / 21:24
Алексей пасибо тебе за ответ.
Но у меня есть еще вопрос
вот например когда код такой, то куки у меня показывают на сайте и записываются на компе, а если поменять местами строки
Response.Cookies("TimeVisited")=now и Response.Write Request.Cookies("TimeVisited") то значение куков должно считываться с компа и тоже выводиться на сайт да. Помоги плиз разобраться
<%@ language="VBScript" %>
<html>
<head>
<title></title>
</head>
<body>
<% if Request("content_length")=0 Then %>

<form name="frm" method="post" action="скрипт.asp">
<INPUT type="text" name="M">
<input type=submit name="B" value="Submit Form">
</form>
<% Else %>
<% C=(Request.Form("M"))
Response.Write ("привет:" & C)
Response.Cookies("TimeVisited") = Now
Response.Write Request.Cookies("TimeVisited")
Response.Cookies("TimeVisited").Expires= Now()+15
%>
<% End If %>
</body>
</html>

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

Ответ # 3 | Автор: Алексей
Добавлено:12.08.2009 / 04:42
Response.Cookies("TimeVisited")=now

Response.Cookies("blablabla")("TimeVisited") = Now

Request.Cookies("TimeVisited")

Request.Cookies("blablabla")("TimeVisited")

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

Ответ # 4 | Автор: Chel
Добавлено:12.08.2009 / 15:27
Алексей извини меня пожалуйста то что задаю такие вопросы. Помоги плиз.
Вот когда код такой вот то у меня все записывается и на сайт значение куков выводится но если я меняю вот эту часть кода

Response.Cookies("blablabla").Expires=Now()+15
Response.Cookies("blablabla")("TimeVisited")=now
Response.Write Request.Cookies("blablabla")("TimeVisited")
на вот эту
Response.Write Request.Cookies("blablabla")("TimeVisited")
Response.Cookies("blablabla").Expires=Now()+15
Response.Cookies("blablabla")("TimeVisited")=now
то у меня значение куков которые записанны на компе не выводятся на сайт.
Как мне сделать что бы куки значение куков записанных на компе выводились на сайт
<%@ language="VBScript" %>
<html>
<head>
<title></title>
</head>
<body>
<% if Request("content_length")=0 Then %>

<form name="frm" method="post" action="скрипт.asp">
<INPUT type="text" name="M">
<input type=submit name="B" value="Submit Form">
</form>
<% Else %>
<% C=(Request.Form("M"))
Response.Write ("привет:" & C)
Response.Cookies("blablabla").Expires=Now()+15
Response.Cookies("blablabla")("TimeVisited")=now
Response.Write Request.Cookies("blablabla")("TimeVisited")
%>
<% End If %>
</body>
</html>

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

Ответ # 5 | Автор: Алексей
Добавлено:13.08.2009 / 04:58
Если куки на машине клиента есть, то их можно будет получить и вывести.
Если вы хотите записать куки и тут же и вывести, то скорей всего так не получится, т.к. куки от клиента поступают в момент запроса и доступа к новым кукам нет, он появится при следующем запросе. Используйте промежуточную переменную:

001:
002:
003:
004:
005:
006:
tv = Request.Cookies("blablabla")("TimeVisited")
Response.Cookies("blablabla").Expires=DateAdd("Y", 15, Now)
Response.Cookies("blablabla")("TimeVisited")=tv
Response.Write tv

Colorized by: Eros.CodeSyntaxColor Engine

ps: да, русские символы в названии файлов страниц лучше не использовать ;)
Now+15 тоже не красиво и "граблисто".

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

Ответ # 6 | Автор: Chel
Добавлено:13.08.2009 / 12:08
а мне надо как раз получить куки которые на машине клиента и вывести их на сайт

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

Ответ # 7 | Автор: Chel
Добавлено:13.08.2009 / 12:39
мне просто надо сначала старые куки прочитать и вывести их на сайт а потом новые записать

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

Ответ # 8 | Автор: Алексей
Добавлено:13.08.2009 / 13:10
указанный в ответе #4 код должен работать, если конечно условие if Request("content_length")=0 Then ... Else ... выполнится и куки не отключены в браузере клиента.

001:
002:
003:
004:
005:
006:
007:
'читаем куки
Response.Write Request.Cookies("blablabla")("TimeVisited")
'пишем куки
Response.Cookies("blablabla")("TimeVisited") = Now
Response.Cookies("blablabla").Expires=DateAdd("Y", 15, Now)

Colorized by: Eros.CodeSyntaxColor Engine

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

Ответ # 9 | Автор: Chel
Добавлено:14.08.2009 / 11:27
Пасибо Алексей тебе за помощь. Но у меня все равно старые куки на сайт почему то не выводит я уже и условие это удалял все равно не помогло. Он у меня на сайт выводит куки только тогда если они сначала записались и сразу в это же время прочитались тогда они на сайт выводятся а так нет. В браузере куки включены. Ну все равно спасибо тебе.

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

Ответ # 10 | Автор: Алексей
Добавлено:14.08.2009 / 11:42
Удобней всего посмотреть куки можно в
Opera (меню Инструменты - Настройки - вкладка Дополнительно - Cookies)
или FireFox (меню Инструменты - Настройки - вкладка Приватность -
кнопка Показать куки). Там все будет видно.

Вообще, работать должно, видимо что-то не правильно делается.

Ссылки по теме:
http://www.w3schools.com/ASP/asp_cookies.asp
http://www.earthskater.net/devzone/asp/aspcookies.asp

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

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

Ответ # 11 | Автор: Chel
Добавлено:14.08.2009 / 16:23
Пасибо за помощь. Но чет все равно не получается вывести старые куки на сайт

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

Ответ # 12 | Автор: Chel
Добавлено:15.08.2009 / 10:14
Алексей подскажи плиз можно ли как нибудь с помощью ASP VBScript создать файл и добавить в него текст. Если да то как?

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

Ответ # 13 | Автор: Алексей
Добавлено:15.08.2009 / 10:51
На стороне сервера - можно:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
Function WriteToFile(FileName, Contents, Append)
On Error Resume Next

If Append = True Then
iMode = 8
Else
iMode = 2
End If
Set oFs = server.createobject("Scripting.FileSystemObject")
Set oTextFile = oFs.OpenTextFile(FileName, iMode, True)
oTextFile.Write Contents
oTextFile.Close
Set oTextFile = Nothing
Set oFS = Nothing

End Function

_______________________
Colorized by: Eros.CodeSyntaxColor Engine

На стороне клиента - нельзя.

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

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

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

Ответ # 14 | Автор: Chel
Добавлено:15.08.2009 / 11:57
ага пасибо

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

Наверх

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

Нестандартная форма
Автор: Zhenik Ipatov | добавлено: 05.05.2008 / 12:42 | просмотров: 3086

Первое что бросается в глаза, когда первый раз используешь программу это конечно же её облик, внешний вид. Есть вероятность что если пользователю не понравится внешний вид окна, то он не будет пользоваться продуктом. Значит нам, не побоюсь этого слова, программистам нужно как можно лучше, удобнее, понятнее, красивее и приветливее сделать лицо программы. Нужно как можно эффектнее преподнести программу. С самого первого появления Windows окна получили прямоугольный стандарт и все User Control’ы

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 3560

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 10529

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

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

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

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

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

Статьи на Kbyte.Ru

Наверх

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

Как получить имя пользователя? (с использованием API)
Дата добавления: 24.03.2007 / 12:19 | просмотров: 2224 | платформа: VB .NET

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

Как расчитать возраст из даты рождения?
Дата добавления: 24.03.2007 / 12:06 | просмотров: 2129 | платформа: VB .NET

Получение имен классов и всех заголовков доступных окон системы
Дата добавления: 31.07.2006 / 12:50 | просмотров: 2844 | платформа: VB

Как перевести посетителя на другую страницу?
Дата добавления: 31.07.2006 / 14:37 | просмотров: 2398 | платформа: ASP .NET (VB)

Анализ даты стандарта RFC822
Дата добавления: 24.03.2007 / 10:58 | просмотров: 2415 | платформа: RegEx

Как получить параметры командной строки?
Дата добавления: 04.08.2006 / 09:20 | просмотров: 4226 | платформа: VB

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

Как программно установить/получить значение текстового поля (HtmlInputTextBox)?
Дата добавления: 31.07.2006 / 16:15 | просмотров: 3079 | платформа: ASP .NET (VB)

Воспроизведение звукового файла #2
Дата добавления: 31.07.2006 / 12:54 | просмотров: 3528 | платформа: VB

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

Наверх

Юмор на Kbyte.Ru

Вовочка приходит домой.
В: мама, знаешь сегодня что в школе случилось?
-нет.
В: училка несла в класс клей, упала и приклеилась.
- ну и что? Вы ее отодрали?
В: да, а тот, кто смелый, тот и по-два раза...

Рейтинг: 454
Всего голосов: 752