Jump to content

Siteme Girişte Yazı Koyucam

apoo

Recommended Posts

mavea Newbie

mavea

Posted
Posted

wismail kardeş bu yukarda verdiğin kodu apoo index.asp dosyasına yazması varolan index.asp dosyasınıda adını değiştirip gidecek sayfa olarak göstermesi gerekmezmi sanırım apoo nun sorduğu bu. asp den anlamam index mantığı ile söledim..

Link to comment
Share on other sites
wmismail Newbie

wmismail

Posted
Posted

arkadaş doğru söylemiş ya:)

ben basit mantığını söylemiştim. Ama tek sayfa içinde yazı koymayı da anlatayım..

<% if NOT request.querystring("giris") = "okey" %>

<a href="default.asp?giris=okey">Sayfama giriş için tıklayınız !</a>

<% elseif request.querystring("giris") = "okey" then %>

BURASI BENİM SAYFAM !!!!!!!!!

<% end if %>[/CODE]

BURASI BENİM SAYFAM !!!!!!!!! kısmına sayfanın kodlarını yerleştir.

Ondan sonra adam ilk geldiğinde yazı çıkacak. Yazıya tıklayınca o sayfaya girecek.

Bu sayfayı default.asp olarak kaydet. çalıştır. Sorun olursa yazarsın.

Kolay gelsin.

Link to comment
Share on other sites
apoo Newbie

apoo

Posted
  • Author
Posted
arkadaş doğru söylemiş ya:)

ben basit mantığını söylemiştim. Ama tek sayfa içinde yazı koymayı da anlatayım..

<% if NOT request.querystring("giris") = "okey" %>

<a href="default.asp?giris=okey">Sayfama giriş için tıklayınız !</a>

<% elseif request.querystring("giris") = "okey" then %>

BURASI BENİM SAYFAM !!!!!!!!!

<% end if %>[/CODE]

BURASI BENİM SAYFAM !!!!!!!!! kısmına sayfanın kodlarını yerleştir.

Ondan sonra adam ilk geldiğinde yazı çıkacak. Yazıya tıklayınca o sayfaya girecek.

Bu sayfayı default.asp olarak kaydet. çalıştır. Sorun olursa yazarsın.

Kolay gelsin.

Denedim ama işe yaramadı!..

Link to comment
Share on other sites
apoo Newbie

apoo

Posted
  • Author
Posted
kodlarını yazar mısın ?

default.asp'nin hepsi.

Burada Kodlar

<%@language=vbscript%>
<%session.codepage=1254%>
<!-- #include file="ayarlar.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="content-type" content="text/html;charset=iso-8859-9">
<meta http-equiv="content-type" content="text/html;charset=windows-1254">
<link href="theme/<%=tema%>/stil.css" type="text/css" rel="stylesheet">
<link rel="shortcut icon" href="theme/<%=tema%>/favicon.png">
<title><% =rec("Siteadi") %></title>
<script src="theme/<%=tema%>/effect.js" language="Javascript"></script>
</head>
<body background="theme/<%=tema%>/bg.PNG" oncontextmenu="return false">
<div align="center">
<table cellpadding="0" cellspacing="0" border="0" width="907">
<tr>
<td background="theme/<%=tema%>/logo-ortasi.PNG" height="88" width="400">
<img border="0" src="theme/<%=tema%>/spotlayn-logo.png" width="400" height="100"></td>
<td background="theme/<%=tema%>/logo-ortasi.PNG" height="88" width="483">
<div align="center"><% =rec("reklam") %></div>
</td>
<td background="theme/<%=tema%>/logo-ortasi.PNG" height="88" width="24">
<img border="0" src="theme/<%=tema%>/logo-sonu.PNG" width="24" height="100"></td>
</tr>
<tr>
<td background="theme/<%=tema%>/site-arka.PNG" width="907" colspan="3">
<table cellpadding="0" cellspacing="0" border="0" width="907">
<tr>
<td width="907" colspan="3">
<table cellpadding="0" cellspacing="0" border="0" width="907">
<tr>
<td width="4"> </td>
<td valign="top" width="899" height="30" colspan="3">
<!-- #include file="menu.asp" -->
</td>
<td width="4"> </td>
</tr>
<tr>
<td width="4"> </td>
<td valign="top" background="theme/<%=tema%>/bg.PNG" width="220">
<br>
<!-- #include file="inc-files/sol-kol.asp" -->
</td>
<td background="theme/<%=tema%>/bg.PNG" valign="top" width="476">
<center>
<br>
<script language="JavaScript">
function display_panel5(){
if (panel5.style.display=='') 
panel5.style.display='none'
else
panel5.style.display=''
}
</script>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="450">
<tr>
<td align="center" background="theme/<%=tema%>/kol-bg.PNG" width="509" height="27">
<table border="0" width="448" height="100%" cellpadding="0" cellspacing="0">
<tr><td width="27" align="center"><img src="theme/<%=tema%>/exp.png" onclick="display_panel5()"></td>
<td width="421">
<a href="#top">Duyuru</a>
</td></tr>
</table>
</td>
</tr>
<tr id="panel5">
<td width="448" rowspan="3"><!-- #include file="ayarlar.asp" -->
<table border="0" width="100%" height="29">
<tr>
<td valign="top" height="25"><% =rec("duyuru") %></td></tr>
</table>
</td>
</tr>
</table>
<br>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select baslik,resim FROM Haberler"
rec.open rSQL,Connection,3,3
%>
<script language="JavaScript">
function display_panel666(){
if (panel666.style.display=='') 
panel666.style.display='none'
else
panel666.style.display=''
}
</script>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" border="0" cellpadding="0" cellspacing="0" width="450">
<tr>
<td height="28" width="450" colspan="3" background="theme/<%=tema%>/kol-bg.PNG">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td align="center" width="34"><img border="0" src="theme/<%=tema%>/exp.png" onclick="display_panel666()" width="10" height="10"></td>
<td width="416"><a href="#top">Son Dakika Haberleri</a></td>
</tr>
</table>
</td>
</tr>
<tr id="panel666">
<td width="191">
<img id="haberresmi" src="<% =rec("Resim") %>" width="191" height="140"></td>
<td width="4">
 </td>
