1. sayfa
veritabanı bağlantısını yaptıktan sonra title tagi arasına <%=rs("title")%> yada <%=maxicity("title") %> dersin yani yaptığın doğru bence |
ama hata veriyor şu anda bir daha deneme apıyorum bakalım ne olacak buraya yazarım çalışıp çalışmadığını. |
arkadaşlar kod bu malesef beceremedim hep hata veriyor aşşağıdaki linkte script tümü var yardımcı olursanız sevinirim teşekkürler. link >>>> link script ********************************************************************************** <% @Language=VBScript %> <% %> <!-- #include file="parola.asp" --> <% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("links.mdb") Set yeniasp = Server.CreateObject("ADODB.Recordset") sor = "Select * from links where islem like '%N%'" yeniasp.Open sor,Sur,1,3 git = Request.QueryString("git") if git="" then git=1 end if islem=Request.QueryString("islem") if islem="sil" then call sil elseif islem="onay" then call onay else end if %> <% sub sil id = Request("id") Set silme = Server.CreateObject("ADODB.RecordSet") silmek = "delete from links where id="&id&"" silme.open silmek,Sur,1,3 Response.Redirect Request.ServerVariables("HTTP_REFERER") end sub %> <% sub onay id=Request.QueryString("id") Set onayla = Server.CreateObject("ADODB.RecordSet") onandi = "select * from links where id="&id&"" onayla.open onandi,Sur,1,3 onayla("islem")="Y" onayla.Update Response.Redirect Request.ServerVariables("HTTP_REFERER") end sub %> <html> <head> <link rel="stylesheet" type="text/css" href="stil.css"> <meta http-equiv="Content-Language" content="tr"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Yönetici Sayfası</title> burdaki titleyi bir türlü db den okutamadım </head> <body> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="350"> <tr> <td><img border="1" src="banner.gif"></td> </tr> <tr> <td height="5"></td> </tr> </table> </center> </div> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="1" width="350" bgcolor="#FFFFFF" height="20"> <tr> <td width="250" bgcolor="#808080"><font color="#FFFFFF"><b> Site adı</b></font></td> <td width="100" bgcolor="#808080"> <p align="center"><font color="#FFFFFF"><b>İşlem</b></font></td> </tr> </table> </center> </div> <% if yeniasp.eof or yeniasp.bof then Response.Write "<center>Onaylanmamış link yok...</center>" Response.End end if %> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="1" width="350" bgcolor="#FFFFFF"> <% yeniasp.pagesize = 10 yeniasp.absolutepage = git sayfa = yeniasp.pagecount for i=1 to yeniasp.pagesize if yeniasp.eof then exit for %> <tr> <td width="250" bgcolor="#E5E5E5" height="15"> <%=yeniasp("siteadi")%></td> <td width="100" bgcolor="#E5E5E5" height="15"> <p align="center"><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=3776011&url=admin.asp?islem=onay&id=<%=yeniasp("id")%>" data-href="admin.asp?islem=onay&id=<%=yeniasp("id")%>">Onayla</a> - <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=3776011&url=admin.asp?islem=sil&id=<%=yeniasp("id")%>" data-href="admin.asp?islem=sil&id=<%=yeniasp("id")%>">Sil</a></td> </tr> <%yeniasp.movenext%> <% next %> </table> </center> </div> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="350"> <tr> <td> <p align="center">Sayfa: <% for y=1 to sayfa if git=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=3776011&url="admin.asp?git="&y&""" data-href=""admin.asp?git="&y&""">"&y&"</a></b>" end if next %></td> </tr> </table> </center> </div> <p align="center">Copyright © 2002, <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=3776011&url=mailto:yeniasp@yeniasp.net" data-href="mailto:yeniasp@yeniasp.net"> Zekai Filiz</a><br> <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=3776011&url=http://www.yeniasp.net" target="_blank" data-href="http://www.yeniasp.net" target="_blank">http://www.yeniasp.net</a></p> </body> </html> |
yeni bir veritabanı bağlantısı oluşturup, öyle almalısın title yi , bunun içinde, title nin olduğu, tabloya bağlanmalısın, senin yaptığın sadece links tablosundakilerin benzerini buluyor. zaten birazdan TEHLİKE gelir daha güzel anlatır ![]() ![]() ![]() |
ilk önce titleyi aldıracağın tabloya bağlanman gerekiyo bağlandıkdan sonra <title><%=RecordSetin("baslik")%></title> şeklinde Başlığı yapabilirsin.. |
arkadaşlar rica etsem örnek verebilirmisiniz o kadar iyi bilmiyorum asp yi yeni bir veritabanı baglantısını aynı sayfadamı yapacağım çok çalışmam lazım çok teşekkürler. |
<% @Language=VBScript %> <% %> <!-- #include file="parola.asp" --> <% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("links.mdb") Set yeniasp = Server.CreateObject("ADODB.Recordset") sor = "Select * from links where islem like '%N%'" yeniasp.Open sor,Sur,1,3 Set maxiasp = Server.CreateObject("ADODB.Recordset") sormax = "Select * from tabloadin maxiasp.Open sormax,Sur,1,3 git = Request.QueryString("git") if git="" then git=1 end if islem=Request.QueryString("islem") if islem="sil" then call sil elseif islem="onay" then call onay else end if %> <% sub sil id = Request("id") Set silme = Server.CreateObject("ADODB.RecordSet") silmek = "delete from links where id="&id&"" silme.open silmek,Sur,1,3 Response.Redirect Request.ServerVariables("HTTP_REFERER") end sub %> <% sub onay id=Request.QueryString("id") Set onayla = Server.CreateObject("ADODB.RecordSet") onandi = "select * from links where id="&id&"" onayla.open onandi,Sur,1,3 onayla("islem")="Y" onayla.Update Response.Redirect Request.ServerVariables("HTTP_REFERER") end sub %> <html> <head> <link rel="stylesheet" type="text/css" href="stil.css"> <meta http-equiv="Content-Language" content="tr"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title><%=maxiasp("titlen")%></title> Şimdi Okur sanırım ![]() </head> <body> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="350"> <tr> <td><img border="1" src="banner.gif"></td> </tr> <tr> <td height="5"></td> </tr> </table> </center> </div> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="1" width="350" bgcolor="#FFFFFF" height="20"> <tr> <td width="250" bgcolor="#808080"><font color="#FFFFFF"><b> Site adı</b></font></td> <td width="100" bgcolor="#808080"> <p align="center"><font color="#FFFFFF"><b>İşlem</b></font></td> </tr> </table> </center> </div> <% if yeniasp.eof or yeniasp.bof then Response.Write "<center>Onaylanmamış link yok...</center>" Response.End end if %> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="1" width="350" bgcolor="#FFFFFF"> <% yeniasp.pagesize = 10 yeniasp.absolutepage = git sayfa = yeniasp.pagecount for i=1 to yeniasp.pagesize if yeniasp.eof then exit for %> <tr> <td width="250" bgcolor="#E5E5E5" height="15"> <%=yeniasp("siteadi")%></td> <td width="100" bgcolor="#E5E5E5" height="15"> <p align="center"><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=3780634&url=admin.asp?islem=onay&id=<%=yeniasp("id")%>" data-href="admin.asp?islem=onay&id=<%=yeniasp("id")%>">Onayla</a> - <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=3780634&url=admin.asp?islem=sil&id=<%=yeniasp("id")%>" data-href="admin.asp?islem=sil&id=<%=yeniasp("id")%>">Sil</a></td> </tr> <%yeniasp.movenext%> <% next %> </table> </center> </div> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" width="350"> <tr> <td> <p align="center">Sayfa: <% for y=1 to sayfa if git=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=3780634&url="admin.asp?git="&y&""" data-href=""admin.asp?git="&y&""">"&y&"</a></b>" end if next %></td> </tr> </table> </center> </div> <p align="center">Copyright © 2002, <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=3780634&url=mailto:yeniasp@yeniasp.net" data-href="mailto:yeniasp@yeniasp.net"> Zekai Filiz</a><br> <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=3780634&url=http://www.yeniasp.net" target="_blank" data-href="http://www.yeniasp.net" target="_blank">http://www.yeniasp.net</a></p> </body> </html> |
açtığımız recordsetleri kapatmayı unutmayalım, aynı zamanda bağlantıları da |
doru ![]() |
1. sayfa
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.