%> <!-- #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>
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 %>