Форум программистов, компьютерный форум, киберфорум
Наши страницы
C#: Web, ASP.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
pipok
0 / 0 / 0
Регистрация: 21.04.2007
Сообщений: 157
1

Вывод последних новостей

20.05.2007, 14:40. Просмотров 1078. Ответов 7
Метки нет (Все метки)

Эх, задолбало меня такое положение вещей, что не делаю, а приходится спрашивать...

Идея очень проста и вроде бы легко реализуема, но
неработает! Это новости, где пользователь может вывести новости, например за последнюю неделю.
Вот кусок скрипта:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
nDays = Request.Cookies('News')('days')
 
if Request.form('cookie') = 'true' then
    'Response.Cookies('News')('types') = Request.Form('types')
    Response.Cookies('News')('days') = Request.Form('days')
    Response.Cookies('News').expires = date + 365
    'Types = Request.Form('types')
    nDays = Request.Form('days')
End If
 
if nDays = '' then
    nDays = 30
End If
 
defDate = dateadd('d', -cint(nDays), date)
 
set rs = Server.CreateObject('ADODB.Recordset')
sql = 'SELECT * FROM News '
sql = sql & 'WHERE date > '#' & defDate & '#' '
sql = sql & 'ORDER BY Date DESC'
rs.open  sql, my_conn, 3
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2007, 14:40
Ответы с готовыми решениями:

Вывод новостей в два столбика
Вот решил сделать так чтобы выводилось 6 последних новостей в два столбика,...

Как сделать частичный вывод новостей?
Есть база MSSQL, в которой есть таблица с новостями со следующими полями:...

PHP и ASP. Вывод последних тем на форуме.
Есть форум на PHP. У меня сайт на ASP. Задача состоит в том, чтобы на моем...

Отображение новостей
Подскажите как грамотней отобразить новости, которые храняться в базе! Есть ли...

Импорт новостей с сайта.
Мы имеем сайт без какого либо доступа (просто какой-либо левый сайт) в моём...

7
Sergik
20.05.2007, 14:50 2
Есть ли ошибка? если да, то на какую строку ругается?

1) Response.Cookies('News').expires = dateadd('d',365,date) вместо
Response.Cookies('News').expires = date + 365
2) в запросе, вместо date>#my_date# написать date>'my_date', если не поможет - то посмотреть, что в defDate - если точки, то заменить на слеш
pipok
0 / 0 / 0
Регистрация: 21.04.2007
Сообщений: 157
20.05.2007, 16:18  [ТС] 3
Вроде ничего не помогает, уже неделю парюсь с этой лабудой.

Вот чего пишет...
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][Äðàéâåð ODBC Microsoft Access] Íåñîîòâåòñòâèå òèïîâ äàííûõ â âûðàæåíèè óñëîâèÿ îòáîðà.

/enclave/news.asp, line 165
0
Sergik
20.05.2007, 16:44 4
У тебя написано:
Access - Несоответствие типов данных в выражении условия отбора
Во-первых, если у тебя поле Date называется - то это слово является зарезервированным в Access (http://www.aspfaq.com/faq/faqShow.asp?fid=141). Попробуй вместо Date написать news.date
Во-вторых, перед rs.open... поставь Response.write(sql) и посмотри, что у тебя за запрос, и напиши его сюда, попробуем разобраться
pipok
0 / 0 / 0
Регистрация: 21.04.2007
Сообщений: 157
20.05.2007, 18:43  [ТС] 5
Нет, ничего не помогает.
0
Sergik
20.05.2007, 18:58 6
Добавь Session.LCID=1049
Попробуй выполнить следующие запросы:

SELECT * FROM News WHERE news.date > '01.12.2000' ORDER BY news.Date DESC

SELECT * FROM News WHERE news.date > '20/12/2000' ORDER BY news.Date DESC

SELECT * FROM News WHERE news.date > #12/20/2000# ORDER BY news.Date DESC

SELECT * FROM News WHERE news.date > #20/12/2000# ORDER BY news.Date DESC

Какой-то из них обязательно заработает - напиши какой (подозреваю, что первый).
pipok
0 / 0 / 0
Регистрация: 21.04.2007
Сообщений: 157
20.05.2007, 20:46  [ТС] 7
первые два неработает, третий работает, но, но только если ввести туда числа в ручую, то всё ок, но стоит написать чтонить подобное
sql = 'SELECT * FROM News '
sql = sql & 'WHERE Data > #' & month(defDate) & '/' & day(defDate) & '/' & year(defDate) & '# '
sql = sql & 'ORDER BY Data DESC;' как вылетит такая мессага:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Äðàéâåð ODBC Microsoft Access] Ñëèøêîì ìàëî ïàðàìåòðîâ. Òðåáóåòñÿ 1.

/enclave/news.asp, line 169
если долго извращатся, то вылетает много чего, но в основном:

Microsoft][Äðàéâåð ODBC Microsoft Access] Òàáëèöà 'News' óæå îòêðûòà äðóãèì ïîëüçîâàòåëåì äëÿ ìîíîïîëüíîãî äîñòóïà èëè îòêðûòà â èíòåðàêòèâíîì ðåæèìå è íå ìîæåò áûòü èçìåíåíà â ïðîãðàììå.


Заколебало меня, я пытался изменить формат даты в БД, но ничего она не изменилась (
0
pipok
0 / 0 / 0
Регистрация: 21.04.2007
Сообщений: 157
20.05.2007, 21:02  [ТС] 8
Всё! Работает! Ты мне помог, это я там кое чего незаметное забыл изменить, сделал так:
.....
<%
defDate = dateadd('d', -cint(nDays), now)
NewsDate = month(defDate) & '/' & day(defDate) & '/' & year(defDate)

sql = 'SELECT * FROM News WHERE news.date > #' & NewsDate & '# ORDER BY news.Date DESC;'
%>
.....

Фу, ща ещё пару разных наворотов сделать и новости готовы...
0
20.05.2007, 21:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.05.2007, 21:02

Автоматическая публикация новостей на сайт
Здравствуйте мне нужно не с моего сайта копировать код видео и код изображения...

Как вставить виджет новостей ВК?
Здравствуйте, я в VS никто, мало чего знаю. Подскажите, как в форму веб...

Как сделать просмотр новостей
Хочу сделать просмотр новостей на странице. Данные берутся из БД. Нужно также...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru