implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP Uygulamaları
 ASPTurkiye.com Forum : ASP Uygulamaları
Konu Konu: asp kodlar, kod istekleriniz Yanıt YazYeni Konu Gönder
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 Alıntı greyder

arkadaşlar bu konu altında sizlere kod örnekleri verecem istediğiniz kodları buraya yazabilirsiniz.
Yukarı Dön Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
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 Alıntı greyder

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<!--#include file="bag.asp"-->  %>
<style type="text/css">
<!--
.style1 {color: #990033}
-->
</style>

<p align="center">&nbsp;</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">&nbsp;</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&ccedil;&#305;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 Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
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 Alıntı greyder

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 type="text/css">

<!--
.Deniz { font-weight: bold;
 text-decoration: none;
}
-->
</style>
 

 

 <% Set rx=Server.CreateObject("Adodb.Recordset")
  sorgum="Select * from tablo_adiniz"
 rx.Open Sorgum, Baglantim, 1, 3 
 
%>
 
 <style type="text/css">
<!--
.style1 {
 color: #FFFFFF;
 font-weight: bold;
}
body {
 background-image: url(images/bg.jpg);
}
.style6 {font-weight: bold; font-size: 13px;}
-->
 </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>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</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 Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
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 Alıntı greyder

Ş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 Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
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 Alıntı greyder

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:

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

Yukarı Dön Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
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 Alıntı greyder

 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">&nbsp;</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">&nbsp;</td>
  </tr>
  <tr>
    <td width="10">&nbsp;</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">&nbsp;</td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td><strong><font size="2" face="tahoma">Mesaj</font></strong></td> ; ; ;
    <td width="10">:</td>
    <td><%=request.form("body")%></td>
    <td width="10">&nbsp;</td>
  </tr>
</table> 
<% else %>

<script LANGUAGE="JavaScript">
function button_over(eButton)
 {
 eButton.style.backgroundColor = "#B5BDD6";
 eButton.style.borderColor = "darkblue darkblue darkblue darkblue";
 }
function button_out(eButton)
 {
 eButton.style.backgroundColor = "#ffffff";
 eButton.style.borderColor = "#ffffff";
 }
function button_down(eButton)
 {
 eButton.style.backgroundColor = "#8494B5";
 eButton.style.borderColor = "darkblue darkblue darkblue darkblue";
 }
function button_up(eButton)
 {
 eButton.style.backgroundColor = "#B5BDD6";
 eButton.style.borderColor = "darkblue darkblue darkblue darkblue";
 eButton = null;
 }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~

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>&nbsp;</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>&nbsp;</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>&nbsp;</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>&nbsp;</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 Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
musty_25
Yeni Üye
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 Alıntı musty_25

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 Göster musty_25's Özellikler Diğer Mesajlarını Ara: musty_25
 
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 Alıntı greyder

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 Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 
Mehmet Zahid
Yeni Üye
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 Alıntı Mehmet Zahid

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 Göster Mehmet Zahid's Özellikler Diğer Mesajlarını Ara: Mehmet Zahid
 
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 Alıntı greyder

ulan şerefsiz sen üniversite ingilizcenle yazamamışsın, öyle kısa biliyorsun yazsaydınya...
Yukarı Dön Göster greyder's Özellikler Diğer Mesajlarını Ara: greyder Ziyaret greyder's Ana Sayfa
 

  << 1 2 >>
  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
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

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.