images v base dannyh [Архив] - Форум Flasher.ru

Просмотр полной версии : images v base dannyh

marmotte

28.03.2002, 16:03

Privet, u menia takaya konstruczija:

<img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif" BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150">

pri etom u menia vse imagi v odin stolbik vustraivautsia, odin pod drugim. Kak ih v 2 stolbika raskidat'?

pomogite

Crazy

28.03.2002, 16:06

Одна картинка не может выстроиться в два столбика. :D

marmotte

28.03.2002, 16:09

s chego ty vzial, chto ona tam odna?
Ih tam 10 shtuk

Crazy

28.03.2002, 16:13

В показанном исходнике -- одна.

Когда будет исходник про 10 штук -- обсудим и его.

marmotte

28.03.2002, 16:21

ty eto vidish'?
img_<%=rsediteurs("Editeur")%>.gif

konez imeni risunka beretsia iz BD. Ne putai ludei, esli sam crazy :))

marmotte

28.03.2002, 16:23

zabyla eto, no eto bylo i tak jasno

<%rsediteurs.MoveNext
loop
%>

Crazy

28.03.2002, 16:25

Я все еще не вижу работоспособного исходника.

marmotte

28.03.2002, 16:53

ves' kod vstavliu :

<%@ Language=VBScript %>
<HTML>
<HEAD>
<LINK rel="stylesheet" type="text/css" href="../_Themes/sumipntg/color0.css">
<LINK rel="stylesheet" type="text/css" href="../_Themes/sumipntg/stylpc.css">
</HEAD>
<BODY bgColor=White text="#333366" link="#333366" vlink="#336699" background="#FFFFFF">

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0"
ID=Titre Editeur WIDTH=250 HEIGHT=25>
<PARAM NAME=movie VALUE="../Titre/Editeurs.swf">
<PARAM NAME=quality VALUE=high>
<PARAM NAME=bgcolor VALUE=#FFFFFF>
<EMBED src="../Titre/Editeur.swf" quality=high bgcolor=#FFFFFF WIDTH=250 HEIGHT=25 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
<BR>
<BR>
<BR>

<%
Public DBP2000
Public rsediteurs
' Ouvre une connection avec Base projet2000
Set DBP2000 = server.CreateObject("ADODB.Connection")
DBP2000.CommandTimeout=Application("Projet_CommandTimeout")
DBP2000.ConnectionTimeout=Application("Projet_ConnectionTimeout")
DBP2000.Open "Projet","",""
Set rsediteurs =server.CreateObject("ADODB.recordset")

DIM inssql
inssql = "Select * from Editeurs"
'Si qqc de saisie de champ

'inssql = inssql & " (Nouveautes.[Type])='Actu'"
'inssql = inssql &" and (((Nouveautes.Date)< Date()-40))"
'inssql = inssql &" order by (Nouveautes.[Date]) DESC"

rsediteurs.Open inssql,DBP2000

%>
<table width=420>
<TR>
<TD>
<P>Editeur de solution CRM, cette rubrique vous est rйservйe.<BR>
Vous pouvez nous faire parvenir des informations vous concernant
а l'adresse suivante : <a href="mailto:sroquet@crm.fr">contact@crm.fr</a>
</P>
</TD>
</TR>
</table>

<BR>
<BR>
<BR>
<Table width="480">
<%
do while not rsediteurs.EOF
%>
<TR>
<TD>

</TD>

<TD>

<a href="../Pages_HTM/desc_soc_<%=rsediteurs("Editeur")%>.htm">

<img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif" BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150"></A>



<TD>

</TR>

<%rsediteurs.MoveNext
loop
%>

</Table>
</BODY>
</HTML>

Baltika

28.03.2002, 17:05

Crazy

28.03.2002, 17:16

А теперь откинем лишнее. Собственно, нас интересует вот этот код:

do while not rsediteurs.EOF
%>
<TR>
<TD>
<a href="../Pages_HTM/desc_soc_<%=rsediteurs("Editeur")%>.htm">
<img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif"
BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150"></A>
</TD>
</TR>
<%rsediteurs.MoveNext
loop

Здесь картинки формируются в виде одной колонки. Чтобы вывести их в две колонки:

<TABLE>
<%
col = 1
do while not rsediteurs.EOF
if col=1 then
%> <TR> <%
end if
%> <TD>
<a href="../Pages_HTM/desc_soc_<%=rsediteurs("Editeur")%>.htm">
<img NAME="LienEdit" SRC="../images/img_<%=rsediteurs("Editeur")%>.gif"
BORDER="1" ALIGN="MIDDLE" Height="50" WIDTH="150"></A>
</TD> <%
if col=1 then
col = 2
else
col = 1
%> </TR> <%
end if
rsediteurs.MoveNext
loop
if col=2 then
%> <TD> </TD></TR> <%
end if
%>
</TABLE>

Baltika

28.03.2002, 17:18

млин, опять опоздал с постом..

marmotte

28.03.2002, 17:20

a chto takoe rsediteurs.EOF ?

Crazy

28.03.2002, 17:24

Простите, мадам, но это же ВАШ сон...

Я вообще тестировал на for...next и потом просто прилепил на место тот цикл, что был в твоем коде. :)

Мне действительно стОит объяснить, что такое rsediteurs.EOF ?

marmotte

28.03.2002, 17:31

spasibo bolshoe, rabotaet tvoja shtuka..

Mozhno eshe paroshku glupuh voprosov?
shto za fail "global.asa" na servere, tebe eto o chem nibud' govorit?

Crazy

28.03.2002, 17:36

В global.asa прописываются действия, которые относятся ко всему приложению. Например, там можно описать код, выполняемый при старте или закрытиии приложения или отдельной сессии.