ASPTurkiye.com Forum: asp kodlar, kod istekleriniz

implant

Aktif Konular

Üye Listesi

Arama

Yardım

Kayıt Ol

Giriş

ASP Uygulamaları
ASPTurkiye.com Forum : ASP Uygulamaları

Konu: asp kodlar, kod istekleriniz

Yazanlarda

Mesaj

<< Önceki Konu | Sonraki Konu >>

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 02-Aralık-2007 Saat 18:38 \| Kayıtlı IP

arkadaşlar bu konu altında sizlere kod örnekleri verecem istediğiniz kodları buraya yazabilirsiniz.

Yukarı Dön

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 02-Aralık-2007 Saat 19:04 \| Kayıtlı IP

sizlerle bugün ziyaretçi defteri yapacağız burada database mizi hazır sayıyorum ve sayfada gösterilecek z.defteri kodlarını veriyorum..bu kodları ziyaretci_defteri.asp olarak göstereceğiniz sayfaya include ediniz

<%
Vt_Yol=Server.Mappath("db_adınızı_yazınız.mdb")
Set Baglantim=Server.CreateObject("Adodb.Connection")
Baglantim.Open "DBQ="& Vt_Yol & ";Driver={Microsoft Access Driver (*.mdb)}"

'isterseniz db bağlantısını include edbilirsiniz %>
<style type="text/css">

</style>

<p align="center"> </p>
<p align="center"><span class="style1"></span><a href="#" onClick="yenipencere('ziyaretci_defteri_kaydet.asp','','stat us=yes,scrollbars=no,resizable=no,width=710,height=300')"> ;Ziyaretçi Defterine Kayıt Olmak İçin Tıklayınız</a> </p>
<% Set rx=Server.CreateObject("Adodb.Recordset")
sorgum="Select * from tabloadi where goster=true order by id desc"
rx.Open Sorgum, Baglantim, 1, 3
%>

<p align="center"> </p>
<%shf = Request.QueryString("shf")
    if shf="" then shf=1 end if %>

   <% rx.pagesize = 5 '1 sayfada görüntülemek istedigini haber sayisi (degistirebilirxiniz)
      rx.absolutepage = shf
      sayfa = rx.pagecount
      for i=1 to rx.pagesize
      if rx.eof then exit for
   %>
<table width="400" border="0" align="center" cellpadding="2" cellspacing="2" bordercolor="#CCCCCC">


<tr bordercolor="#CCCCCC">
    <td width="70">Konu</td>
    <td width="16"><div align="center">:</div></td>
    <td width="294"><%= rx("konu") %></td>
</tr>
<tr bordercolor="#CCCCCC">
    <td>Ekleyen</td>
    <td><div align="center">:</div></td>
    <td><%= rx("ekleyen") %></td>
</tr>
<tr bordercolor="#CCCCCC">
    <td>Email</td>
    <td><div align="center">:</div></td>
    <td><%= rx("mail") %></td>
</tr>
<tr bordercolor="#CCCCCC">
    <td>Tarih</td>
    <td><div align="center">:</div></td>
    <td><%= left(rx("tarih"),11) %></td>
</tr>
<tr>
    <td>Açıklama</td>
    <td><div align="center">:</div></td>
    <td><%= rx("aciklama") %></td>
</tr>
<tr>
    <td colspan="3"><img src="images/cizgi.jpg" width="400" height="1"></td>
</tr>
</table>       &nbs p;
<% rx.movenext
next %>

       <div align="center"><br>
