Das fotos não repeti já está funcionando, passa todas as fotos cadastradas e quando termina vai para uma outra página,
O unico problema agora que tenho é fazer com q as fotos não fique na mesma ordem toda vez, assim:
ela fica na ordem de cadastro: foto1, foto2, foto3, foto4...
eu queria colocar para ela aparecer randomizado...
o codigo é esse:
<%
Dim rsRandPic
Dim rsRandPic_numRows
Dim strSql
If Request.QueryString("iPic") <> "" Then
strSql = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ID > " & Request.QueryString("iPic") & " ORDER BY PIC_ID ASC"
Else
strSql = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 ORDER BY PIC_ID ASC"
End If
%>
<%
Set rsRandPic = Server.CreateObject("ADODB.Recordset")
rsRandPic.ActiveConnection = MM_connDUpics_STRING
rsRandPic.Source = strSql
rsRandPic.CursorType = 0
rsRandPic.CursorLocation = 2
rsRandPic.LockType = 1
rsRandPic.Open()
rsRandPic_numRows = 0
%>
<%
If rsRandPic.EOF or rsRandPic.BOF then
Response.Redirect("view.asp")
End If
%>
<%
Dim imgWidth, imgHeight, imgPercent, imgFixWidth, imgFixHeight
imgWidth = rsRandPic.Fields.Item("PIC_WIDTH").Value
imgHeight = rsRandPic.Fields.Item("PIC_HEIGHT").Value
imgFixWidth = 618
imgPercent = (imgFixWidth/imgWidth)
imgFixHeight= (imgHeight*imgPercent)
%>
<link href="assets/DUpics.css" rel="stylesheet" type="text/css">
<script LANGUAGE="JavaScript">
<!-- Begin
function OpenImage(img){
foto1= new Image();
foto1.src=(img);
Controlla(img);
}
function Controlla(img){
if((foto1.width!=0)&&(foto1.height!=0)){
viewFoto(img);
}
else{
funzione="Controlla('"+img+"')";
intervallo=setTimeout(funzione,20);
}
}
function viewFoto(img){
largh=foto1.width+20;
altez=foto1.height+20;
stringa="width="+largh+",height="+altez;
finestra=window.open(img,"",stringa);
}
// End -->
</script>
pagina, que a votação redirecionar:
<%
set cmdVoting = Server.CreateObject("ADODB.Command")
cmdVoting.ActiveConnection = MM_connDUpics_STRING
cmdVoting.CommandText = "UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")
cmdVoting.CommandType = 1
cmdVoting.CommandTimeout = 0
cmdVoting.Prepared = true
cmdVoting.Execute()
Response.Cookies(Request.Form("iPic")) = Request.Form("voteValue")
Response.Cookies(Request.Form("iPic")).Expires = Date + 1000
Response.Redirect "default.asp?iPic=" & Request.Form("iPic")
%>
Eu acho que é aqui, que tem que mudar alguma coisa, no
Response.Redirect "default.asp?iPic=" & Request.Form("iPic")
pois é nele que as fotos vão passando, aqui que teria q randomizar;
Edição feita por: Qwert133, 27/04/2004, 23:05.
