|
Perşembe, 16 Ağustos 2007 |
Aşağıdaki kodlar ile ilk önce formumuzu oluşturuyoruz.Bu sayfayı form.asp olarak kayıt ediniz.
<html>
<head>
<title></title>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1254">
</head>
<body>
<%
Dim oconn,rsuser,yol
set oconn= Server.CreateObject("ADODB.Connection")
set rsuser= Server.CreateObject("ADODB.Recordset")
yol=server.mappath("veritabani.mdb")
oconn.open "provider=microsoft.jet.oledb.4.0;data source="&yol
%>
<form action="kaydet.asp" method="post">
<table width="350" frame="below" align="center" height="45" cellpadding="0" cellspacing="0">
<tr>
<td width="170" height="10" class="clsRow">Adı: </td>
<td>
<input name="ad" class=clsRow id='ad' style='width:150;TEXT-ALIGN:left' value="" size="20" ></td>
</tr>
<tr>
<td width="170" height="10" class="clsRow">Soyadı: </td>
<td>
<input name="soyad" class=clsRow id='soyad' style='width:150;TEXT-ALIGN:left' value="" size="20" ></td>
</tr>
<tr>
<td width="170" height="10" class="clsRow">Kullanıcı Adı: </td>
<td>
<input name="uyead" class=clsRow id='uyead' style='width:150;TEXT-ALIGN:left' value="" size="20" ></td>
</tr>
<tr>
<td width="170" height="10" class="clsRow">Şifre: </td>
<td>
<input name="uyesifre" class=clsRow id='uyesifre' style='width:150;TEXT-ALIGN:left' value="" size="20" type="password" maxlength="4"></td>
</tr>
<tr>
<td width="170" height="10" class="clsRow">E-Mail: </td>
<td>
<input name="uyemail" class=clsRow id='uyemail' style='width:150;TEXT-ALIGN:left' value="" size="20" ></td>
</tr>
<tr> <td height="21" colspan="2" align="left" nowrap class=clsRow><div align="right"><input name="giris" type="submit" value="Kaydet" maxlength="10" class="clsRow" style='cursor:hand' id="giris"></div></td>
</tr>
</table>
</form> </body>
</html>
Veritabanına kayıt eklemek için aşağıdaki kodu kaydet.asp olarak kayıt ediniz.
<%
set oconn= Server.CreateObject("ADODB.Connection")
set rs= Server.CreateObject("ADODB.Recordset")
yol=server.mappath("veritabani.mdb")
oconn.open "provider=microsoft.jet.oledb.4.0;data source="&yol
ad=request.Form("ad")
soyad=request.Form("soyad")
uyead=request.Form("uyead")
uyesifre=request.Form("uyesifre")
uyemail=request.Form("uyemail")
rsuser.open "Insert into tabloadi (ad,soyad,uyead,uyesifre,uyemail) values ('"&ad&"','"&soyad&"','"&uyead&"','"&uyesifre&"','"&uyemail&"')",oconn
response.Write "Kayıt edildi"
%>
Veritabanına bu şekilde kayıt eklenecektir. Kolay gelsin
 |
Bu içeriğe ait yorumları masaüstüne alabilirsiniz
