[PHP] traduire ASP en PHP je connais pas l asp :(((((((((

Marsh Posté le 02-01-2003 à 17:30:42

<html>
<head>
<title>REFERENTIEL PRODUIT - Affichage de la recherche</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#8794c9" text="black">
<script language=vbscript>
</script>
<a href="index.htm">Accueil Référentiel </a>
<img src="image/logolrs.jpg" width="259" height="69">
REFERENTIEL
PRODUIT
<%
on error resume next
w= request.form("wrin" )
d= request.form("desi" )
f= request.form("fourn" )
nf=request.form("nfourn" )

function valid_saisie()
'teste la validité des critères de recherche

valid_saisie=""

if w<>"" then
valid_saisie=valid_saisie & "w"
end if

if d<>"" then
valid_saisie=valid_saisie & "d"
end if

if f<>"" then
valid_saisie=valid_saisie & "f"
end if

if w="" and d="" and f="" then
valid_saisie="vide"
end if

end function

function point(val)

trouve=0
i=1
while i<=len(val)
if mid(val,i,1)="," then
trouve=1
ret = mid(val,1,i-1) & "." & mid(val,i+1, len(val)-(i))
end if
i=i+1
wend
'teste si le code contient une virgule
if trouve = 1 then
point=ret
else
point=val
end if

end function

if valid_saisie()="wdf" or valid_saisie()="wd" or valid_saisie()="df" or valid_saisie()="wf" or valid_saisie="vide" then
response.write(" " )
response.write(" " )
response.write(" " )
response.write(" " )
response.write("Vos citères de saisie sont incorrects" )

else

'ouverture de la connection

set conn=server.createobject("adodb.connection" )
connstring="driver={Client Access ODBC Driver (32-bit)};" & "system=*****;conntype=2; dbq=******;uid=*****;pwd=*******"
conn.open "********"

'choix de la requete sql

if valid_saisie="w" then
w=point(w)
req_sql="SELECT * FROM (ARTIC_AA INNER JOIN ARFRN_AF ON ARTIC_AA.AAIART = ARFRN_AF.AFIART) INNER JOIN FOURNL01 ON ARFRN_AF.AFIFRN = FOURNL01.FOIFRN where AFIART=" & w
req_sql3="SELECT SITES_SI.SILSIT, SITES_SI.SIISIT, ARSIT_AS.ASFACT, ARSIT_AS.ASIART FROM SITES_SI INNER JOIN ARSIT_AS ON SITES_SI.SIISIT = ARSIT_AS.ASISIT where ASIART=" & w
set enreg=conn.execute(req_sql)
set enreg3=conn.execute(req_sql3)
if err.number=0 then
if enreg.eof = false then

pal=cint(enreg.fields("AFQTUL" )) & " couche(s) " & " x " & cint(enreg.fields("AFQCPT" ))
response.write("<TABLE BORDER=0>" )
response.write("<tR>" )
response.write("<td width=" & "'" & 75 & "%'" & ">Code Wrin :"&enreg.fields("AFIART" )&" </td>" )
if enreg3.eof =false then
response.write("<td width=" & "'" & 25 & "%'" & ">Actif sur Fleury :" & enreg3.fields("ASFACT" ) & "</td>" )
end if
response.write("</tR>" )
response.write("<tR>" )
response.write("<td>Désignation :"&enreg.fields("AALARF" )&" </td>" )
enreg3.movenext
if enreg3.eof =false then
response.write("<td>Actif sur Lyon :" & enreg3.fields("ASFACT" ) & "</td>" )
end if
response.write("</tR>" )
response.write("<tR>" )
response.write("<td>Code Fournisseur :"&enreg.fields("AFIFRN" )&" </td>" )
enreg3.movenext
if enreg3.eof =false then
response.write("<td>Actif surMarseille :" & enreg3.fields("ASFACT" ) & "</td>" )
end if
response.write("</tR>" )
response.write("<tR>" )
response.write("<td>Libellé Fournisseur :"&enreg.fields("FOLNOM" )&" </td>" )
enreg3.movenext
if enreg3.eof =false then
response.write("<td>Actif sur Bordeaux :" & enreg3.fields("ASFACT" ) & "</td>" )
end if
response.write("</tR>" )
response.write(" " )
response.write("<tR>" )
response.write("<td>Conditionnement :"&enreg.fields("AAQCON" )& " x " & enreg.fields("AAQCO2" ) & " </td>" )
enreg3.movenext
if enreg3.eof =false then
response.write("<td>Actif sur Nancy :" & enreg3.fields("ASFACT" ) & "</td>" )
end if
response.write("</tR>" )
response.write("<tR>" )
response.write("<td>Longueur :"&enreg.fields("AFCLOC" )&" </td>" )
enreg3.movenext
if enreg3.eof =false then
response.write("<td>Actif sur Rennes :" & enreg3.fields("ASFACT" ) & "</td>" )
end if
response.write("</tR>" )
response.write("<tR>" )
response.write("<td>Largeur :"&enreg.fields("AFCLCA" )&" </td>" )
response.write("</tR>" )
response.write("<tR>" )
response.write("<td>Hauteur :"&enreg.fields("AFCHCA" )&" </td>" )
response.write("</tR>" )
response.write(" " )
response.write("<tr>" )
response.write("<td>Palettisation :"&pal&" </td>" )
response.write("</tr>" )
response.write("<tr>" )
response.write("<td>Longueur :"&enreg.fields("AFCLOU" )&" </td>" )
response.write("</tr>" )
response.write("<tr>" )
response.write("<td>Largeur :"&enreg.fields("AFCLAU" )&" </td>" )
response.write("</tr>" )
response.write("<tr>" )
response.write("<td>Hauteur :"&enreg.fields("AFCHTU" )&" </td>" )
response.write("</tr>" )
response.write("</table>" )

response.write("<hr>" )

'repertoire ou sont situées les photos

chemin="\\Srv2\Groupes\referentiel\"
Set fs = CreateObject("Scripting.FileSystemObject" )
Set a = fs.openTextFile(chemin & w & "_1.jpg" )
if err.number>0 then
response.write(" " )
response.write("Cet article n'a pas encore de photo" )
else
response.write("<img src=" & chemin & w & "_1.jpg" & " width=" & 400 & " height=" & 400 & ">" )
end if
a.close
Set a = fs.openTextFile(chemin & w & "_2.jpg" )
if err.number<=0 then
response.write("<img src=" & chemin & w & "_2.jpg" & " width=" & 400 & " height=" & 400 & ">" )
end if
a.close
Set a = fs.openTextFile(chemin & w & "_3.jpg" )
if err.number<=0 then
response.write("<img src=" & chemin & w & "_3.jpg" & " width=" & 400 & " height=" & 400 & ">" )
end if
Set a = fs.openTextFile(chemin & w & "_4.jpg" )
if err.number<=0 then
response.write("<img src=" & chemin & w & "_4.jpg" & " width=" & 400 & " height=" & 400 & ">" )
end if

else
response.write(" " )
response.write(" " )
response.write(" " )
response.write(" " )
response.write(" " )
response.write(" " )
response.write("Aucun article ne correspond à ces critères de recherche" )

end if

else
response.write(" " )
response.write(" " )
response.write(" " )
response.write(" " )
response.write("Critères de saisie incorrects" )
end if

elseif valid_saisie="d" then

req_sql="SELECT * FROM ARTIC_AA where ARTIC_AA.AALARF like '%" & d & "%'"
set enreg2=conn.execute(req_sql)
if enreg2.eof=false then
response.write ("Cliquez sur l'article pour afficher sa page de description" )
response.write("<hr>" )

'mise en forme du tableau pour l affichage
response.write("<TABLE BORDER=1>" )
response.write("<tR>" )
response.write("<TD>CODE WRIN</TD>" )
response.write("<TD>DESIGNATION</TD>" )
response.write("</tR>" )

'boucle pour afficher les articles
while enreg2.eof=false
response.write("<TR>" )
response.write("<td><a href=" & "'affich2.asp?code=" & point(enreg2.fields("AAIART" )) & "'>"& enreg2.fields("AAIART" ) & "</a></td>" )
response.write("<td>" & enreg2.fields("AALARF" ) & "</td>" )
response.write("</TR>" )
enreg2.movenext
wend

else
response.write(" " )
response.write(" " )
response.write(" " )
response.write(" " )
response.write("Pas d'articles trouvés correspondant à cette désignation" )

end if

elseif valid_saisie="f" then
req_sql="SELECT * FROM FOURNL01 where FOLNOM LIKE" & "'%" & f & "%'"
set enreg2=conn.execute(req_sql)
if enreg2.eof=false then
response.write ("Cliquez sur le fournisseur pour afficher la listes des articles correspondants" )
response.write("<hr>" )
'mise en forme du tableau pour l affichage
response.write("<TABLE BORDER=1>" )
response.write("<tR>" )
response.write("<TD>CODE FOURNISSEUR</TD>" )
response.write("<TD>LIBELLE</TD>" )
response.write("</tR>" )

while enreg2.eof=false

response.write("<TR>" )
response.write("<td><a href=" & "'affich3.asp?code=" & enreg2.fields("FOIFRN" ) & "'>"& enreg2.fields("FOIFRN" ) & "</a></td>" )
response.write("<td>" & enreg2.fields("FOLNOM" ) & "</td>" )
response.write("</TR>" )

enreg2.movenext

wend

else
response.write(" " )
response.write(" " )
response.write(" " )
response.write(" " )
response.write("Pas d'articles trouvés correspondant à ce Fournisseur" )
end if

end if

end if

%> 
</body>
</html>

Reply

Marsh Posté le 02-01-2003 à 17:30:42

Reply

Marsh Posté le 02-01-2003 à 17:35:01

mais c supair :sleep:

Reply

Marsh Posté le 02-01-2003 à 18:13:00

tu veux qu'on te fasse tes devoirs aussi ?
Et le café ?

Si tu connais le php tu devrais comprendre à peu prêt le code ci-dessus et tu devrais pouvoir le traduire en PHP

Perso j'ai po le temps de te le faire ....

Reply

Marsh Posté le 02-01-2003 à 22:55:59

j ai jusqu a demain je dois presenter demain pour ma boite

Reply

Marsh Posté le 02-01-2003 à 23:25:13

tes payé, tu bosses, je suis au chomage, je glande :jap: .

Euh faut pas deconner non plus, ya une requete sql a faire, quelques echo et lire un fichier il me semble. Temps total passer a traduire, une heure maxi. Il te reste donc 6 heures pr faire une sieste, facile.

Reply

Marsh Posté le 03-01-2003 à 10:59:00

apprenti

Reply

[PHP] traduire ASP en PHP je connais pas l asp :(((((((((

Sujets relatifs:

Leave a Replay