<td width="255">
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Haberler ORDER BY HID DESC"
rec.open rSQL,Connection,3,3 %>
<% for h=1 to 9
if (not rec.eof) then%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><a href="<% ="oku.asp?HID=" & rec("HID") %>" onmouseover="document.getElementById('haberresmi' ).src='<% =rec("Resim") %>';"><img border="0" src="theme/default/ok.png" width="16" height="9"><% =server.HTMLEncode((left(rec("baslik"),50))) %>...</a></td>
</tr>
</table>
<% rec.movenext 
end if%>
<%next%>
</td>
</tr>
</table>
<% if session("uyegirisi")=True then %>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Haberler ORDER BY HID DESC"
rec.open rSQL,Connection,3,3%>
<%if (not rec.eof) then%>
<% sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rec.pagesize = 6
rec.absolutepage = sayfa
sayfa_sayisi = rec.pagecount
for i=1 to rec.pagesize
if rec.eof then 
exit for 
end if
%>
<div align="center">
<br>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="450" height="86">
<tr>
<td align="center" background="theme/<%=tema%>/kol-bg.PNG" width="509" height="27">
<table border="0" width="448" height="100%" cellpadding="0" cellspacing="0">
<tr><td width="27" align="center"><img src="theme/<%=tema%>/exp.png"></td>
<td width="421">
<a href="<% ="oku.asp?HID=" & rec("HID") %>"><% =server.HTMLEncode(rec("Baslik")) %></a>
</td></tr>
</table>
</td>
</tr>
<tr>
<td width="448" rowspan="3">
<table border="0" width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="61"><img border="0" src="<% =rec("Resim") %>" width="61" height="61"></td>
<td valign="top"><% =server.HTMLEncode((left(rec("Haber"),200))) %>...</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<% rec.movenext
Next
%>
</center>
<br>
<center>
<table border="0" background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" width="448">
<tr><td><center>
<%
onceki = cint(sayfa) - 1
sonraki = cint(sayfa) + 1
%><%
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then
response.write "["
response.write g& "] " 
%>
<% else
response.Write "<a href=default.asp?sayfa=" & g & ">" & g & "</a> "
end if
next %>
<%end if%>
</center>
</td>
</tr>
</table>
<br>
</center>
<%else%>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Haberler ORDER BY HID DESC"
rec.open rSQL,Connection,3,3%>
<%if (not rec.eof) then%>
<% sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rec.pagesize = 5
rec.absolutepage = sayfa
sayfa_sayisi = rec.pagecount
for i=1 to rec.pagesize
if rec.eof then 
exit for 
end if
%>
<div align="center">
<br>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="450" height="86">
<tr>
<td align="center" background="theme/<%=tema%>/kol-bg.PNG" width="509" height="27">
<table border="0" width="448" height="100%" cellpadding="0" cellspacing="0">
<tr><td width="27" align="center"><img src="theme/<%=tema%>/exp.png"></td>
<td width="421">
<a href="<% ="oku.asp?HID=" & rec("HID") %>"><% =server.HTMLEncode(rec("Baslik")) %></a>
</td></tr>
</table>
</td>
</tr>
<tr>
<td width="448" rowspan="3">
<table border="0" width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="61"><img border="0" src="<% =rec("Resim") %>" width="61" height="61"></td>
<td valign="top"><% =server.HTMLEncode((left(rec("Haber"),200))) %>...</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<% rec.movenext
Next
%>
</center>
<br>
<center>
<table border="0" background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" width="448">
<tr><td><center>
<%
onceki = cint(sayfa) - 1
sonraki = cint(sayfa) + 1
%><%
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'eğer bulunduğumuz sayfa ise ona link vermiyoruz
response.write "["
response.write g& "] " 
%>
<% else
response.Write "<a href=default.asp?sayfa=" & g & ">" & g & "</a> "
end if
next %>
<%end if%>
</center>
</td></tr>
</table>
<br>
</center>
<%end if%>
</td>
<td background="theme/<%=tema%>/bg.PNG" valign="top" width="220">
<br>
<!-- #include file="inc-files/sag-kol.asp" -->
</td>
<td width="4"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="24" height="29">
<img border="0" src="theme/<%=tema%>/alt-basi.PNG" width="24" height="50"></td>
<td background="theme/<%=tema%>/alt-ortasi.PNG" width="859" height="29">
<!-- #include file="ayarlar.asp" -->
<center><a href="#"><% =rec("copyright") %></a><br>
Web Motorumuz <a target="_blank" href="http://www.spotlayn.com">Spotlayn</a> v-2.0.0 Kullanmaktadır. Copyright ©2006 - 2007, <a target="_blank" href="http://www.spotlayn.com">Spotlayn</a> Ltd.<br>
</center></td>
<td width="24" height="29">
<img border="0" src="theme/<%=tema%>/alt-sonu.PNG" width="24" height="50"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<% if session("uyegirisi")=True then %>
<%else%>
<br>
<!-- #include file="ayarlar.asp" --><center><% =rec("topsites") %>
<br>
<%end if%>
</body>
</html>[/CODE]

Link to comment
Share on other sites
wmismail Newbie

wmismail

Posted
Posted
Burada Kodlar

<%
if request("t") = "y" then

%>

