Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите! ASP 
:(
    Опции темы
Mew
  Дата 28.4.2005, 07:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: нет
Всего: 1



На странице, я у меня имется таблица
Вот код

Код

<form action=page3.asp method="get"> 
<% 
dim StrConnection 
dim mail
strConnection= "Provider=Microsoft.Jet.OLEDB.4.0;Data source=g:\inetpub\wwwroot\asp\bibl1.mdb;persist security info=false"%>
<%
   dim Rs
   Set Rs=Server.CreateObject("ADODB.RecordSet")
   Rs.Open "Select * from 1",strConnection
   StrOut="<table border=""1"" wight=""500"" cellspacing=""3"" cellpadding=""3"" bgcolor=white><tr><td align=center wight=""30""><B>Автор</B></td><td align=center><b>Книга</b></td><td align=center><b>Цена</b></td><td align=center><b>Выбор</b></td></tr>"
   i=1
   Rs.Movefirst
   while not (Rs.EOF)
   strOut= strOut & "<tr>" & "<td>&nbsp" & Rs("author") & "</td><td align=center>" & Rs("Book") & "</td><td align=center>" & Rs("price") & "</td><td align=center><Input type=checkbox  name=ch+"i" "&"></td></tr>"
   Rs.MoveNext
   i=i+1
    wend
   Response.write"<center><h3>Выберете товар</h3>" & strOut & "</center>"
   Rs.Close 
%>


Как сделать так, чтобы на следующей странице, появилось то, что выбрал пользователь checkbox’оми. ?
Подскажите пожалуйста…..умоляю…

PM MAIL ICQ   Вверх
ReFleX
Дата 28.4.2005, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 499
Регистрация: 26.9.2004
Где: Таллинн

Репутация: нет
Всего: 3



Для начало посмотри этот код - http://vingrad.ru/ASP-SRC-002250

Так понимаю тебе надо сделать корзину?

Создаёшь ещё одну таблицу, в неё будешь скидывать тот товар который польователь выберет.

Чтобы записать, какие галочки отметил пользователь, тебе нужно в цекле создать переменную i = i + 1

эту i прибавляешь к названию checkbox <input type="checkbox" name="book<%=i%>" value="true">

Отправляешь эти все галочки через form

А потом принемаешь таким же циклом:
<%
Do While Not Rs.EOF
i = i + 1
If Request.Form("Book" & i) = "true" Then
'Добавляешь в новую таблицу
End If
Loop
%>

Потом эту новую таблицу выводишь. Усё понял? smile

PM WWW   Вверх
Mew
Дата 28.4.2005, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: нет
Всего: 1



Да понятно
PM MAIL ICQ   Вверх
Grig
Дата 28.4.2005, 11:08 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Это гемор еще тот...
Помню как сам впаривался по этой теме...

Надо в твоей таблице создать идентификационное поле, например - id и использовать вложенные подключения.
Код

set conn = server.createobject("adodb.connection")
set comm = server.createobject("adodb.command")
conn.Open conn1
comm.ActiveConnection= conn

'Тут прописываешь запрос к своей базе данных
sd = "Select * from 1" 
comm.CommandText = sd
comm.CommandType = adcmdtext
Set RS = comm.Execute

a=0

while not RS.eof
idd = RS("id")
a=a+1
e="ch"&a - или как ты там обозвал чекбоксы?
d=request.QueryString (e)
if d="on" then 

set conn2 = server.createobject("adodb.connection")
set comm2 = server.createobject("adodb.command")
conn2.Open conn1
comm2.ActiveConnection= conn2
sd = "select * from 1 where id ='"&idd&"'"
comm2.CommandText = sd
comm2.CommandType = adcmdtext
Set RS2 = comm2.Execute
'
'
'
'
'А тут делаешь все что тебе заблагорассудится с выбранной пользователем записью
'
'
'
'
end if
rs.Movenext
wend

end if
rs.close
set rs = nothing
Set conn = Nothing
Set comm = Nothing

set rs2 = nothing
Set conn2 = Nothing
Set comm2 = Nothing



Ну вобщем вот так.
Желаю удачи!!
  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | ASP | Следующая тема »


 




[ Время генерации скрипта: 0.0741 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.