Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
asp sayfalama sorunu... rs.absolutepage = syf
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
sen bu problemi çözemedinmi haledaha geçenlerde incelemiştim siteni herşey normaldi yada benmi karıştırıyorum.. eve geçince cvplıyorum şimdi çıkmam lazım.. -
hocam geçen hafta sorunu çözdüm fakat sayfalama olayında patlak verdi asp
şu an sayfalama olmadan çalışan kodum.
<body topmargin="5" leftmargin="0" marginwidth="0"
marginheight="0">
<div align="center">
<img border="0" src="sic.gif" width="310" height="45">
<%
dosyayolu = Server.MapPath("urunler.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="&dosyayolu
Set rs=conn.Execute("select * from urunler where katID='1'
order by urunID Asc")
%>
<table width="0" border="0" cellspacing="0" cellpadding="10" >
<%
dim sayac
sayac = 4
Do until rs.EOF
if sayac= 4 then
Response.Write "<tr>"
sayac = 0
end if
bol = 3
For I = 1 To 1
%>
<td width="0" align="center" border="0" height="0" valign="top"
>
<div align="center">
<table cellpadding="2" cellspacing="5" >
<tr>
<%
Response.Write "<td align=center><A
HREF=""urunDETAY-sip.asp?urunID=" & rs("urunID") & """><IMG
src=/local/images/thumb/"&rs("urunRESIM")&" border=0
></A></td>"
Response.Write "<tr>"
Response.Write "<td align=center><font face ='Times New Roman'
color='#EB1E1E' size='2' >"&rs("urunADI")&"</td>"
Response.Write "<tr>"
Response.Write "<td align=center><font face ='Tahoma' size='2'
>"&rs("urunFIYATI")&" YTL</td>"
Response.Write "<tr>"
Response.Write "<td align=center><A
HREF=""urunDETAY-sip.asp?urunID=" & rs("urunID") & """><img
src=siparis.gif border=0></td>"
%>
</tr>
</table>
<%
If I mod bol = 0 Then
Response.Write " </tr><tr> "
End If
Next
if sayac= 4 then
Response.Write "</tr>"
end if
rs.MoveNext
sayac = sayac + 1
Loop
rs.Close()
Set rs = nothing
%></tr></table>
fakat buna sayfalama yapmaya çalıştıgımda olmadı. Onun yerine
şu kodları kullandım.
<body topmargin="10" leftmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<img border="0" src="sic.gif" width="310" height="45">
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("urunler.mdb")
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from urunler ORDER BY urunID "
rs.open SQL,baglanti,1,3
syf = Request.QueryString("syf")
If syf="" Then syf="1"
rs.pagesize = 15
rs.absolutepage = syf
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
If rs.eof Then exit for
%>
<table width="0" border="0" cellspacing="0" cellpadding="10">
<div align="center">
<table cellpadding="0" cellspacing="0" >
<%
Response.Write "<td align=center><A HREF=""urunDETAY.asp?urunID=" & rs("urunID") & """><IMG src=/local/thumb/"&rs("urunRESIM")&" border=0 ></A></td>"
Response.Write "<tr>"
Response.Write "<td align=center>"&rs("urunADI")&"</td>"
Response.Write "<tr>"
Response.Write "<td align=center>"&rs("urunFIYATI")&"</td>"
Response.Write "<tr>"
Response.Write "<td align=center><A HREF=""urunDETAY.asp?urunID=" & rs("urunID") & """><IMG src=siparis.gif border=0 ></A></td>"
%>
</tr>
</table>
<%rs.movenext%>
<%next%>
Sayfa : <%
for y=1 to sayfa_sayisi
if syf=y then
response.write y
else
response.write "<b> <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=4469334&url="siz.asp?syf="&y&""" data-href=""siz.asp?syf="&y&""">"&y&"</a></b>"
end if
next
%>
bu seferde tek sütün üzerinde resimler dizilmeye başladı.
Ben resimlerimin 4 satır ve 4 sütün üzerinde dizerek sayfalama yapmak istiyorum.
-
arkadaşlar yardım edecek kimse yokmu ? -
www.maxiasp.com da var...
Ayrıca mod mantığını kullanmalısın -
<body topmargin="10" leftmargin="0" marginwidth="0"
marginheight="0">
<div align="center">
<img border="0" src="sic.gif" width="310" height="45">
Buraya TABLE ve TR başlat
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="
& Server.MapPath("urunler.mdb")
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from urunler ORDER BY urunID "
rs.open SQL,baglanti,1,3
syf = Request.QueryString("syf")
If syf="" Then syf="1"
rs.pagesize = 15
rs.absolutepage = syf
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
If rs.eof Then exit for
%>
burada TD başlat<table width="0" border="0" cellspacing="0" cellpadding="10">
<div align="center">
<table cellpadding="0" cellspacing="0" >
<%
Response.Write "<td align=center><A
HREF=""urunDETAY.asp?urunID=" & rs("urunID") & """><IMG
src=/local/images/thumb/"&rs("urunRESIM")&" border=0
></A></td>"
Response.Write "<tr>"
Response.Write "<td align=center>"&rs("urunADI")&"</td>"
Response.Write "<tr>"
Response.Write "<td align=center>"&rs("urunFIYATI")&"</td>"
Response.Write "<tr>"
Response.Write "<td align=center><A
HREF=""urunDETAY.asp?urunID=" & rs("urunID") & """><IMG
src=siparis.gif border=0 ></A></td>"
%>
</tr>
</table>
burada TDyi bitir
<%rs.movenext%>
<%next%>
Sayfa : <%
for y=1 to sayfa_sayisi
if syf=y then
response.write y
else
response.write "<b> <a
href=""sizin2.asp?syf="&y&""">"&y&"</a></b>"
end if
next
%>
burada TR ve Table bitir
Eğer yukardaki gibi ikinci bir tabel kullanırsan hepsi yanyana olur.
-
http://www.maxiasp.com/Uygulama_oku.asp?ksno=37&ort=73,2
al örnek...
Do-while yerine for kullnırsan daha iyi olur
İyi çalışmalar
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
