Tekil Mesaj gösterimi       Konu: ASP + MYSQL BAĞLANTI SORUNU YARDIMCI OLABİLECEK BİR DELİKANLI VARMI?
8.03.2012, 00:34 1 (permalink)
İceberk
İceberk Üye
  • Üyelik Tarihi29.09.2011
  • Yaş35
  • Ticaret Sayısı0
  • Mesajlar13
ASP + MYSQL BAĞLANTI SORUNU YARDIMCI OLABİLECEK BİR DELİKANLI VARMI? #permalink (permalink)
Asp + mysql bir sitem var bunun galerisini değiştirmeye çalışıyorum bir yere kadar getirdim ama yeni eklemek istediğim galeri mdb olduğundan tabloları karıştırıyorum. örnek sayfaları eklesem asp den anlayan bir arkadaş varmı acaba benim için 5 dakikasını ayırıp yaparmı? Eğer isterseniz ücretinide verebilirim emeğinizin.

---------------------Benim şuan kullandığım galeri------------ burdaki veritabanı resim yolu vs.. bilgiler ağaıdakine göre düzenlenecek -----------
<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="ayarlar.asp"-->
<!--#include file="include/degiskenler.asp"-->
<!--#include file="include/baglanti.asp"-->
<!--#include file="include/bloklar.asp"-->
<!--#include file="fonksiyonlar/database.asp"-->
<!--#include file="fonksiyonlar/filtreler.asp"-->
<!--#include file="fonksiyonlar/link.asp"-->
<!--#include file="fonksiyonlar/tarih.asp"-->
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' MyDesign Haber
' http://www.mydesign.gen.tr

' Galeriler Sayfası Kodları
' Son Düzenleme: 11 Temmuz 2009 (v0.7)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'// Sayfanın önbellekten alnması önleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

'// Değişkenler Tanımlanıyor
Dim iGaleriSayisi
Dim strTab
Dim strOrderBy
Dim Aralik
Dim intSayfaAltSiniri
Dim intSayfaUstSiniri
Dim intSolGrupSayisi
Dim intSagAltSinir

If LinkTuru = 1 Then
intGecerliSayfa = Temizle(Trim(Request.QueryString("s")))
Else
Set strURL = Request.Servervariables("QUERY_STRING")
strBolum = Split(strURL,"/")
If UBound(strBolum) >= 3 + KarakterBul(strScriptYolu, "/") Then strKonu = Temizle(strBolum(3 + KarakterBul(strScriptYolu, "/")))

strKonu = Split(strKonu,"-")
intGecerliSayfa = strKonu(0)
strTab = strKonu(1)
End If

If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
intGecerliSayfa = CInt(intGecerliSayfa)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Foto Galeri - <%=strSiteAdi%></title>
<% Call Head() %>
<meta name="generator" content="Microsoft FrontPage 5.0" />
<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>css/stil.css" />
<script type="text/javascript" src="<%=strScriptYolu%>js/ajax.js"></script>
<!--#include file="include/ajax.asp"-->
</head>
<body>
<div id="ana">
<table id="main" cellpadding="0" border="0" cellspacing="0">
<tr>
<td colspan="3" id="ust"><% Call Ust() %></td></tr>
<tr>
<td colspan="3" id="bant"><% Call UstMenu() %></td></tr>
<tr>
<td colspan="3" id="son-dakika"><% Call SonDakika() %></td></tr>
<tr>
<td id="sol">
<% Call Menu("galeri") %>
</td>

<td id="orta2" colspan="2">

<h1>Foto Galeri</h1>

<div class="navigasyon">
<% If strTab <> "populer" Then %><b>En Yeni Galeriler</b><% Else %><a href="<%=LinkVer("galeriler", 1, "", "yeni")%>">En Yeni Galeriler</a><% End If %> |
<% If strTab = "populer" Then %><b>En Popüler Galeriler</b><% Else %><a href="<%=LinkVer("galeriler", 1, "", "populer")%>">En Popüler Galeriler</a><% End If %>
</div>

<table width="100%" cellpadding="0" cellspacing="0" border="0">
<%
kdYardimci.Open "SELECT COUNT(Galeri_ID) AS Toplam FROM tblGaleriler", adoCOn, 1, 3
iGaleriSayisi = kdYardimci("Toplam")
kdYardimci.Close

If strTab = "populer" Then
strOrderBy = "hit"

Else
strOrderBy = "tarih"

End If

kdGenel.Open "SELECT * FROM tblGaleriler ORDER BY "& strOrderBy &" DESC", adoCon, 1, 3

If Not kdGenel.Eof Then

intTdLooper = 0

If strVtTuru = "mySQL" Then
intSayfaSayisi = Yuvarla(CInt(iGaleriSayisi) / 20)
Else
If strVtTuru = "msSQL" Then
intSayfaSayisi = FIX(iGaleriSayisi / 20)
Else
intSayfaSayisi = kdGenel.PageCount
End If
kdGenel.PageSize = 20
kdGenel.AbsolutePage = intGecerliSayfa