<%@language=vbscript%>
<%session.codepage=1254%>
<!-- #include file="ayarlar.asp" -->
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="content-type" content="text/html;charset=iso-8859-9">
<meta http-equiv="content-type" content="text/html;charset=windows-1254">
<link href="theme/<%=tema%>/stil.css" type="text/css" rel="stylesheet">
<link rel="shortcut icon" href="theme/<%=tema%>/favicon.png">
<title><% =rec("Siteadi") %></title>
<script src="theme/<%=tema%>/effect.js" language="Javascript"></script>
</head>
<body background="theme/<%=tema%>/bg.PNG" oncontextmenu="return false">
<div align="center">
<table cellpadding="0" cellspacing="0" border="0" width="907">
<tr>
<td background="theme/<%=tema%>/logo-ortasi.PNG" height="88" width="400">
<img border="0" src="theme/<%=tema%>/spotlayn-logo.png" width="400" height="100"></td>
<td background="theme/<%=tema%>/logo-ortasi.PNG" height="88" width="483">
<div align="center"><% =rec("reklam") %></div>
</td>
<td background="theme/<%=tema%>/logo-ortasi.PNG" height="88" width="24">
<img border="0" src="theme/<%=tema%>/logo-sonu.PNG" width="24" height="100"></td>
</tr>
<tr>
<td background="theme/<%=tema%>/site-arka.PNG" width="907" colspan="3">
<table cellpadding="0" cellspacing="0" border="0" width="907">
<tr>
<td width="907" colspan="3">
<table cellpadding="0" cellspacing="0" border="0" width="907">
<tr>
<td width="4"> </td>
<td valign="top" width="899" height="30" colspan="3">
<!-- #include file="menu.asp" -->
</td>
<td width="4"> </td>
</tr>
<tr>
<td width="4"> </td>
<td valign="top" background="theme/<%=tema%>/bg.PNG" width="220">
<br>
<!-- #include file="inc-files/sol-kol.asp" -->
</td>
<td background="theme/<%=tema%>/bg.PNG" valign="top" width="476">
<center>
<br>
<script language="JavaScript">
function display_panel5(){
if (panel5.style.display=='') 
panel5.style.display='none'
else
panel5.style.display=''
}
</script>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="450">
<tr>
<td align="center" background="theme/<%=tema%>/kol-bg.PNG" width="509" height="27">
<table border="0" width="448" height="100%" cellpadding="0" cellspacing="0">
<tr><td width="27" align="center"><img src="theme/<%=tema%>/exp.png" onclick="display_panel5()"></td>
<td width="421">
<a href="#top">Duyuru</a>
</td></tr>
</table>
</td>
</tr>
<tr id="panel5">
<td width="448" rowspan="3"><!-- #include file="ayarlar.asp" -->
<table border="0" width="100%" height="29">
<tr>
<td valign="top" height="25"><% =rec("duyuru") %></td></tr>
</table>
</td>
</tr>
</table>
<br>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select baslik,resim FROM Haberler"
rec.open rSQL,Connection,3,3
%>
<script language="JavaScript">
function display_panel666(){
if (panel666.style.display=='') 
panel666.style.display='none'
else
panel666.style.display=''
}
</script>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" border="0" cellpadding="0" cellspacing="0" width="450">
<tr>
<td height="28" width="450" colspan="3" background="theme/<%=tema%>/kol-bg.PNG">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td align="center" width="34"><img border="0" src="theme/<%=tema%>/exp.png" onclick="display_panel666()" width="10" height="10"></td>
<td width="416"><a href="#top">Son Dakika Haberleri</a></td>
</tr>
</table>
</td>
</tr>
<tr id="panel666">
<td width="191">
<img id="haberresmi" src="<% =rec("Resim") %>" width="191" height="140"></td>
<td width="4">
 </td>
