Programalama > ASP

Etiketler: sub, kullanimi......

Ort. 0
Puan ver:
Vt mizde ' tablo ' diye bir tablo olustuyoruz.. bunun icinde ise id  (isimli brincil anahtarimiz) 
baslik 
haber 
yazan 
tarih 

isimlerinde alanlarimiz oldu.. Bu kodlari biraz gelistirerek kendinize basit bir haber scripti uyarlayabilirsiniz.. (bu kodlar vtmizin admin bolumunu yani uygulamamizin admin bolumunu kodluyoz) 

<%  
Set kon = CreateObject("ADODB.Connection" ) 
Set rs = server. CreateObject("ADODB.Recordset" )  
kon.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("boncuk.mdb" )) 
%> 
'veritabaniyla iletisimizi kurduk.. aloo boncukk nasilsin canim? :) hehe 
<html> 

<head> 
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
<title><%=baslik %></title> 
</head> 

<body bgcolor="<%=arkaplan %>"> 
<div align="center"><center> 

<table border="0" width="36%" cellspacing="1"> 
  <tr> 
    <td width="100%"><img border="0" src="banner.gif" width="600" height="100"></td> 
  </tr> 
  <tr> 
    <td width="100%"><table border="1" width="100%" bordercolor="#C0C0C0" cellspacing="0" 
    cellpadding="0"> 
      <tr> 
        <td width="100%" bgcolor="#F7F7F7"><p align="center"><a href="admin.asp?islem=ekle">Haber 
        Yaz</a>  | <a href="admin.asp?islem=sil">Haber Sil</a></td> 
      </tr> 
    </table> 
    </td> 
  </tr> 
</table> 
</center></div><!---------- islemlerimizi tanimliyoruz -------> 
<% 
If request("islem" ) = "ekle" Then 
Call ekle 
ElseIf request("islem" ) = "sil" Then 
Call sil 
ElseIf request("islem" ) = "yoket" Then 
Call yoket 
ElseIf request("islem" ) = "kaydet" Then 
Call kaydet 
End If 
'yapilacak islemlerimizi tanimladik 
%> 
<!--------- islemlerimizi cagiriyoruz.. leen Kemal gel len buraya ---------> 
<% 
Sub ekle 
%> 
<form method="POST" action="admin.asp?islem=kaydet"> 
  <div align="left"><table border="0" cellspacing="1" width="393" 
  height="19"> 
<tr> 
      <td width="59" height="7">Baslik :</td> 
      <td width="326" height="7"><input type="text" name="baslik" size="20"></td> 
    </tr> 
    <tr> 
      <td width="59" height="8">Haber : </td> 
      <td width="326" height="8"><textarea rows="2" name="haber" cols="20"></textarea></td> 
    </tr> 
    <tr> 
      <td width="59" height="7">Yazan :</td> 
      <td width="326" height="7"><input type="text" name="yazan" size="20"></td> 
    </tr> 
    <tr> 
      <td width="59" height="10">Tarih :</td> 
      <td width="326" height="10"><input type="text" name="tarih" size="20" value="<%=now %>"></td> 
    </tr> 
    <tr> 
      <td width="59" height="7"></td> 
      <td width="326" height="7"><input type="submit" value="Gonder" name="Gonder"> <input 
      type="reset" value="Temizle" name="Sil"></td> 
    </tr> 
  </table> 
  </div> 
</form> 
<% 
End Sub 
%> 
<!------------- call sil ------------> 
<% 
Sub sil 

<%  
Set kon = CreateObject("ADODB.Connection" ) 
Set rs = server. CreateObject("ADODB.Recordset" )  
kon.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("boncuk.mdb" )) 

sql = "select * from tablo" 
Set rs = kon.Execute (sql) 
Do While not rs.Eof 
<tr> 
    <td width="348" height="18" ><%=rs("baslik" ) %></td> 
    <td width="115" height="18"><p align="center"><a 
    href="admin.asp?islem=sil&id=<%=rs("id" ) %>">Sil</a></td> 
  </tr> 
<% 
rs.Movenext 
Loop 

End Sub 
%> 
<!----------- Call YOKET oldururum olm gel buraya.. valla bisiy yapmicam --------------> 

<% Sub yoket %> 
<% 
Set id = Request.QueryString("id" ) 
SQL = "delete from kategori where id=" 
SQL = SQL & id 
Set rs=kon.Execute(SQL) 
Response.Write ("<center><br><br><br>Haberiniz basariyla silinmistir.</center>" ) 
%> 
<% End yoket %> 
<!-------------- simdi haberimizi kaydediyoruz ----------> 
<% 
Sub kaydet 

SQL= "SeLeCT * from tablo order by id desc" 

id = Request.QueryString("id" ) 
baslik = Request.QueryString("baslik" ) 
haber = Request.QueryString("haber" ) 
yazan = Request.QueryString("yazan" ) 
tarih = Request.QueryString("tarih" ) 

If baslik = "" Then 
response write("<center><br><br><br>Kardesim basliksiz haberr mi olur.. düzelt yaws sunu</center>) 
response.End 
End If 

If haber = " " Then 
response write(" <center><br><br><br>Basligi falan yaz.. haber yazma.. ohg ne ala memleket</center>) 
response.End 
End If 

If yazan = "" Then 
response write("<center><br><br><br>Bak adini yaz.. sonra neymis efendim ben yazmadim falan kimsen yaz lan sunu ortaligi karistirma... aa</center>) 
response.End 
End If 

If tarih = " " Then 
response write(" <center><br><br><br>Olm.. hayrina mi otomatik oraya tarihi yazdirdik.. biz sen bi de tarihle ugrasma diye oraya yazdiralim sende gidip tarihi sil... sana iyilikde yaramiyor..</center>) 
response.End 
End If 

rs.Open "tablo" , kon, 1 , 2 
rs.addnew 
rs("id" ) = id 
rs("baslik" ) = baslik 
rs("haber" ) = haber 
rs("yazan" ) = yazan 
rs("tarih" ) = tarih 
rs.update 
Response.Write ("<center><br><br><br>olm monitorü op basariyla ekledik.. hehe</center>" ) 
rs.Close 
Set rs = Nothing 
kon.Close 
Set kon = Nothing
%> 
</body> 
</html>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.