( <%= shf %> ) Sayfa :
<%   for y=1 to sayfa
              if shf=y then
              response.write y
              else
              response.write "<b> <a href=""?kanal=ziyaretcidefteri&shf="&y&""">"& amp;y&"</a></b>"
              end if
              next %>
</div>

Yukarı Dön

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 02-Aralık-2007 Saat 19:08 \| Kayıtlı IP

ve şimdide nasıl yazacaklar kodunu veriyorum. bunu ziyaretci_defteri_kaydet.asp diye kaydedin(ikisi bir çalışacak)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<title>..:: ZİYARETÇİ DEFTERİ KAYIT EKRANI ::..</title>
<SCRIPT language=JavaScript type=text/JavaScript>
function validate(frm) {

    if (frm.Konu.value.length == 0)
    {
        alert("Konu Girmelisiniz...")
        frm.Konu.focus()
        return false
    }

     if (frm.ad_soyad.value.length == 0)
    {
        alert("Adınızı ve Soyadınzı Girmelisiniz...")
        frm.ad_soyad.focus()
        return false
    }

     if (frm.Mail.value.length == 0)
    {
        alert("Mail Adresinizi Girmelisiniz.")
        frm.Mail.focus()
        return false
    }

       if (frm.kisabilgi.value.length == 0)
    {
        alert("Kısa Bilgi Girmelisiniz.")
        frm.kisabilgi.focus()
        return false
    }

}

</SCRIPT>

<%
Vt_Yol=Server.Mappath("db_adi_yaz.mdb")
Set Baglantim=Server.CreateObject("Adodb.Connection")
Baglantim.Open "DBQ="& Vt_Yol & ";Driver={Microsoft Access Driver (*.mdb)}"
%>

</style>

<% Set rx=Server.CreateObject("Adodb.Recordset")
sorgum="Select * from tablo_adiniz"
rx.Open Sorgum, Baglantim, 1, 3

%>

<style type="text/css">

</style>
</head>

<body>

<% if islem<>"kaydet" then %>

<form name="form1" method="post" onsubmit="return validate(form1)" action="?kanal=ziyaretcidefteri&islem=kaydet" >
<div align="center">
    <table border="0" align="center">
      <tr>
        <td><div align="right" class="style6">Konu</div></td>
        <td><strong>:</strong></td>
        <td><input name="Konu" type="text" id="Konu"></td>
        <td rowspan="5"><div align="center">
          <textarea name="kisabilgi" cols="50" rows="10" id="kisabilgi"></textarea>
          </div></td>
      </tr>
      <tr>
        <td><div align="right" class="style6"><span class="Deniz">Ekleyen</span></div></td>
        <td><span class="Deniz"><strong> :</strong></span> </td>
        <td>
        <input name="ad_soyad" type="text" id="ad_soyad"></td>
      </tr>
      <tr>
        <td><div align="right" class="style6"><span class="Deniz">Email</span> </div></td>
        <td><span class="Deniz"><strong>:</strong></span> </td>
        <td><input name="Mail" type="text" id="Mail"></td>
      </tr>
      <tr>
        <td> </td>
        <td> </td>
        <td> </td>
      </tr>
      <tr>
        <td colspan="3"><input type="reset" name="Reset" value="FORMU TEMİZLE">
        <input type="submit" name="Submit" value="KAYDET"></td>
      </tr>
    </table>
</div>
</form>
<% else %>

  <% ad_soyad=Request.Form("ad_soyad")
konu=Request.Form("konu")
tarih=now()
mail=Request.Form("mail")
diger=Request.Form("diger")
kisabilgi=Request.Form("kisabilgi") %>
    <% if islem="kaydet" then %>
     <% rx.addnew
     rx("konu")=konu
     rx("ekleyen")=ad_soyad
     rx("tarih")=tarih
     rx("mail")=mail
     rx("aciklama")=kisabilgi %>

    <% rx.update %>



     <p align="center"><span class="style1"><br><br><br><br>&a mp;a mp;a mp;l t;br>
        </span><span class="style6">Syn : <%= Request.Form("ad_soyad") %></span></p>
     <p align="center" class="style6">İşlemini Başarı ile Tamamlanmıştır.</p>
     <p align="center" class="style6">Teşekkür ederiz.</p>
     <p align="center">
       <input type="submit" name="Submit" value="KAPAT" onClick="window.close()"></p>
   <% end if %>
<% end if %>


</body>

</html>

Düzenleyen greyder 02-Aralık-2007 Saat 20:13

Yukarı Dön

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 09-Aralık-2007 Saat 21:16 \| Kayıtlı IP

Şimdi size ramdom yani rastgele banner kodları veriyorum.

buradaki kodlardan, rastgele göstermek istediğiniz ne olursa, değiştirerek yeni kodlama yapabilirsiniz

<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banner/db_adi.mdb")
%>
<%
set rast = Server.CreateObject("ADODB.Recordset")
sql = "Select * From banner"
rast.Open sql,bag,1,3

Randomize
rastgele = Int((Rnd*rast.RecordCount)+0)
rast.Move(rastgele)
%>

<table width="249" border="1" cellspacing="0" cellpadding="0">
<tr>
<th scope="col"><a href="muta_gidiyorum.asp?id=<%=rast("id")%>" target="_blank"><img src="banner/<%=rast("aPicture")%>"></a></t h>
</tr>
</table>

Yukarı Dön

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 22-Aralık-2007 Saat 13:24 \| Kayıtlı IP

Bugün üye olacak kişiye 10 haneli ve 5 haneli random şifre üreteceğiz

localhostta çalışır deneyiniz

default.asp olarak kaydedin

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-9">
<META http-equiv=content-language content=tr>
<META content="Bülent Üstündağ" name=author>
<META content="admin@mutluyuzbiz.com" name=admin>
<title>Randomize pasaport yarat</title>
</head>

<body>
<div align="center">
<p>Yeni şifre yarat</p>
<p><form action="pass_yarat.asp" method="post" name=""><br>
<input name="" type="submit" value="Yarat">
</form></p>
</div>
</body>
</html>

bunuda

pass_yarat.asp olarak kaydedin

'coder gravga&portal

'admin@mutluyuzbiz.com

Function Password_GenPass( nNoChars, sValidChars )
' nNoChars = length of generated password
' sValidChars = valid characters. If zerolength-string( "" ) then
' default is used: A-Z AND a-z AND 0-9

Const szDefault = "abcçdefghıijklmnoöpqrstuüvxyzABCÇDEFGHIİJKLMNOÖPQRSTUÜVXYZ0 123456789"
Dim nCount
Dim sRet
Dim nNumber
Dim nLength

Randomize 'init random

If sValidChars = "" Then
  sValidChars = szDefault
End If
nLength = Len( sValidChars )

For nCount = 1 To nNoChars
  nNumber = Int((nLength * Rnd) + 1)
  sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet
End Function

Call it like this to generate a 10 letter long password:

<table width="200" border="1">
<tr>
<td><%
Response.Write "10 Karakterli: " & Password_GenPass( 10, "" )

%></td>
</tr>
</table>

Or if you want to just use certain characters:

Yukarı Dön

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 23-Aralık-2007 Saat 00:29 \| Kayıtlı IP

cdonts.newmail hazırladım yaptığım bir sitede çalışıyor kırmızı yazılı yerleri kendinize göre düzenleyin, sorun olursa yazın.

mail.asp olarak kaydet

<div align="center">
<style>
TABLE#tblCoolbar
{
background-color:#ffffff; padding:1px; color:menutext;
border:1px solid#000000;
border-color:threedhighlight threedshadow threedshadow threedhighlight;
}
.cbtn
{
height:18;
BORDER-LEFT: #ffffff 1px solid;
BORDER-RIGHT: #ffffff 1px solid;
BORDER-TOP: #ffffff 1px solid;
BORDER-BOTTOM: #ffffff 1px solid;
}

.txtbtn {font-family:tahoma; font-size:70%; color:menutext;}

</style>
<% response.write request.form("body")
if request.form("bcc")<>"" then
mail_from  = request.form("from")
mail_to   = request.form("to")
mail_subject = request.form("subject")
'mail_cc  = request.form("cc")
mail_bcc  = request.form("bcc")
mail_body   = request.form("body")
'on error resume next
Dim myMail
Set myMail    = CreateObject("CDONTS.NewMail")
myMail.From   = mail_from
myMail.To    = mail_to
myMail.Subject   = "domainadin.com İletişim"&mail_subject
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body   = mail_body
myMail.Cc   = mail_cc
myMail.Bcc   = mail_bcc
myMail.Send
Set myMail    = Nothing
%>
                   <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
    <td width="10"> </td>
    <td width="49"><strong><font size="2" face="tahoma">Kimden</font></strong></td&a mp;a mp;g t;
    <td width="10">:</td>
    <td width="466"><%=request.form("from")%>;</td>
    <td width="10"> </td>
</tr>
<tr>
    <td width="10"> </td>
    <td width="49"><strong><font size="2" face="tahoma">Konu</font></strong></td>
    <td width="10">:</td>
    <td width="466"><%=request.form("subject")%></td>
    <td width="10"> </td>
</tr>
<tr>
    <td width="10"> </td>
    <td><strong><font size="2" face="tahoma">Mesaj</font></strong></td> ; ; ;
    <td width="10">:</td>
    <td><%=request.form("body")%></td>
    <td width="10"> </td>
</tr>
</table>
<% else %>

var isHTMLMode=false

function document.onreadystatechange()
{
idContent.document.designMode="On"
}
function cmdExec(cmd,opt)
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
idContent.document.execCommand(cmd,"",opt);idContent.f ocus();
}
function setMode(bMode)
{
var sTmp;
isHTMLMode = bMode;
if (isHTMLMode){sTmp=idContent.document.body.innerHTML;idConten t.document.body.innerText=sTmp;}
else {sTmp=idContent.document.body.innerText;idContent.document.b ody.innerHTML=sTmp;}
idContent.focus();
}
function createLink()
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
cmdExec("CreateLink");
}
function insertImage()
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
var sImgSrc=prompt("Insert Image File (You can use your local image file) : ", "http://www.mutluyuzbiz.com/5/images/yerkopru.jpg");
if(sImgSrc!=null) cmdExec("InsertImage",sImgSrc);
}
function Save()
{
if (isHTMLMode){alert("Please uncheck 'Edit HTML'");return;}
var sImgTag = idContent.document.body.all.tags("IMG");
var oImg;
for (var i = sImgTag.length - 1; i >= 0; i--)
  {
    oImg = sImgTag;
    alert("Add your code to Upload local image file here. Image Inserted : " + oImg.src );
  }
alert("Add your code to Save Document here");
alert("Your Document : " + idContent.document.body.innerHTML);
}
function foreColor()
{
var arr = showModalDialog("selcolor.htm","","font-family:Verdana; font-size:12; dialogWidth:30em; dialogHeight:34em" );
if (arr != null) cmdExec("ForeColor",arr);
}
function skon()
{
form1.body.value=idContent.document.body.innerHTML;
form1.submit()
}
</script>
<P><STRONG></STRONG></P>
<form action="mail.asp" method="post" name="form1">
                      <table border="0" cellpadding="0" cellspacing="0" id="tblCoolbar">
                        <tr valign="middle">
      <td colspan="17"><table height="24" border="0" cellpadding="0" cellspacing="0">
                              <tr>
                                 <td width="52"><font size="2" face="tahoma">Kimden</font></td>
                                 <td width="5">:</td>
                                 <td> <input name="from" type="text" size="40">
                                  </td>
                              </tr>
                            </table></td>
    </tr>
    <tr valign="middle">
      <td colspan="17"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
                                 <td width="52"><font size="2" face="tahoma">Konu</font></td>
           <td width="5"><font size="2" face="tahoma">:</font></td>
           <td><font size="2" face="tahoma">
   <input name="to" type="hidden" size="27" value="buraya emailadresini yaz">
   <input name="bcc" type="hidden" size="27" value="alternatif emailini yaz">
           <input name="subject" type="text" size="40">
               </font></td>
          </tr>
        </table></td>
    </tr>
    <tr valign="middle">
      <td colspan="17"> <select name="select3" onChange="cmdExec('formatBlock',this[this.selectedIndex].value);this.selectedIndex=0">
          <option selected>Style</option>
          <option value="Normal">Normal</option>
          <option value="Heading 1">Heading 1</option>
          <option value="Heading 2">Heading 2</option>
          <option value="Heading 3">Heading 3</option>
          <option value="Heading 4">Heading 4</option>
          <option value="Heading 5">Heading 5</option>
          <option value="Address">Address</option>
          <option value="Formatted">Formatted</option>
          <option value="Definition Term">Definition Term</option>
        </select> <select name="select" onChange="cmdExec('fontsize',this[this.selectedIndex].value);">
          <option selected>Size</option>
          <option value="1">1</option>
          <option value="2">2</option>
          <option value="3">3</option>
          <option value="4">4</option>
          <option value="5">5</option>
          <option value="6">6</option>
          <option value="7">7</option>
          <option value="8">8</option>
          <option value="10">10</option>
          <option value="12">12</option>
          <option value="14">14</option>
        </select> <select name="select2" onChange="cmdExec('fontname',this[this.selectedIndex].value);">
          <option selected>Font</option>
          <option value="Arial">Arial</option>
          <option value="Arial Black">Arial Black</option>
          <option value="Arial Narrow">Arial Narrow</option>
          <option value="Comic Sans MS">Comic Sans MS</option>
          <option value="Courier New">Courier New</option>
          <option value="System">System</option>
          <option value="Tahoma">Tahoma</option>
          <option value="Times New Roman">Times New Roman</option>
          <option value="Verdana">Verdana</option>
          <option value="Wingdings">Wingdings</option>
          <option value="haettenschweiler">Haettenschweiler</option>
        </select> </td>
    </tr>
    <tr>
      <td> <div class="cbtn" onClick="cmdExec('cut')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Cut.gif" alt="Cut">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('copy')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Copy.gif" alt="Copy">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('paste')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Paste.gif" alt="Paste">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('bold')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Bold.gif" alt="Bold">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('italic')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Italic.gif" alt="Italic">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('underline')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Under.gif" alt="Underline">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('justifyleft')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Left.gif" alt="Justify Left">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('justifycenter')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Center.gif" alt="Center">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('justifyright')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="1" vspace=1 align=absmiddle src="images/Right.gif" alt="Justify Right">
        </div></td>

      <td> <div class="cbtn" onClick="cmdExec('insertunorderedlist')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="2" vspace=1 align=absmiddle src="images/bullist.GIF" alt="Unordered List">
        </div></td>

      <td> <div class="cbtn" onClick="foreColor()" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="2" vspace=1 align=absmiddle src="images/fgcolor.gif" alt="Forecolor">
        </div></td>
      <td> <div class="cbtn" onClick="cmdExec('createLink')" onmouseover="button_over(this);" onmouseout="button_out(this);" onmousedown="button_down(this);" onmouseup="button_up(this);">
          <img hspace="2" vspace=1 align=absmiddle src="images/Link.gif" alt="Link">
        </div></td>

    </tr>
    <tr>
      <td colspan="17"><iframe width="350" id="idContent" height="200" ></iframe></td>
    </tr>
    <tr>
      <td colspan="17"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
                                   <td> <font size="2" face="tahoma">
                                     <input name="Yolla" type="submit" value="Yolla" onclick="skon()">
                                     <input type="hidden" name="body">
                                     </font></td>
          </tr>
        </table></td>
    </tr>
</table>
                   </form>

                   <% end if%>
                      <Hr>

                      <table width="100%" border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td> </td>
                          <td><font color="#000000"><strong>Adres</strong></fo nt></td>
                          <td><font color="#000000">:</font></td>
                          <td><font color="#000000">xxxxxxxx sokak
                           no/2 - xxx / xxxx</font></td>
                          <td></td>
                        </tr>
                        <tr>
                          <td> </td>
                          <td><font color="#000000"><strong>Telefon</strong></ font></td>
                          <td><font color="#000000">:</font></td>
                          <td><font color="#000000">+ 90 xxx xxx xx xx- <strong>Fax
                            : </strong>+ 90 xx xxx xx xx </font></td>
                          <td></td>
                        </tr>
                        <tr>
                          <td> </td>
                          <td><font color="#000000"><strong>Url</strong></font ></td>
                          <td><font color="#000000">:</font></td>
                          <td><font color="#000000"><a href="http://www.mutluyuzbiz.com">http://www.mutluyuzbiz.com</a></font></td>
                          <td></td>
                        </tr>
                        <tr>
                          <td> </td>
                          <td><font color="#000000"><strong>Email</strong></fo nt></td>
                          <td><font color="#000000">:</font></td>
                          <td><font color="#000000"><a href="mailto:mail@mailim.com">mail@mailim.com</a></font></td>
                          <td></td>
                        </tr>
                      </table>
</div>

Yukarı Dön

musty_25
Yeni Üye

Kayıt Tarihi: 15-Nisan-2010
Ülke: Türkiye
Gönderilenler: 2

Gönderen: 15-Nisan-2010 Saat 18:04 \| Kayıtlı IP

lütfen ör= 1+2+3+4=10 yzan yanı sayıları bırbırıyle toplayıp sonucu veren kodları yazarmısınız...

Yukarı Dön

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 15-Nisan-2010 Saat 19:18 \| Kayıtlı IP

bu mantığı yürütebilirsin

<form action="a.asp" method="post">
<input type="text" name="sayi1" size="3">
<select name=op>
<option value="1"> +</option>
<option value="2"> - </option>
<option value="3"> * </option>
<option value="4"> /</option>
</select>
<input type="text" name="sayi2" size="3">
<input type=submit value="hesapla" >
</form>

<br>

<%
dim sayi1,sayi2,toplam,cikart,bol,carp

sayi1=INT(Request.form("sayi1"))' Matematiksel Bir işlem yapacağımızı bellirttik INT = Tamsayı

sayi2=INT(Request.form("sayi2"))

op=INT(Request.form("op"))

if op="1" then

toplam=sayi1+Sayi2

Response.write toplam &"<br>"

end if

if op="2" then

cikart=sayi1-sayi2

response.write cikart &"<br>"

end if

if op="3" then

carp=sayi1*sayi2

response.write carp &"<br>"

end if

if op="4" then

bol=sayi1/sayi2

response.write bol &"<br>"

end if

%>
alıntı

Yukarı Dön

Mehmet Zahid
Yeni Üye

Kayıt Tarihi: 23-Temmuz-2010
Ülke: Türkiye
Gönderilenler: 8

Gönderen: 23-Temmuz-2010 Saat 18:28 \| Kayıtlı IP

Nerden kopyala yapıştır yapıp ilkokul çağındaki ingilizcenle tercüme ettiysen artık ... Ayrıca bu anlattıkların için bu kadar uzun kodlar yazmaya gerek yok ...

Yukarı Dön

greyder
Üye
Üye

Kayıt Tarihi: 22-Mart-2007
Ülke: Türkiye
Gönderilenler: 90

Gönderen: 15-Ekim-2010 Saat 21:33 \| Kayıtlı IP

ulan şerefsiz sen üniversite ingilizcenle yazamamışsın, öyle kısa biliyorsun yazsaydınya...

Yukarı Dön

<< 1 2 >>

Yazıcı Sürümü

Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Kapalı Forumda Anketlerde Oy Kullanma