<td width="255">
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Haberler ORDER BY HID DESC"
rec.open rSQL,Connection,3,3 %>
<% for h=1 to 9
if (not rec.eof) then%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td><a href="<% ="oku.asp?HID=" & rec("HID") %>" onmouseover="document.getElementById('haberresmi' ).src='<% =rec("Resim") %>';"><img border="0" src="theme/default/ok.png" width="16" height="9"><% =server.HTMLEncode((left(rec("baslik"),50))) %>...</a></td>
</tr>
</table>
<% rec.movenext 
end if%>
<%next%>
</td>
</tr>
</table>
<% if session("uyegirisi")=True then %>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Haberler ORDER BY HID DESC"
rec.open rSQL,Connection,3,3%>
<%if (not rec.eof) then%>
<% sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rec.pagesize = 6
rec.absolutepage = sayfa
sayfa_sayisi = rec.pagecount
for i=1 to rec.pagesize
if rec.eof then 
exit for 
end if
%>
<div align="center">
<br>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="450" height="86">
<tr>
<td align="center" background="theme/<%=tema%>/kol-bg.PNG" width="509" height="27">
<table border="0" width="448" height="100%" cellpadding="0" cellspacing="0">
<tr><td width="27" align="center"><img src="theme/<%=tema%>/exp.png"></td>
<td width="421">
<a href="<% ="oku.asp?HID=" & rec("HID") %>"><% =server.HTMLEncode(rec("Baslik")) %></a>
</td></tr>
</table>
</td>
</tr>
<tr>
<td width="448" rowspan="3">
<table border="0" width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="61"><img border="0" src="<% =rec("Resim") %>" width="61" height="61"></td>
<td valign="top"><% =server.HTMLEncode((left(rec("Haber"),200))) %>...</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<% rec.movenext
Next
%>
</center>
<br>
<center>
<table border="0" background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" width="448">
<tr><td><center>
<%
onceki = cint(sayfa) - 1
sonraki = cint(sayfa) + 1
%><%
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then
response.write "["
response.write g& "] " 
%>
<% else
response.Write "<a href=default.asp?sayfa=" & g & ">" & g & "</a> "
end if
next %>
<%end if%>
</center>
</td>
</tr>
</table>
<br>
</center>
<%else%>
<% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Haberler ORDER BY HID DESC"
rec.open rSQL,Connection,3,3%>
<%if (not rec.eof) then%>
<% sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rec.pagesize = 5
rec.absolutepage = sayfa
sayfa_sayisi = rec.pagecount
for i=1 to rec.pagesize
if rec.eof then 
exit for 
end if
%>
<div align="center">
<br>
<table background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" cellpadding="0" cellspacing="0" border="0" width="450" height="86">
<tr>
<td align="center" background="theme/<%=tema%>/kol-bg.PNG" width="509" height="27">
<table border="0" width="448" height="100%" cellpadding="0" cellspacing="0">
<tr><td width="27" align="center"><img src="theme/<%=tema%>/exp.png"></td>
<td width="421">
<a href="<% ="oku.asp?HID=" & rec("HID") %>"><% =server.HTMLEncode(rec("Baslik")) %></a>
</td></tr>
</table>
</td>
</tr>
<tr>
<td width="448" rowspan="3">
<table border="0" width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="61"><img border="0" src="<% =rec("Resim") %>" width="61" height="61"></td>
<td valign="top"><% =server.HTMLEncode((left(rec("Haber"),200))) %>...</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<% rec.movenext
Next
%>
</center>
<br>
<center>
<table border="0" background="theme/<%=tema%>/kol-orta-bg.png" class="cizgi" width="448">
<tr><td><center>
<%
onceki = cint(sayfa) - 1
sonraki = cint(sayfa) + 1
%><%
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then 'eğer bulunduğumuz sayfa ise ona link vermiyoruz
response.write "["
response.write g& "] " 
%>
<% else
response.Write "<a href=default.asp?sayfa=" & g & ">" & g & "</a> "
end if
next %>
<%end if%>
</center>
</td></tr>
</table>
<br>
</center>
<%end if%>
</td>
<td background="theme/<%=tema%>/bg.PNG" valign="top" width="220">
<br>
<!-- #include file="inc-files/sag-kol.asp" -->
</td>
<td width="4"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="24" height="29">
<img border="0" src="theme/<%=tema%>/alt-basi.PNG" width="24" height="50"></td>
<td background="theme/<%=tema%>/alt-ortasi.PNG" width="859" height="29">
<!-- #include file="ayarlar.asp" -->
<center><a href="#"><% =rec("copyright") %></a><br>
Web Motorumuz <a target="_blank" href="http://www.spotlayn.com">Spotlayn</a> v-2.0.0 Kullanmaktadır. Copyright ©2006 - 2007, <a target="_blank" href="http://www.spotlayn.com">Spotlayn</a> Ltd.<br>
</center></td>
<td width="24" height="29">
<img border="0" src="theme/<%=tema%>/alt-sonu.PNG" width="24" height="50"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<% if session("uyegirisi")=True then %>
<%else%>
<br>
<!-- #include file="ayarlar.asp" --><center><% =rec("topsites") %>
<br>
<%end if%>
</body>
</html>
<% else %>
<a href="default.asp?t=y">GİRİŞ</a>
<% end if %>[/CODE]

böyle dene bi.

Link to comment
Share on other sites
mavea Newbie

mavea

Posted
Posted

apoo sende giriş sayfanı php ile hazırla ne olacak belki kodlarda yanlışlık vardır. ha bide .htacces de dosya hiç yokmuş gibi gösterebiliyor ona göre ben çok yaşadım öyle sorunlar :)

Link to comment
Share on other sites
apoo Newbie

apoo

Posted
  • Author
Posted
böyle dene bi.

Şöyle Bir Hata Verdi Sİteye Girince 

Active Server Pages error 'ASP 0140'

Page Command Out Of Order

/Default.asp, line 6

The @ command must be the first command within the Active Server Page.[/CODE]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...