%> <!-- #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>
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>
Bu mesaja 1 cevap geldi. Cevapları Gizle