End If

If intGecerliSayfa > intSayfaSayisi Then intGecerliSayfa = intSayfaSayisi

Do While Not kdGenel.Eof AND intTdLooper < 20

intTdLooper = intTdLooper + 1

If intTdLooper Mod 4 = 1 Then Response.Write "<tr>" %>

<td style="width:25%; <%

If intTdLooper Mod 4 = 1 Then
Response.Write "padding-right:5px;"
Elseif intTdLooper Mod 4 = 0 Then
Response.Write "padding-left:5px;"
Else
Response.Write "padding:0 5px;"
End If %>">

<div class="son_haber" style="text-align:center;">

<h3><a href="<%=LinkVer("galeri", kdGenel("Galeri_ID"), "1", kdGenel("Ad"))%>"><%=kdGenel("Ad")%></a></h3>

<a href="<%=LinkVer("galeri", kdGenel("Galeri_ID"), "1", kdGenel("Ad"))%>"><img src="<%=GaleriVarsayilanFoto(kdGenel("Galeri_ID")) %>" onError="this.src='<%=strScriptYolu%>upload/resimler/haber/th_resimyok.gif';" border="0" style="width:100px; height:76px;" /></a>

</div>

</td><%

If intTdLooper Mod 4 = 0 Then Response.Write "</tr>"

kdGenel.Movenext
Loop


If intSayfaSayisi > 1 Then

Response.Write "<tr><td colspan=""4""><p>"

Aralik = 2

intSayfaAltSiniri = intGecerliSayfa - Aralik
intSayfaUstSiniri = intGecerliSayfa + Aralik
intSolGrupSayisi = 1 + Aralik
intSagAltSinir = intSayfaSayisi - Aralik

If (intSayfaUstSiniri > intSayfaSayisi) Then
intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik)
intSayfaUstSiniri = intSayfaSayisi
End If

If (intSayfaAltSiniri <= 0) Then
intSayfaAltSiniri = 1
intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik)
If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi
End If

If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1
If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1

