buraksuluk
New member
- Katılım
- 23 Şub 2007
- Mesajlar
- 31
- Reaction score
- 0
- Puanları
- 0
benim sormak istediğim birsey var benim online müzik dinleme bir web sitem var yalnız ben kontrol panelinde şarkı yukledığım zaman anasayfa'da sarkı en altta çıkıyor yani daha önce yukledığım sarkıların altında ben üste çıkmasını istiyorum yani yeni bir şarkı yüklediğim zaman ana sayfada en üste çıkmasını istiyorum aşağıda kodları veriyorum yardımcı olursanız sevinirim şimdiden teşekkurler
arkadaslar nasıl olduğunu buldum konuyu kapatalım
HTML:
<!--#include file="database.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<title>Online Müzik Sepeti</title>
<STYLE>
BODY {
FONT-FAMILY: verdana,arial,helvetica,sans-serif;
FONT-SIZE: 10px;
background-color: #F9f9f9;
}
P {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 10px
}
DIV {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 10px
}
SPAN {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 10px
}
TH {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 10px
}
TD {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 10px
}
MARQUEE {
FONT-FAMILY: verdana,arial,helvetica,sans-serif; FONT-SIZE: 10px
}
font { }
table { }
tr { }
a:link { text-decoration: none; color: #000000}
hr { color: #3399FF}
a:visited { color: #333333; text-decoration: none}
a:active { color: #000000; text-decoration: none}
a:hover { color: #0066FF; text-decoration: none}
.style31 {color: #0066CC}
.style33 { color: #006699;
font-weight: bold;
}
.style63 {
font-family: verdana;
font-size: 11px;
font-weight: bold;
color: #02529F;
}
.style73 {font-family: Arial, Helvetica, sans-serif}
.style74 {
color: #666666;
font-family: verdana;
font-size: 9px;
}
.style75 {color: #FFFFFF}
</STYLE>
</head>
<body style="background-color: #FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<%
olay = request.querystring("olay")
if olay = "sepet" then
call sepet
elseif olay = "liste" then
call liste
elseif olay = "" then
call liste
%>
</tr>
</table>
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="459">
<tr>
<td width="459" align="center">
<br>
<%
sub liste
vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(""&verilerim&"")
set conn = Server.CreateObject("adodb.connection")
set rs = Server.CreateObject("adodb.recordset")%>
<%conn.open vt
rssql = "Select * from haber"
rs.open rssql, conn, 1, 3
If rs.eof or rs.bof then
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı Parça şuanda bulunmaktadır.</br></center></b></font>"
Response.end
end if
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rs.pagesize = 20 'her sayfadaki ürün sayımız
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<table width="459" height="1" border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse">
<tr>
<td width="256" height="1" style="border-bottom-style: solid; border-bottom-width: 1"><div align="left"><span class="style63">
<font size="1"><font color="#000000"><%= Rs("baslik") %> </font>
</div></td>
<td width="57" height="1" align="center" style="border-bottom-style: solid; border-bottom-width: 1"><div align="right">
<font color="#FF0000">
<b>
<a href="javascript:dinle('Download.asp?id=<%=rs("kimlik")%>');">
<font color="#FF0000"></font></a></b></font></div></td>
<td width="40" height="1" align="center" style="border-bottom-style: solid; border-bottom-width: 1"><b><a target="dinle" href="dinle.asp?id=<%=rs("kimlik")%>">
<img src="../dinle[1].gif" style="border: 1px solid #FFFFFF"></a></b></td>
<td width="80" height="1" align="center" style="border-bottom-style: solid; border-bottom-width: 1">
<p align="center">
<b><font size="1" color="#02529F">
<a href="?olay=sepet&kimlik=<%= Rs("kimlik") %>">
<font color="#FF0000">Sepetine Ekle</font></a></font></b></td>
</tr>
</table>
<%rs.movenext
Next%><font size="3"><b> </b></font><b><font face="Verdana" size="1">Toplam Parça : <%=rs.recordcount%>
</font><font face="Verdana" size="3">-</font><font face="Verdana" size="2" color="#006699">
<% 'sayfa numaraları ve link
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'bulunduğumuz sayfaya link yok
response.write g& " " %>
<% else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next
%>
</font></b></td>
</tr>
</table>
</center>
</div>
<% end sub %>
<table width="468" border="0" cellspacing="0" cellpadding="0">
<% sub sepet
kimlik = Request.QueryString("kimlik")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&verilerim&"")
Set rs = Connection.Execute("Select * FROM haber WHERE kimlik = "&kimlik&"")
response.cookies("download_box")(""&rs("kimlik")&"")=rs("baslik")
response.cookies("download_box").expires=date+365
Response.write "Parça Müzik Sepetinize Eklendi Teşekkürler..." %>
<%
end sub
end if %> </font>
</table>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="48%" id="AutoNumber2" height="15">
<tr>
<td width="100%" height="1" valign="bottom">
<p align="left">
<font size="1"> <a href="sepetim.asp"><font color="#FF0000">MÜZİK SEPETİM </font> </a></font>
</td>
</tr>
</table>
</center>
</div>
</b>
</body>
</html>
<script language="JavaScript">
function dinle(url,title){
window.open(url,title,'width=400,height=420,status=no,toolbar=no,menubar=no,directories=no,location=no,scrollbars=no,resizable=no,alwaysRaised=no,screenX=250,screenY=200,titlebar=no,z-lock=yes');
}
</script>arkadaslar nasıl olduğunu buldum konuyu kapatalım