|
Se®ve® Administ®ato®
|
Veritabanından Bilgileri Güncellemek
Konu : Veritabanından Bilgileri Güncellemek
Seviye : Basit
Kaynak Dosyalar :[ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
Öncelikle şema olarak anlatıyorum altta kodları vereceğim. Kodları zaman zaman açıklayacağım.
Güncellenecek bilgileri listeleyeğimiz sayfamız.
kayit_oku.asp
Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Veritabanından kayıt okumak</title>
<**** **********="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 1
dim strSql
strSql = "SELECT * FROM tblUye"
objRs.Open strSql, objConn, , , &H0001
if objRs.EOF then
%>
<tr>
<td>Veritabanı boş</td>
</tr>
<%
else
dim intSayac
intSayac = 0
dim strRenk
do while Not objRs.EOF
if intSayac mod 2 then
strRenk = "#e8e8e8"
else
strRenk = "#ffffcc"
end if
%>
<tr bgcolor="<% = strRenk %>">
<td><% = objRs("UYE_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><a href="guncelle.asp?id=<% = objRs("UYE_ID") %>">Güncelle</a></td>
</tr>
<%
intSayac = intSayac + 1
objRs.MoveNext
loop
end if
objRs.Close
set objRs = Nothing
objConn.Close
set objConn = Nothing
%>
</table>
</body>
</html>
Güncellenecek veri bilgilerinin form elemanları içerisine alınıp değişiklik yapacağımız sayfa.
guncelle.asp
Kod:
<% @ Language=VBScript CodePage="1254" %>
<%
Option explicit
Response.Buffer = true
%>
<%
dim intUyeID
if Request.QueryString("id") <> "" then
intUyeID = Request.QueryString("id")
else
Response.Redirect("kayit_oku.asp")
end if
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title></title>
<style type="text/css">
<!--
body {
margin:0px;
padding:0px;
}
-->
</style>
<**** **********="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<%
dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorLocation = 3
objRs.CursorType = 0
objRs.LockType = 3
dim strSql
strSql = "SELECT * FROM tblUye WHERE UYE_ID = " & intUyeID & ""
objRs.Open strSql, objConn, , , &H0001
if not objRs.EOF then
dim strAd
strAd = objRs("UYE_AD")
dim strSoyad
strSoyad = objRs("UYE_SOYAD")
dim strMail
strMail = objRs("UYE_MAIL")
dim strSehir
strSehir = objRs("UYE_SEHIR")
dim strMesaj
strMesaj = objRs("UYE_MESAJ")
%>
<table border="0" cellpadding="0" cellspacing="0" width="779">
<form action="guncelle_islem.asp" method="POST">
<input type="hidden" name="id" value="<% = intUyeID %>">
<tr>
<td width="120">Ad :</td>
<td><input type="text" name="ad" value="<% = strAd %>" size="20"></td>
</tr>
<tr>
<td width="120">Soyad :</td>
<td><input type="text" name="soyad" value="<% = strSoyad %>" size="20"></td>
</tr>
<tr>
<td width="120">Mail :</td>
<td><input type="text" name="mail" value="<% = strMail %>" size="20"></td>
</tr>
<tr>
<td width="120">Şehir :</td>
<td>
<select name="sehir">
<%
dim arrIller
arrIller = Array("Seçiniz","Adana","Adıyaman","Afyon","Ağrı","Aksaray","Amasya","Ankara","Antalya","Ardahan","Artvin","Aydın","Balıkesir","Bartın","Batman","Bayburt","Bilecik","Bingöl","Bitlis","Bolu","Burdur","Bursa","Çanakkale","Çankırı","Çorum","Denizli","Diyarbakır","Düzce","Edirne","Elazığ","Erzincan","Erzurum","Eskişehir","Gaziantep","Giresun","Gümüşhane","Hakkari","Hatay","Iğdır","Isparta","İstanbul","İzmir","K.Maraş","Karabük","Karaman","Kars","Kastamonu","Kayseri","Kırıkkale","Kırklareli","Kırşehir","Kilis","Kocaeli","Konya","Kütahya","Malatya","Manisa","Mardin","Mersin","Muğla","Muş","Nevsehir","Niğde","Ordu","Osmaniye","Rize","Sakarya","Samsun","Siirt","Sinop","Sivas","Şanlıurfa","Şırnak","Tekirdağ","Tokat","Trabzon","Tunceli","Uşak","Van","Yalova","Yozgat","Zonguldak")
dim strSelected
dim intSayac
for intSayac = 0 to UBound(arrIller)
if arrIller(intSayac) <> "" then
if arrIller(intSayac) = strSehir then strSelected=" selected" else strSelected=""
end if
Response.Write " <option value=""" & arrIller(intSayac) & """" & strSelected & ">" & arrIller(intSayac) & "</option>" & vbNewLine
next
%>
</select>
</td>
</tr>
<tr>
<td width="120" valign="top">Mesaj :</td>
<td><textarea rows="5" cols="35" name="mesaj" class="input"><% = strMesaj %></textarea></td>
</tr>
<tr>
<td width="120"> </td>
<td><input type="submit" value="Güncelle"></td>
</tr>
</form>
</table>
<%
end if
objRs.Close
Set objRs = Nothing
%>
</td>
</tr>
</table>
</body>
</html>
<%
objConn.Close
Set objConn = Nothing
%>
Değiştirilen bilgileri formdan alıp veritabanına kaydedecek olan sayfamız.
guncelle_islem.asp
Kod:
<%
intUyeID = Request.Form("id")
strAd = Request.Form("ad")
strSoyad = Request.Form("soyad")
strMail = Request.Form("mail")
strSehir = Request.Form("sehir")
strMesaj = Request.Form("mesaj")
const adCmdText = &H0001
const adExecuteNoRecords = &H00000080
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
strSql = "UPDATE tblUye SET UYE_AD = '" & strAd & "', UYE_SOYAD = '" & strSoyad & "', UYE_MAIL = '" & strMail & "', UYE_SEHIR = '" & strSehir & "', UYE_MESAJ = '" & strMesaj & "' WHERE UYE_ID = " & intUyeID
objConn.Execute(strSql),,adCmdText + adExecuteNoRecords
objConn.Close
Set objConn = Nothing
Response.Redirect "kayit_oku.asp"
%>
Mesajınızda:
-> Mail Adresinizi verirseniz, -> Konuyla alakasız yorum yaparsanız / Konuyla alakasız bir soru sorarsanız, -> Amaçsız, içinde paylaşım olmayan, saçma konular açarsanız, -> Üstüste mesaj yazarsanız ( Flood yapmakda denir), -> Küfür ederseniz, -> Konuyla alakasız bir başlık atarsanız, -> Mesajınızın tamamını büyük harfler veya puntolar kullanarak yazarsanız,
Mesajınız SİLİNİR ayrıca siz BANLANIRSINIZ.
Bu tip mesajları ihbar etmek için yukarıda işaretlenmiş olan yere tıklayarak yöneticiyi uyarabilirsiniz. нαуαт, öℓüмℓє кυмαя σуηαмα ѕαηαтı∂ıя...
[ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
AkdenizForum Toolbar Sitemizi Daha İyi Kullanmak İstiyorsanız Daha Kolaylıkla Sizde İndirin [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
|