If intGecerliSayfa > 1 Then
Response.Write("<a href="""& LinkVer("galeriler", intGecerliSayfa-1, "", strTab) &""" class=""sayfala"">Önceki Sayfa</a> | ")
End If

For intLooper = 1 to intSolGrupSayisi
If CInt(intLooper) = intGecerliSayfa Then
Response.Write "<span class=""arama-gecerli"">"& intLooper &"</span> | "
Else
Response.Write("<a href="""& LinkVer("galeriler", intLooper, "", strTab) &""" class=""sayfala"">"& intLooper &"</a> | ")
End If
Next

If (intSayfaAltSiniri - intSolGrupSayisi > 1 ) Then Response.Write ". . . | "

For intLooper = intSayfaAltSiniri to intSayfaUstSiniri
If CInt(intLooper) = CInt(intGecerliSayfa) Then
Response.Write "<span class=""arama-gecerli"">"& intLooper &"</span> | "
Else
Response.Write("<a href="""& LinkVer("galeriler", intLooper, "", strTab) &""" class=""sayfala"">"& intLooper &"</a> | ")
End If
Next

If (intSagAltSinir - intSayfaUstSiniri > 1) Then Response.Write " . . . | "

For intLooper = intSagAltSinir to intSayfaSayisi
If CInt(intLooper) = CInt(intGecerliSayfa) Then
Response.Write "<span class=""arama-gecerli"">"& intLooper &".</span> | "
Else
Response.Write("<a href="""& LinkVer("galeriler", intLooper, "", strTab) &""" class=""sayfala"">"& intLooper &"</a> | ")
End If
Next

If intGecerliSayfa <> intSayfaSayisi AND intSayfaSayisi > 1 Then
Response.Write("<a href="""& LinkVer("galeriler", intGecerliSayfa+1, "", strTab) &""" class=""sayfala"">Sonraki Sayfa</a> ")
End If

Response.Write "</p></td></tr>"

End If

End If
kdGenel.Close %>
</table>
</td>
</tr>
<tr>
<td colspan="3" id="alt">

<% Call Alt() %>

<%
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
Response.Write "<p>Altyapı: <a href=""http://www.mydesign.gen.tr"" target=""_blank"" title=""MyDesign | Kod Arşivi"">MyDesign Haber Sistemi</a></p>"
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
%>
</td>
</tr>
</table>
</div>
</body>
</html>


----------------------Buda eklemeye çalıştım galeri -------------------------------------------------------------------------------

<!--#Include file="db.asp"-->
<body text="#FFFFFF" bgcolor="#FFFFFF">

<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Set Con=Server.CreateObject("ADODB.Connection")
Con.open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath(""&dburun&"")
Set RSe = Server.CreateObject("ADODB.Recordset")

sqlString = "SELECT * from resimk where alt like '1' order by kate desc"


RSe.ActiveConnection = Con
Rse.Open sqlString,Con,3,3
%><font color="#800000"> </font>
<tr>
<%
for e=1 to 5
if RSe.eof then exit for
response.write "<tr>"
for u=1 to 2
if RSe.eof then exit for
%><font color="#800000">
<%
Set by_iBoSoFT=Server.CreateObject("ADODB.Connection")
by_iBoSoFT.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dburun&"")

lojik5=by_iBoSoFT.execute("select count(fid) as toplam5 from resimd where tur='"&rse("id")&"' ")

toplam5=lojik5("toplam5")
%> </font>
<td><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4%">
<font color="#FFFFFF"><img src="http://forum.iyinet.com/images/vokn1.gif" width="7" height="6" /></font></td>
<td width="98%" height="20" colspan="2"><a href="resim_galeri_d.asp?resimid=<%=rse("id")%>&ka te=<%=rse("anasek")%>"><%=RSe("kate")%><font color="#800000"> (<%=toplam5%>)</font></a></td>
</tr>
</table></td>
<%RSe.movenext
next
response.write "</tr>"
next
%><font color="#800000"> </font>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="36">
<font color="#800000"><img
src="http://forum.iyinet.com/images/resimler.gif" /></font></td>
</tr>
<tr>
<td><table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%

Set Con=Server.CreateObject("ADODB.Connection")
Con.open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath(""&dburun&"")
Set RSr = Server.CreateObject("ADODB.Recordset")

sqlString = "SELECT * from resimd where tur='"&request("resimid")&"' order by tarih desc"

RSr.ActiveConnection = Con
Rsr.Open sqlString,Con,1,3
Set RSe = Server.CreateObject("ADODB.Recordset")

sqlString = "SELECT * from resimk where id="&request("resimid")&" order by kate desc"

RSe.ActiveConnection = Con
Rse.Open sqlString,Con,3,3
%><font color="#800000">
<%if rsr.eof then%>
</font>
<tr>
<td><div align="center">
<font color="#800000">Kayıtlı Galeri Yok...</div></td>
</tr>
<%else%> </font>
<tr>
<%
for t=1 to 1
if rsr.eof or rsr.bof then exit for
response.write "<tr>"
for j=1 to 1
if rsr.eof or rsr.bof then exit for%><font color="#800000">
</font>
<td width="16%"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"><div align="center"><%=left(rse("kate"),30)%></div></td>
</tr>
<tr>
<td height="10"><table width="100%" border="0" align="center">
<%
sira = Request("sira")%><font color="#800000">
<%
Set Con=Server.CreateObject("ADODB.Connection")
Con.open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath(""&dburun&"")
Set RS = Server.CreateObject("ADODB.Recordset")
sqlString = "select * from resimd where tur= '"&request("resimid")&"' order by fid"
RS.ActiveConnection = Con
Rs.Open sqlString,Con,1,3
%>
<%git = Request.QueryString("git")
if git="" then
git=1
end if %> </font>
<tr >
<td><%
KayitSayisi=1



Set Con=Server.CreateObject("ADODB.Connection")
Con.open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath(""&dburun&"")
Set RS1 = Server.CreateObject("ADODB.Recordset")
sqlString = "select * from resimd where tur= '"&request("resimid")&"' order by fid"
RS1.ActiveConnection = Con
Rs1.Open sqlString,Con,1,3


%><font color="#800000"> </font>
<tr>
<td> </td>
</tr>
<%if rs.eof then%><font color="#800000">
</font>
<tr>
<td bgcolor="#FFCC99">
<font color="#800000"><strong>Resim Kaydi Yok</strong></td>
</tr>
<%else%>
</font>

<tr >
<%
for o=1 to 10
if rs.eof or rs.bof then exit for
response.write "<tr>"
for p=1 to 4
if rs.eof or rs.bof then exit for%><font color="#800000">
</font>
<td><center>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100" border="0" cellpadding="2" cellspacing="5" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#F9DA4E"><div align="center"><a href="http://forum.iyinet.com/images/galeri/<%=rs("resimid")%>" rel="lightbox[sushi]"><font color="#800000"><img src="http://forum.iyinet.com/images/galeri/<%=rs("resimid")%>" width="90" border="0" /></font></a><font color="#800000"><br />
</font>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
</center></td>
<%rs.movenext
next
response.write "</tr>"
next

rs.close
%><font color="#800000"> </font> </tr>

<tr>
<td><tr>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
<%end if%><font color="#800000"> <%rsr.movenext
next
response.write "</tr>"
next

rsr.close
%>

<%end if%> </font>
</tr>
</table>
<font color="#800000"><</font>
------------
şimdiden yazan herkeze sonsuz teşekkür ederim
Hızlı PM Gönder
Gönder
Alıntı ile Cevapla