Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
114
Cevap
17169
Tıklama
0
Öne Çıkarma
Hazır Kod Ve Script (İstekler Muhakkak Cevap Bulur)
T
19 yıl
Çavuş
Konu Sahibi

ADO - ADON.NET
Titretme
--------------------------------------------
<html><HEAD> 

<SCRIPT LANGUAGE="JavaScript1.2">

<!-- Begin
function shake(n) {
if (self.moveBy) {
for (i = 10; i > 0; i--) {
for (j = n; j > 0; j--) {
self.moveBy(0,i);
self.moveBy(i,0);
self.moveBy(0,-i);
self.moveBy(-i,0);
}
}
}
}
// End -->
</script>
</HEAD>
<BODY bgcolor="red">
<center><font color="white">
<h1>DÜĞMEYE BASIN VE OLANLARI GÖRÜN</h1>
<br>
<h3>dilerseniz seri bi şekilde space'e basmayı deneyin</h3>


<center>
<form>
<input type=button onClick="shake(2)" value="BAŞLA">
</form>

--------------------------------------------------------------
ADO.NET İle Datagrid,
--------------------------------------------------------------
<%@ Page Language="vb" AutoEventWireup="false" src="data.aspx.vb" Inherits="data" %> 
<HTML>
<HEAD>
<title>DataGrid 2</title>

</HEAD>
<body >
<form id="Form1" method="post" runat="server">
<ASP:DataGrid
id="listtalepler"
runat="server"
Width="90%"
BorderColor="black"
CellPadding=3
CellSpacing="0"
Font-Name="Trebuchet MS"
Font-Size="10pt"
ForeColor="Black"
BackColor="Beige"
HeaderStyle-BackColor="Burlywood"
HeaderStyle-Font-Bold="True"
AutoGenerateColumns="False"
OnSortCommand="Sort_Grid">
<Columns>

<asp:BoundColumn
HeaderText="AD"
DataField="ad"
SortExpression="ad"

/>
<asp:BoundColumn
HeaderText="Soyad"
DataField="soyad"
SortExpression="soyad"

/>


</Columns>
</asp:DataGrid>
</form>
</body>
</HTML>

-----data.aspx.vb-------

Imports System.Data
Imports System.Data.OleDb



Public Class data
Inherits System.Web.UI.Page
Protected WithEvents listtalepler As System.Web.UI.WebControls.DataGrid


#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Not IsPostBack Then
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData As New DataSet()
DBConn = New OleDbConnection("provider=" _
& "Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("db/veritabanim.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select * From tbltalep " _
& " order by ad" , DBConn)
DBCommand.Fill(DSPageData, _
"talepler")
listtalepler.DataSource = _
DSPageData.Tables("talepler").DefaultView
listtalepler.DataBind()
End If
End Sub

� Sort_Grid olayyny tanymlayarak syralamama yapmamyza olanak veriyoruz.

Sub Sort_Grid(ByVal Sender as Object, _
ByVal E as DataGridSortCommandEventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("provider=" _
& "Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("db/veritabanim;"))
DBCommand = New OleDbDataAdapter _
("Select * From tbltalep " _
& "Order By " _
� e.sortExpression.ToString() olayy tyklady?ymyz sütunu syralyyor
& E.SortExpression.ToString(), DBConn)
DBCommand.Fill(DSPageData, _
"talepler")
listtalepler.DataSource = _
DSPageData.Tables("talepler").DefaultView
listtalepler.DataBind()

End Sub

End Class

----------------------------------------------------
Kayıt Bilgilerinin Kullanıcıya Otomatik Olarak Gönderilmesi,
------------------------------------------------------
<%@ page language=�vb� src=�kay.vb� inherits=�kay� AutoEventWireUp=�False� %>   
<html>
<head>
<title>Mail denemesi</title>
</head>
<body>
<form id="formkay" runat="server">
<asp:label id=�txtad� runat=�server�>Adynyz:</asp:label><asp:textbox id="ad" runat="server" /><br>
<asp:label id=�txtmail� runat=�server�>Mail Adresi:</asp:label><asp:textbox id=�email� runat=�server� /><br>
<asp:label id=�txtusern� runat=�server�>Kullanycy Adynyz:</asp:label><asp:textbox id=�usern� runat=�server� /><br>
<asp:label id=�txtsifre� runat=�server�>?ifreniz:</asp:label><asp:textbox id=�sifre� runat=�server� /><br>
<asp:button id="cmdkay" runat="server" text="kayyt" />
</form>
</body>
</html>

Basit bir kayyt sayfasy olu?turduktan sonra ?imdi arkaplanda çaly?acak olan kay.vb dosyamyzy olu?turalym.

------ kay.vb -----

Imports System.Data.OleDb
Imports System.Data
Imports System.Web
Imports System.Web.UI
Imports system.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Web.Mail
Public Class kay
Inherits System.Web.UI.Page

Protected WithEvents ad as System.Web.UI.WebControls.Textbox
Protected WithEvents email as System.Web.UI.WebControls.Textbox
Protected WithEvents usern as System.Web.UI.WebControls.Textbox
Protected WithEvents sifre as System.Web.UI.WebControls.Textbox
Protected WithEvents cmdkay as System.Web.UI.WebControls.Button

Private strconnection As String ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("veritabanim.mdb") &";Persist Security Info=False"
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

end sub

sub SendIntroMail
Dim msgIntro as New MailMessage
msgIntro.BodyFormat = MailFormat.HTML
msgIntro.To = email.text
msgIntro.From = "www.sitem.com"
msgIntro.Headers.Add("Reply-To","emailadresim")
msgIntro.Priority = MailPriority.High
msgIntro.Subject = "Sitemize Ho?geldiniz"
msgIntro.Body = "www.sitem.com adresine kaydynyz ba?ary ile yapyldy.Ylginize Çok te?ekkürler"
SmtpMail.Send(msgIntro)
end sub
Private sub cmdkay_Click(Byval Sender as System.Object, Byval e as System.EventArgs) Handles cmdkay.Click

Dim strSelect As String
strSelect = "SELECT * FROM tbluser "
Dim con as New OleDBConnection(strConnection)
Dim cmd As New OleDBCommand(StrSelect, con)
Dim adapter as New OledbDataAdapter(cmd)
Dim dsvt As New DataSet()

Try

con.Open()


adapter.FillSchema(dsvt, SchemaType.Mapped, "tbluser")

Finally
If not con is nothing then con.close()
End try

Dim rownew As DataRow
rownew = dsvt.Tables("tbluser").NewRow
rownew("ad") = ad.Text
rownew(�email�) = email.Text
rownew(�usern�) = usern.Text
rownew(�sifre�) sifre.Text

dsvt.Tables("tbluser").Rows.Add(Rownew)

Dim intAdded As Integer
Try
Dim cb As New OleDBCommandBuilder(adapter)
adapter = cb.DataAdapter
con.Open()
intAdded = adapter.Update(dsvt, "tbluser")
Finally
If not con Is Nothing Then con.Close()
End Try

if intAdded > 0 Then
SendIntromail
end if
End sub
End class

Burada normal kayyttan farkly olarak yukaryda gördü?ünüz gibi kayyt ba?aryly oldu?unda SendIntromail komutu ile kullanycynyn vermi? oldu?u mail adresine mail gönderiyoruz. SendIntroMail komutunu incelersek;

sub SendIntroMail
� Mesajymyzy tanytyyoruz
Dim msgIntro as New MailMessage

� Mail formatyny belirliyoruz
msgIntro.BodyFormat = MailFormat.HTML

� mailin gidece?i adresi email textbox�yndan alyyoruz
msgIntro.To = email.text

� mailin kim tarafyndan gönderildi?i
msgIntro.From = "www.sitem.com"

� E?er cevaplanyrsa kime gelece?i
msgIntro.Headers.Add("Reply-To","emailadresim")

� mailimizin önem derecesi
msgIntro.Priority = MailPriority.High

� Mail konumuz
msgIntro.Subject = "Sitemize Ho?geldiniz"

�gönderdi?imiz mailin içeri?i
msgIntro.Body = "www.sitem.com adresine kaydynyz ba?ary ile yapyldy.Ylginize Çok te?ekkürler"
SmtpMail.Send(msgIntro)
end sub


--------------------------------------------------------
ADO.NET ile login page oluşturma
--------------------------------------------------------
------ Login.aspx ----- 

<%@ page language="VB" debug="true" Explicit="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<script runat="server" language="VB">

� giris tusuna basty?ymzda olmasyny istedi?imiz olay

Sub OK_OnSubmit(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("provider=" _
& "Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("db.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select * From uyeler Where " _
& "kad = '" & kad.Text & "' " _
& "And sifre = '" & sifre.Text & "'" _
, DBConn)
DBCommand.Fill(DSPageData, _
"uyeler")
If DSPageData.Tables("uyeler").Rows.Count = 0 Then
hata.Text = "Kullanycy Adynyzy veya ?ifrenizi Yanly? Girdiniz"
Else
Session("id") = DSPageData.Tables("uyeler"). _
Rows(0).Item("id")
Session("id") = kad.Text � Kullanycy adymyz session bilgimiz olsun
response.Redirect("default.aspx")
End If
End Sub
</script>

<html>
<head>
<title>Login Form</title>
</head>
<body>
<form id="form1" runat="server">

<center>
<br>
<b>.:: Üye Giri? ::.</b><br><br>
Kullanycy Ady: <asp:textbox id="kad" runat="server"/>
<br><br> ?ifre : <asp:textbox id="sifre" runat="server" textmode="password" />
<br><asp:Button runat="server" id="runat" Text="Giri?" OnClick="OK_OnSubmit" />

<br><asp:label id="hata" runat="server" />
</form>
</body>
</html>

?imdi default.aspx sayfamyzy yazalym.

<%@ page language="VB" debug="true" Explicit="True" %>

<script runat="server" language="VB">

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
�Burada kullanycy adyny istiyoruz e?er kullanycy ady yoksa geri gönder diyoruz
If Len(session("id")) = 0 Then
Response.Redirect("login.aspx")
Else
� Request.ServerVariables(�Auth_user�) olayy sayfaya authenticate olan
�kullanycynyn bilgisini bildiriyor
bilgi.text = Request.ServerVariables("Auth_user")
end if
End Sub

� Session.Clear session bilgilerimizi temizliyor ve login.aspx sayfasyna yönlendiriyor.

Sub cikis_OnSubmit(Sender As Object, E As EventArgs)
Session.Clear()
response.Redirect("login.aspx")
end sub
</script>
<html>
<head>
<title>Login Form</title>
</head>
<body>
<form id="form1" runat="server">
<center>
<br>
<b>.:: Üye Durumu ::.</b><br><br>
<br><asp:label id="bilgi" runat="server" />
<br>
<br>
<asp:button id="cikis" runat="server" Text="Çyky?" OnClick="cikis_OnSubmit" />
</form>
</body>
</html>

ASP
Güvenlik kodu oluşturma
-----------------------------

<% 
if page="" then

enalt_sayi = 999
enust_sayi = 99999

Randomize()

isle = enust_sayi - enalt_sayi + 1
random = isle * rnd()
random = random + enalt_sayi
guvenlik = int(random)
%>
<%=guvenlik%>
<%
end if
%>

---------------------------------------
Login Olma,
---------------------------------------
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=windows-1254"> 

<style type="text/css">
<!--
.style1 {font-size: 12px}
.style2 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 14px;
}
.userfont {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
font-weight: normal;
color: #333366;
}
-->
</style>
<div align="center">
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width="73%"><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=8148206&url=default.asp" data-href="default.asp"><img src="resim/logo.gif" width="342" height="72" border="0"></a></td>
<td width="27%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="userfont">


</td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<form method="post" action="buraya logyn adresinizi yazacaksynyz"> ÖRNEK: ( " action="default.asp?islem=forumlogynol.asp " )

<tr>
<td class="userfont">Kullanycy Adynyz:</td>
<td><input type="text" name="solmenuemail"></td>
</tr>
<tr>
<td class="userfont">?ifreniz:</td>
<td><input type="password" name="solmenusifre"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Giri?" value="Giri?"></td>
</tr></form>
</table></td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>

---------------------------------------------------
Cdonts Mail bileşeni yollama
---------------------------------------------------
<% 


RESPONSE.BUFFER = TRUE

Dim objCDOMail
Dim strFrom, strTo
Dim strBody, strSubject

strFrom = Request.form("from")
strTo = request.form("to")
strBody = request.form("body")
strSubject = request.form("subject")

Set objCDOMail = Server.createobject("CDONTS.NewMail")
objCDOMail.From = str.From
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.MailFormat = 0 '(0:Text, 1:HTML, 2:Close HTML)
objCDOMail.BodyFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 1 '(1:Slow , 2:Normal, 3:Fast)
objCDOMail.Send
Set objCDOMail = nothing
%>

------------------------------------------------
Asp'de rastgele sayı
------------------------------------------------
<% 
Dim rastgelesayi
Randomize
rastgelesayi = RND
%>
<p align="center"><%=rastgelesayi%></p>

---------------------------------------------------------
Sayfalama Yapmak
--------------------------------------------------------
<html> 
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>New Page 1</title>
</head>
<body>
<table border="1" width="100%" id="table1">
<font color="#FF00FF">
<%
set data=server.createobject("adodb.connection")
set rst6=server.createobject("adodb.recordset")
data.Open "Provider=SQLOLEDB.1;Password=4671547;Persist Security Info=True;User ID=web;Initial Catalog=TICONA2005;Data Source=ramazan"
rst6.open "select * from TBLSTSABIT order by STOK_KODU ",data,3,3
deste=15
Sayfa=rst6.recordcount/deste
sayi=request("S")
Liste=sayi * deste
if sayi=>2 then
for i= 0 to Liste-15
if i=rst6.recordcount then
exit for
end if
rst6.movenext
next
else
end if
%>

</font>
<font color=#FF3300>
<%
if sayi=1 then
liste=1
end if
%>
<%
for i= liste to liste+Deste%>

<tr>
<td><b><font size="1" face="Tahoma"><%=rst6.fields("STOK_KODU")%>--<%=rst6.fields("STOK_ADI")%></font></b></td>
</tr>
<%
if i=rst6.recordcount then
exit for
end if
rst6.movenext
next
%>
</table>

<table border="1" width="100%">
<tr>
<%for i=1 to Sayfa%><td><a href=index.asp?S=<%=i%>><%=i%></a></td><%next%>
</tr>
</font>
</table>
</body>
</html>

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil





< Bu mesaj bu kişi tarafından değiştirildi TasarımHaber -- 27 Temmuz 2006; 15:06:08 >

T
19 yıl
Çavuş
Konu Sahibi

ASP'ye Devam
Zamana Göre Selamlama,
-------------------------------------------------
<% select case Hour(now) 
case 1,2,3,4,5,24,23
Response.write("<h1>İyi geceler</h1>")
case 6,7,8,9,10,11,12
Response.write("<h1>İyi Sabahlar</h1>")
case 13,14,15,16
Response.write("<h1>İyi Öğlenler</h1>")
case else
Response.write("<h1>İyi Akşamlar</h1>")
end select %>

--------------------------------------------------
Asp ;İle il il hava durumu
--------------------------------------------------
<%  
if request.QueryString ("il")<>"" then
il=request.QueryString ("il")
else
il="BİLECİK"
end if
const Request_GET = 2

Dim haberURL, haberim, basliklar
haberURL = "http://meteo.tr.net/cgi-bin/wfa.pl?"&il
Set alma = CreateObject("SOFTWING.ASPtear" )
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
lenstr=308+len(il)
haberim=Mid(haberim,9166,lenstr)
ds=InStr(1,haberim,"°C" )
sicaklik=Mid(haberim,ds-5,7)
sicaklik=Replace(sicaklik,">" ,"" )
ds=InStr(1,haberim,"alt" )
de=InStr(1,haberim,"°C" )
durum=Mid(haberim,ds+5,de-ds-15)
durum=Replace(durum,"""" ,"" )
if Cstr(durum)=Cstr("Az Bulutlu") then
resim="azbulutlu"
elseif Cstr(durum)=Cstr("Sağnak Yağışlı") then
resim="yagmurlu"
end if
%>

<TABLE WIDTH=50% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR align=center>
<TD colspan=4><IMG SRC="havadurumu.jpg" width=600 height=30></TD>
</TR>
<TR align=center>
<TD>İl:</TD>
<TD>Sıcaklık:</TD>
<TD>Durum:</TD>
<TD> </TD>
</TR>
<TR align=center>
<TD><%=il%></TD>
<TD><%=sicaklik%></TD>
<TD><%=durum%></TD>
<TD><img SRC="image/<%=resim%>.gif"></TD>
</TR>
</TABLE>
<TABLE WIDTH=20% ALIGN=center BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<td align=left bgcolor=ffffff nowrap>
<font face=tahoma size=1><b>Yurtiçi Merkezler :</b></font>
<select style="font-size:10px;" name="LOCATION" width=120 onChange="window.location=this.options[this.selectedIndex].value; return true">
<option value=havadurumu.asp?il=ANKARA>Seçiniz</option>
<option value=havadurumu.asp?il=ADANA>ADANA
<option value=havadurumu.asp?il=ADIYAMAN>ADIYAMAN
<option value=havadurumu.asp?il=AFYON>AFYON
<option value=havadurumu.asp?il=AGRI>AGRI
<option value=havadurumu.asp?il=AKSARAY>AKSARAY
<option value=havadurumu.asp?il=AMASYA>AMASYA
<option value=havadurumu.asp?il=ANKARA>ANKARA
<option value=havadurumu.asp?il=ANTALYA>ANTALYA
<option value=havadurumu.asp?il=ARDAHAN>ARDAHAN
<option value=havadurumu.asp?il=ARTVIN>ARTVIN
<option value=havadurumu.asp?il=AYDIN>AYDIN
<option value=havadurumu.asp?il=BALIKESIR>BALIKESIR
<option value=havadurumu.asp?il=BARTIN>BARTIN
<option value=havadurumu.asp?il=BATMAN>BATMAN
<option value=havadurumu.asp?il=BAYBURT>BAYBURT
<option value=havadurumu.asp?il=BILECIK>BILECIK
<option value=havadurumu.asp?il=BINGOL>BINGOL
<option value=havadurumu.asp?il=BITLIS>BITLIS
<option value=havadurumu.asp?il=BOLU>BOLU
<option value=havadurumu.asp?il=BOZCAADA>BOZCAADA
<option value=havadurumu.asp?il=BURDUR>BURDUR
<option value=havadurumu.asp?il=BURSA>BURSA
<option value=havadurumu.asp?il=CANAKKALE>CANAKKALE
<option value=havadurumu.asp?il=CANKIRI>CANKIRI
<option value=havadurumu.asp?il=CORUM>CORUM
<option value=havadurumu.asp?il=DENIZLI>DENIZLI
<option value=havadurumu.asp?il=DIYARBAKIR>DIYARBAKIR
<option value=havadurumu.asp?il=DUZCE>DUZCE
<option value=havadurumu.asp?il=EDIRNE>EDIRNE
<option value=havadurumu.asp?il=ELAZIG>ELAZIG
<option value=havadurumu.asp?il=ERZINCAN>ERZINCAN
<option value=havadurumu.asp?il=ERZURUM>ERZURUM
<option value=havadurumu.asp?il=ESKISEHIR>ESKISEHIR
<option value=havadurumu.asp?il=GAZIANTEP>GAZIANTEP
<option value=havadurumu.asp?il=GIRESUN>GIRESUN
<option value=havadurumu.asp?il=GOKCEADA>GOKCEADA
<option value=havadurumu.asp?il=GUMUSHANE>GUMUSHANE
<option value=havadurumu.asp?il=HAKKARI>HAKKARI
<option value=havadurumu.asp?il=HATAY>HATAY
<option value=havadurumu.asp?il=IGDIR>IGDIR
<option value=havadurumu.asp?il=ISPARTA>ISPARTA
<option value=havadurumu.asp?il=ISTANBUL>ISTANBUL
<option value=havadurumu.asp?il=IZMIR>IZMIR
<option value=havadurumu.asp?il=K.MARAS>K.MARAS
<option value=havadurumu.asp?il=KARABUK>KARABUK
<option value=havadurumu.asp?il=KARAMAN>KARAMAN
<option value=havadurumu.asp?il=KARS>KARS
<option value=havadurumu.asp?il=KASTAMONU>KASTAMONU
<option value=havadurumu.asp?il=KAYSERI>KAYSERI
<option value=havadurumu.asp?il=KILIS>KILIS
<option value=havadurumu.asp?il=KIRIKKALE>KIRIKKALE
<option value=havadurumu.asp?il=KIRKLARELI>KIRKLARELI
<option value=havadurumu.asp?il=KIRSEHIR>KIRSEHIR
<option value=havadurumu.asp?il=KOCAELI>KOCAELI
<option value=havadurumu.asp?il=KONYA>KONYA
<option value=havadurumu.asp?il=KUTAHYA>KUTAHYA
<option value=havadurumu.asp?il=MALATYA>MALATYA
<option value=havadurumu.asp?il=MANISA>MANISA
<option value=havadurumu.asp?il=MARDIN>MARDIN
<option value=havadurumu.asp?il=MERSIN>MERSIN
<option value=havadurumu.asp?il=MUGLA>MUGLA
<option value=havadurumu.asp?il=MUS>MUS
<option value=havadurumu.asp?il=NEVSEHIR>NEVSEHIR
<option value=havadurumu.asp?il=NIGDE>NIGDE
<option value=havadurumu.asp?il=ORDU>ORDU
<option value=havadurumu.asp?il=OSMANIYE>OSMANIYE
<option value=havadurumu.asp?il=RIZE>RIZE
<option value=havadurumu.asp?il=SAKARYA>SAKARYA
<option value=havadurumu.asp?il=SAMSUN>SAMSUN
<option value=havadurumu.asp?il=SANLIURFA>SANLIURFA
<option value=havadurumu.asp?il=SIIRT>SIIRT
<option value=havadurumu.asp?il=SINOP>SINOP
<option value=havadurumu.asp?il=SIRNAK>SIRNAK
<option value=havadurumu.asp?il=SIVAS>SIVAS
<option value=havadurumu.asp?il=TEKIRDAG>TEKIRDAG
<option value=havadurumu.asp?il=TOKAT>TOKAT
<option value=havadurumu.asp?il=TRABZON>TRABZON
<option value=havadurumu.asp?il=TUNCELI>TUNCELI
<option value=havadurumu.asp?il=USAK>USAK
<option value=havadurumu.asp?il=VAN>VAN
<option value=havadurumu.asp?il=YALOVA>YALOVA
<option value=havadurumu.asp?il=YOZGAT>YOZGAT
<option value=havadurumu.asp?il=ZONGULDAK>ZONGULDAK
</select>
</td>
</TR>
</TABLE>

-------------------------------------------------------
Kategori Oluşturmak
-------------------------------------------------------
<% @Language=VBScript %> 


<%
Set kategori = Server.CreateObject("ADODB.Recordset")
sor = "Select * from kategori ORDER BY id" ' kategori tablomuzu id sırasına göre diziyoruz.
kategori.Open sor,Sur,1,3
toplam_kategori=kategori.recordcount
%>

</tr>
<%
While Not kategori.EOF
%>
<tr>
<td width="100%" height="13" bgcolor="#CCCCCC"><span lang="en">
<font face="Verdana" size="2">
<img border="0" src="images/Lopez2_Bullet2.gif"></font></span><font face="Verdana" size="2">
<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=8148372&url=kategori.asp?kategori_no=<%=kategori("kategori_no")%>" data-href="kategori.asp?kategori_no=<%=kategori("kategori_no")%>"><%=kategori("kategori_adi")%></a></font></td>
</tr>
<%
If Not kategori.EOF Then
%>
<% kategori.MoveNext
End If
%>
<% Wend %>

---------------------------------------------------------------
Domain Sorgulama
---------------------------------------------------------------
<%  
If request.form("domain")<>"" then
GotothisURL = "http://www." & request.form("domain")

Set GetConnection = CreateObject("Microsoft.XMLHTTP")

GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send

ResponsePage = GetConnection.getResponseHeader("Date")

if ResponsePage="" then
Response.write("Domain kullanımda değil")
else
Response.write("Domain alınmış(kullanımda)")
end if

Set GetConnection = Nothing

else
%>
<form method=post action=<% =request.servervariables("URL") %>>
<input type=text name=domain size=15 value="domain.com">
<input type=submit value="Find domain name">
</form>
<% end if %>

------------------------------------------------
XML ile ytl uyumlu döviz bilgisi görüntülemek,
-------------------------------------------------
<% 
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function

strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
strVeri = VeriAL(strAdres)
iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+50,10)
strDolarSatis=Mid(strVeri,iDolar+51,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis
strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis
%>
//Asp ile Döviz Bilgisi Görüntülemek ♀ By NomadturK
<html>
<title>Asp ile Döviz Bilgisi Görüntülemek ♀ By NomadturK</title>
<style type="text/css">
<!--
.doeviz {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
-->
</style>
<body>
<table width="100%" border="0" cellspacing="1" bgcolor="#EFEFEF">
<tr>
<td height="28" valign="top" bgcolor="#F0FCFF"><div align="center"><strong><font face="Verdana"><b><font color="#FF9900" style="font-size: 8pt">MERKEZ BANKASI<br>
DÖVİZ KURLARI</font></b></font></strong></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" bgcolor="#EFEFEF">
<tr>
<td colspan="2" bgcolor="#F0FCFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">DOLAR</font></b></font></strong></td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIŞ</font></td>
<td width="100%" class="doeviz" bgcolor="#F0FCFF"><div align="left"> <font color="#333333" face="verdana">
<p align="right"> <%=strdolaralis%> YTL
</font></div></td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIŞ</font></td>
<td class="doeviz" width="100%" bgcolor="#F0FCFF"><div align="left"><font color="#333333" face="verdana">
<p align="right"> <%=strdolarsatis%> YTL
</font></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" bgcolor="#EFEFEF">
<tr>
<td colspan="2" bgcolor="#F0FCFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">EURO</font></b></font></strong></td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIŞ</font></td>
<td width="100%" class="doeviz" bgcolor="#F0FCFF">
<p align="right"><font color="#333333"><font face="verdana"> <%=streuroalis%> YTL </font></font> </td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIŞ</font></td>
<td class="doeviz" width="100%" bgcolor="#F0FCFF">
<p align="right"><font color="#333333"><font face="verdana"><%=streurosatis%> YTL</font></font> </td>
</tr>
</table>
</body>
</html>

----------------------------------------------------------------------
Büyük harf-küçük harf dönüşümü
----------------------------------------------------------------------
<% 
function buyukharfyap(metin,degisim)
if degisim = 0 then 'büyük için 0 kullanılacak
buyukharfyap = Replace(metin,"ı","I")
buyukharfyap = Replace(buyukharfyap,"i","İ")
buyukharfyap = UCase(buyukharfyap)
else 'küçük için
buyukharfyap = Replace(metin,"I","ı")
buyukharfyap = Replace(buyukharfyap,"İ","i")
buyukharfyap = LCase(buyukharfyap)
end if
end function
%>

----------------------------------------------------------
Formdan alınan bilgilerin veritabanına yazılması,
----------------------------------------------------------
Öncelikle aşağıdaki gibi bir form oluşturup "form.asp" adıyla kaydedelim... 

<form method="Post" action="form_islem.asp">
<table>
<tr>
<td>E-mail: </td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td>Adınız : </td>
<td><input type="text" name="adiniz"></td>
</tr>
<tr>
<td>Soyadınız : </td>
<td><input type="text" name="soyadiniz"></td>
</tr>
<tr>
<td>Düşünceleriniz : </td>
</tr>
<tr><td><textarea cols="50" name="dusunceler" ></textarea></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="Gönder"></td>
</tr>
</table>
</form>


Şimdide bu formdaki verileri alıp veritabanına yazacak sayfayı hazırlayalım. Sayfayı "form_islem.asp" adıyla kaydedin.

<%
'db ye bağlanalım
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt.mdb"))
set rs = server.createobject("adodb.recordset")
verirs = "Select * from form"
rs.Open verirs,conn,1,3

'formdan verileri alıp yeni bir kayır oluşturalım.
rs.AddNew
rs("email") = Request.Form("email")
rs("adiniz") = Request.Form("adiniz")
rs("soyadiniz") = Request.Form("soyadiniz")
rs("dusunceler") = Request.Form("dusunceler")
rs.Update

'bağlantıları kapatalım.
rs.Close
rs = Nothing
conn.Close
conn = Nothing
%>

-----------------------------------------------------------
Arama Motoru
----------------------------------------------------------
//search.asp dosyası------------------------------------------------------------------------------ 


<%

'Optimize eden varlık=Toygar Dundaralp
'e-Mail=tdundaralp@msn.com

%>
<% option explicit %>
<body bgcolor=336699>
<style type=text/css>
a{color:white;font-family:tahoma;font-size:12;font-weight:bold}
a:hover{color:#990000}
</style>
<font color=orange face=tahoma size=2><b>
<%
dim sol,sag,sayi,connobj,rsobj,sql,ara,sayiand,soland,sagand
set connobj=server.createobject("adodb.connection")
connobj.open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("denek.mdb"))
set rsobj=server.createobject("adodb.recordset")

ara=request.form("ara")
if instr(ara,"'") then
ara=replace(ara,"'","")
end if
if instr(ara," and ") then
ara=replace(ara," and ","|")
sayiand=instr(ara,"|")
soland=left(ara,sayiand-1)
sagand=mid(ara,sayiand+1)
sql="select site,bilgi from denek where kelime1 like '"&soland&"' or kelime2 like '"&soland&"' or " &_
"kelime3 like '"&soland&"' or kelime4 like '"&soland&"' or kelime1 like '"&sagand&"' or " &_
"kelime2 like '"&sagand&"' or kelime3 like '"&sagand&"' or kelime4 like '"&sagand&"'"
elseif instr(ara,"*") then
sol=left(ara,1)
sag=right(ara,1)
sayi=len(ara)-1
if left(ara,1)="*" then
ara=mid(ara,2)
sql="select site,bilgi from denek where kelime1 like '%"&ara&"' or kelime2 like '%"&ara&"' or " &_
"kelime3 like '%"&ara&"' or kelime4 like '%"&ara&"'"
elseif right(ara,1)="*" then
ara=left(ara,sayi)
sql="select site,bilgi from denek where kelime1 like '"&ara&"%' or kelime2 like '"&ara&"%'or " &_
"kelime3 like '"&ara&"%' or kelime4 like '"&ara&"%'"
end if
else
sql="select site,bilgi from denek where kelime1 like '"&ara&"' or kelime2 like '"&ara&"' or " &_
"kelime3 like '"&ara &"' or kelime4 like '"& ara &"'"
end if
rsobj.open sql,connobj,2,3
do while not rsobj.eof
response.write "<a href=http://"& rsobj(0)&">" & rsobj(0) &"</a>" &"<br>" & rsobj(1) &"<br><br>"
rsobj.movenext
loop

%>


<%
rsobj.close
set rsobj = nothing
connobj.close
set connobj = nothing
%>

//search.asp dosyası--------------------------------buraya kadar--------------------------------


//html dosyası--------------------------------------
<html>
<body bgcolor=336699>
<center><br><br>
<form action=search.asp method=post>
<input type=text name=ara> &nbsp
<input type=submit value=" Ara ">
</form>
</center>
</body>
</html>

-----------------------------------------------
Sayfa Şifreleme
-----------------------------------------------
<% Response.Buffer = True %> 
<%
'Sifre = Burada bulunan admin yazısı yerine kendi şifrenizi yazınız.
sifre = "8282"
if Session("sifreniz") <> sifre then
if Request.Form("sifrem") <> sifre then
Call giris
Else
Session("sifreniz") = sifre
End if
End if
Sub giris
gelen_sayfa = "http://"&Request.ServerVariables ("HTTP_HOST")&Request.ServerVariables("URL")
%>
<table border="0" cellpadding="2" cellspacing="0" width="100%">
<tr>
<td width="100%"><form method="POST" action="<% = gelen_sayfa %>">
<p align="center"><i><b><font color="#FF6600" size="1">( Güvenlik Girişi
)</font></b></i></td>
</tr>
<tr>
<td width="100%">
<p align="center"><i><b><font color="#6F778C"><font size="1"></font></font></b></i></td>
</tr>
<tr>
<td width="100%">
<p align="center"><i><font color="#FF6600">Sifre : <input type="password" name="sifrem" size="20" style="font-family: Verdana; font-size: 10px; color: #A7ACBA; border: 1 solid #C2C6CF" value="123456"></font></i></td>
</tr>
<tr>
<td width="100%">
<p align="center"><input type="submit" value="Giriş" name="B1" style="font-family: Verdana; font-size: 10px"><p align="center">
<i><b><font color="#FF6600">
<a href="mailto:mustafa_uyar@msn.com" style="text-decoration: none">m U S
T A f a  UYAR</a></font></b></i></td>
</tr>
</table>
<%
Response.End
End Sub
%>

------------------------------------------------
Sitenizdeki aktif kullanıcılar,
------------------------------------------------
<Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting.Dictionary"></Object> 

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
application("ServerStart") = now
end sub
function Decrypt(sText)
Decrypt = sText
end function

function adZero(sText)
if isNull(sText) then exit function
adZero = string(5 - len(sText), "0") & sText
end function

Sub Session_OnStart


Session.TimeOut = 5
sAktifUsrList = application("AktifUsrList")

sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim"))

if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci")))

sLastActionTime = Time

sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed


dOnlineUsers.Add Session.SessionID, sUserInfo

application.lock
application("AktifUsr") = application("AktifUsr") + 1
application("Ziyaretci") = application("Ziyaretci") + 1

if application("TodaysDate") <> Date() then
application("PageViewsToday") = 0
application("ZiyaretciToday") = 0
end if
application("ZiyaretciToday") = application("ZiyaretciToday") + 1
application("TodaysDate") = Date()
application.unlock

End Sub

Sub Session_OnEnd

on error resume next
dOnlineUsers.Remove Session.SessionID

application.lock
application("AktifUsr") = application("AktifUsr") - 1
application.unlock

End Sub
</SCRIPT>





< Bu mesaj bu kişi tarafından değiştirildi TasarımHaber -- 16 Temmuz 2006; 15:05:56 >
Bu mesaja 1 cevap geldi.
T
19 yıl
Çavuş
Konu Sahibi

ASP'Ye Devam
Asptear ile havadurumu
----------------------------------------------------
<%  
adres = "http://www.meteor.gov.tr/pages/sonhavat.htm"

On Error Resume Next
Set Tear = Server.CreateObject("Softwing.AspTear" )
strVeri = Tear.Retrieve(adres,2, "" ,"" ,"" )

If Err <> 0 Then
Response.Write "Bir hata oluştu, açıklaması: " & Err.Description
Response.End
End If

tahminler = InStr(1,strVeri,"SICAKLIKLARI DA SOYLE OLACAK" )
strHavadurumu = Mid(strVeri,tahminler+38,150)
%>

<font size="2" face="Verdana"><b><%=Date() %></b> tarihli Hava Tahmini şöyledir: <p>
<b><%=strHavadurumu %></b> </font>
</body>
</html>

------------------------------------------------------
FSO ile dosya okuma
------------------------------------------------------
<% 
For each veri in Request.QueryString
gelen = Request.QueryString(veri)
next
Dim f,fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("&gelen&", 1, 0, 0)
if f.AtEndOfStream then
kod = ""
else
kod = f.readall
end if

StrKod = Replace (kod,"<","<",1,-1,1)
StrKod = Replace (kod,">",">",1,-1,1)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>KOD CRAKER</title>
</head>
<body>

<textarea rows="35" name="S1" cols="92"><%=StrKod%>

---------------------------------------------------------
ASP+Bechmark Testi
---------------------------------------------------------
<% 
Dim Conn,RS,SQL,DSN

DSN = "DBQ=" & Server.Mappath("benchmark.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")

Response.Write "Baslama: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>"

Conn.Open DSN
SQL = "SELECT * FROM table"
RS.Open SQL,Conn,1,2
Do While Not RS.EOF
i = i +1
RS.MoveNext
Loop

Response.Write "Bitme: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>"
Response.Write i & " kayit bulundu."
%>

---------------------------------------------------
Jmail&Şifreleme
--------------------------------------------------
<%@LANGUAGE="VBSCRIPT" %> 
<HTML>
<BODY>
<%
set msg = Server.CreateObject( "JMail.Message" )

msg.From = "email@domain.com" 'gidecek e-mail adresi.
msg.Subject = "Hazirkod" ' e-mail başlık
msg.Body = "Aranan ve Paylaşılan Herşey!." ' e-mail mesajınız.

msg.Logging = true
msg.silent = true

msg.AddRecipient "recipient@domain.com", "Hazirkod" ' gönderen e-mail adresdi.

msg.PGPEncrypt = true' mesajı şifrelemek için "false" değer'de işlev görmez.

if not msg.Send( "mail.doamin.com" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Mesajınız gönderildi ve şifrelendi.!"
end if
%>
</BODY>
</HTML>

---------------------------------------------------------------------
Şifreleme
--------------------------------------------------------------------
<% 
function Encrypt(Text,Password)
Dim TextCharCode, PasswordCharCode, NewCharCode

For Char = 1 To LEN(Text)
TextCharCode = ASC(MID(Text,Char,1))
PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1))
NewCharCode = TextCharCode + PasswordCharCode
if NewCharCode > 255 Then NewCharCode = NewCharCode -255

Encrypt = Encrypt & CHR(NewCharCode)
NEXT
End function

function Decrypt(Code,Password)
Dim CodeCharCode, PasswordCharCode, OriginalCharCode

For Char = 1 To LEN(Code)
CodeCharCode = ASC(MID(Code,Char,1))

PasswordCharCode = ASC(MID(Password,(Char MOD LEN(Password) + 1),1))
OriginalCharCode = CodeCharCode - PasswordCharCode

if OriginalCharCode < 1 Then OriginalCharCode = OriginalCharCode + 255

Decrypt = Decrypt & CHR(OriginalCharCode)
NEXT
End function
%>





< Bu mesaj bu kişi tarafından değiştirildi TasarımHaber -- 16 Temmuz 2006; 15:16:51 >

G
19 yıl
Teğmen

D
19 yıl
Yüzbaşı

<Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting.Dictionary"></Object>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub Application_OnStart
application("ServerStart") = now
end sub
function Decrypt(sText)
Decrypt = sText
end function

function adZero(sText)
if isNull(sText) then exit function
adZero = string(5 - len(sText), "0") & sText
end function

Sub Session_OnStart


Session.TimeOut = 5
sAktifUsrList = application("AktifUsrList")

sNewUserName = Decrypt(request.cookies("isim")+ request.cookies("soyisim"))

if sNewUserName = "" then sNewUserName = "Ziyaretci-" & AdZero(CInt(application("Ziyaretci")))

sLastActionTime = Time

sUserInfo = sNewUserName & "<|>" & sLastActionTime & "<|>" & sLastPageViewed


dOnlineUsers.Add Session.SessionID, sUserInfo

application.lock
application("AktifUsr") = application("AktifUsr") + 1
application("Ziyaretci") = application("Ziyaretci") + 1

if application("TodaysDate") <> Date() then
application("PageViewsToday") = 0
application("ZiyaretciToday") = 0
end if
application("ZiyaretciToday") = application("ZiyaretciToday") + 1
application("TodaysDate") = Date()
application.unlock

End Sub

Sub Session_OnEnd

on error resume next
dOnlineUsers.Remove Session.SessionID

application.lock
application("AktifUsr") = application("AktifUsr") - 1
application.unlock

End Sub
</SCRIPT>


buna birde global.asa gerekir degilmi?


Bu mesaja 1 cevap geldi.
K
19 yıl
Yüzbaşı

güselllll paylaşımını sevdim


Bu mesaja 1 cevap geldi.
M
19 yıl
Teğmen

güsl paylaşım ama başlıgı sanki biraz abartmışsın


Bu mesaja 1 cevap geldi.
T
19 yıl
Çavuş
Konu Sahibi

quote:

Orjinalden alıntı: mrt48

güsl paylaşım ama başlıgı sanki biraz abartmışsın


Yok Daha hep koyacam boş vaktim oldukça

ASP YE DEVAM
Aya göre select box
----------------------------------------------
<% 
iMonth = Month(Now())
Aylar = Array("1","2","3","4","5","6","7","8","9","10","11","12")
response.write "<select name=ay>"
For I = 1 to UBound(Aylar) + 1
if iMonth = I Then
response.write "<option selected>"& I &"</option>"
Else
response.write "<option>"& I &"</option>"
End If
Next
response.write "</select>"
%>



T
19 yıl
Çavuş
Konu Sahibi

ASP Ye DEVAM
Kullanıcıya Türkiyeyle Saat Farkını Yansıtmamak
---------------------------------------------------
function TRSaat(saat) 
SaatFarki = 7
'Burada örnek olarak serverımızın ABD saatine göre ayarlandığını varsayalım.
TRSaat = DateAdd("h", SaatFarki, saat)
end function

'Örneğin saat farkı 7,5 saat ise fonksiyonumuzu şöyle yazabilirsiniz:

function TRSaatK(saat)
SaatFarki = 7
DakikaFarki = 30

TurkiyeSaati = DateAdd("h", SaatFarki, saat)
TRSaat = DateAdd("m", DakikaFarki, TurkiyeSaati)
end function

'Fonksiyonu sayfanızda istediğiniz yerde çağırarak kullanabilirsiniz.
'Örneğin Ülkemize göre saat ve tarihi yazdırmak için;
' response.write TRSaat(Now())
'yazabilirsiniz.
'
'Bir başka örnek olarak ülkemize göre sadece saati yazdırmak için;
' response.write Hour(TRSaat(Now())) & ":" & Minute(TRSaat(Now()))
'yazabilirsiniz.

---------------------------------------------------------
Büyük Küçük Harf Çevrimi
---------------------------------------------------------
'KULLANIMI: 
'
'Bir Metni Büyük Harfe Çevirmek İçin:
'TR("Çevrilecek Metin", 1)
'
'Bir Metni Küçük Harfe Çevirmek İçin:
'TR("Çevrilecek Metin", 2)


function TR(metin, tur)

dim sonuc

if tur = 1 then
sonuc = replace(metin, "a", "A")
sonuc = replace(sonuc, "b", "B")
sonuc = replace(sonuc, "c", "C")
sonuc = replace(sonuc, "ç", "Ç")
sonuc = replace(sonuc, "d", "D")
sonuc = replace(sonuc, "e", "E")
sonuc = replace(sonuc, "f", "F")
sonuc = replace(sonuc, "g", "G")
sonuc = replace(sonuc, "ğ", "Ğ")
sonuc = replace(sonuc, "h", "H")
sonuc = replace(sonuc, "ı", "I")
sonuc = replace(sonuc, "i", "İ")
sonuc = replace(sonuc, "j", "J")
sonuc = replace(sonuc, "k", "K")
sonuc = replace(sonuc, "l", "L")
sonuc = replace(sonuc, "m", "M")
sonuc = replace(sonuc, "n", "N")
sonuc = replace(sonuc, "o", "O")
sonuc = replace(sonuc, "ö", "Ö")
sonuc = replace(sonuc, "p", "P")
sonuc = replace(sonuc, "r", "R")
sonuc = replace(sonuc, "s", "S")
sonuc = replace(sonuc, "ş", "Ş")
sonuc = replace(sonuc, "t", "T")
sonuc = replace(sonuc, "u", "U")
sonuc = replace(sonuc, "ü", "Ü")
sonuc = replace(sonuc, "v", "V")
sonuc = replace(sonuc, "y", "Y")
sonuc = replace(sonuc, "z", "Z")
sonuc = replace(sonuc, "q", "Q")
sonuc = replace(sonuc, "w", "W")
else
sonuc = replace(metin, "A", "b")
sonuc = replace(sonuc, "B", "b")
sonuc = replace(sonuc, "C", "c")
sonuc = replace(sonuc, "Ç", "ç")
sonuc = replace(sonuc, "D", "d")
sonuc = replace(sonuc, "E", "e")
sonuc = replace(sonuc, "F", "f")
sonuc = replace(sonuc, "G", "g")
sonuc = replace(sonuc, "Ğ", "ğ")
sonuc = replace(sonuc, "H", "h")
sonuc = replace(sonuc, "I", "ı")
sonuc = replace(sonuc, "İ", "i")
sonuc = replace(sonuc, "J", "j")
sonuc = replace(sonuc, "K", "k")
sonuc = replace(sonuc, "L", "l")
sonuc = replace(sonuc, "M", "m")
sonuc = replace(sonuc, "N", "n")
sonuc = replace(sonuc, "O", "o")
sonuc = replace(sonuc, "Ö", "ö")
sonuc = replace(sonuc, "P", "p")
sonuc = replace(sonuc, "R", "r")
sonuc = replace(sonuc, "S", "s")
sonuc = replace(sonuc, "Ş", "ş")
sonuc = replace(sonuc, "T", "t")
sonuc = replace(sonuc, "U", "u")
sonuc = replace(sonuc, "Ü", "ü")
sonuc = replace(sonuc, "V", "v")
sonuc = replace(sonuc, "Y", "y")
sonuc = replace(sonuc, "Z", "z")
sonuc = replace(sonuc, "Q", "q")
sonuc = replace(sonuc, "W", "w")
end if

TR = sonuc

end function

-----------------------------------------------------------
En son 10 Kayıt
-----------------------------------------------------------
<% 
'Veritabanına bağlanıyoruz.
set conn=server.createobject("adodb.connection")
conn.open= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath ("db/database.mdb")
'Şimdi Kayıt nesnemizi oluşturuyoruz.
Set rs=server.createobject("adodb.recordset")
'şimdi sql ile sorgu oluşturuyoruz.
sql="select * from tablo where kayit_tarih desc"
'şimdi kayıt nesnemiz olan rs ile tabloyu açtırıyoruz
rs.open sql,conn,1,3
%>
<%
' Şimdi ise sql sorgusu ile aldığımız kayıtların sadece 10 tanesini gösterecek bir döngü yaratıyoruz
for i=1 to 10
%>
<%= rs("kayit_tarih")%> <%= rs("kayit")%>
<% rs.movenext %>
<% next %>


Bu mesaja 1 cevap geldi.
Y
19 yıl
Çavuş

güzel paylasım, yalnız php olsa sevinirdim :D
ayrıca başlıktaki duruma 2 ay sonra ulaşırsın bence :D


Bu mesaja 1 cevap geldi.
T
19 yıl
Çavuş
Konu Sahibi

quote:

Orjinalden alıntı: ysfozy

güzel paylasım, yalnız php olsa sevinirdim :D
ayrıca başlıktaki duruma 2 ay sonra ulaşırsın bence :D


Hepsini alfabe sırasına göre koyuyorum ama bütün kodları koyacam emin olun.
ASP'ye Devam
---------------------------
Dosya Kontrol
---------------------------
<% 
Set Tools = Server.CreateObject("MSWC.Tools")
resim = "images/deneme.gif"
If Tools.FileExists(resim) then
'resim varsa
Response.Redirect resim
Else
'resim yoksa
Response.Redirect "images/bos.gif"
End if
%>

<%
'
' IIS 6.0 da çalışması için 2000 serverden tools.dll alıp win 2003 server de register ediniz.
'
%>

---------------------------------------
Database'e bu bilgi girldi mi?
---------------------------------------
Bunu çoğunlukla üyelik sistemlerinde kullanabilirsiniz. Böylece aynı kullanıcı adına sahip bi kaç üye gibi bi sorun ortaya çıkmaz.  Kod örneği aşağıdadır. 
--------------------
..
..
..
set rset = Server.CreateObject("ADODB.RecordSet")
sql_rset ="Select * FROM tablomuz where kullaniciadi='"&Request("kullaniciadi")&"'"
rset.open sql_rset,conn,1,3
On Error Resume Next 'BU SATIR COK ONEMLI CUNKI EGER DAHA
'ONCEDEN BOYLE BIR KULLANICI GIRILMEMISSE
'DBDEKI ALANDA KULLANICI ADINI BULAMADIGINDAN
'HATA VERECEK BIZ BU HATA DURUMUNDA
'AKISIN DEVAMINI SAGLIYORUZ

If rset("kullaniciadi") = "" Then
Response.Write("Bu kullanıcı adı daha önceden alınmamış.")
Else
Response.Write("Bu kullanıcı adı bir başka üye tarafından kullanılıyor. Lütfen başka bir kullanıcı adı seçiniz.")
End If
..
..
..

------------------------------------------
Mail Yolla
------------------------------------------
Sub SendEmail(strFrom, strTo, strSubject, strBody) 
' DB ve email sabitleri
Dim objCDOMail

' email aktif mi
If SEND_EMAIL Then

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

' obje özellikleri
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody

' mesajı yolla
objCDOMail.Send
Set objCDOMail = Nothing
End If
End Sub



T
19 yıl
Çavuş
Konu Sahibi

ASPYE DEVAM

Refresh Page
<%if Request.QueryString ("refresh")<>1 then%> 
<script>window.location.replace("sayfa.asp?refresh=1")</script>
<%end if%>


Microsoft Accses Veritabanı Bağlantısı

Set cnnl = Server.CreateObject("ADODB.Connection") 
cnnl.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")


Dosya Kaydet
Sub SaveFile(TextToSave, PathInfo, FileIn) 
Dim FileObject, a
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set a = FileObject.CreateTextFile(PathInfo & FileIn, True)
a.WriteLine(TextToSave)
a.Close
Set a = Nothing
Set FileObject = Nothing
End Sub

Sub WriteLine(strText)
Response.Write strText & vbCrLf
End Sub



T
19 yıl
Çavuş
Konu Sahibi

ASPYE DEVAM

Set Focus
<script language=vbscript> 
document.all.form1.text1.focus()
</script>


TavsiyeMenüsü

<H3>Tavsiye v 1.0</H3> 
<%
Dim objCDONTS
Dim strFromName
Dim strFromEmail, strToEmail
Dim strSubject, strBody
Dim strThisPage
Dim strReferringPage
Dim bValidInput

strThisPage = Request.ServerVariables("SCRIPT_NAME")
strReferringPage = Request.ServerVariables("HTTP_REFERER")

' Debugging lines:
'Response.Write strThisPage & "<BR>" & vbCrLf
'Response.Write strReferringPage & "<BR>" & vbCrLf

' Read in and set the initial values of our message parameters
strFromName = Trim(Request.Form("txtFromName"))
strFromEmail = Trim(Request.Form("txtFromEmail"))
strToEmail = Trim(Request.Form("txtToEmail"))
strSubject = "Check out ASP 101!"
strBody = Trim(Request.Form("txtMessage"))


' I set the body message to a message that referenced the page the
' user arrived from. This makes it great if you place a link to it
' from your different articles, but can be weird if people link in
' from other web sites.
If strBody = "" Then
If strReferringPage = "" Or InStr(1, strReferringPage, "www.veritabanim.com", 1) = 0 Then
strBody = ""
strBody = strBody & "Bu site harika bir site.Mutlaka gez..." & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & " http://www.veritabanim.com" & vbCrLf
Else
strBody = ""
strBody = strBody & "Bu siteyi mutlaka gezmelisin" & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & " " & strReferringPage & vbCrLf
End If
End If

' Quick validation just to make sure our parameters are somewhat valid
bValidInput = True
bValidInput = bValidInput And strFromName <> ""
bValidInput = bValidInput And IsValidEmail(strFromEmail)
bValidInput = bValidInput And IsValidEmail(strToEmail)

' If valid send email and show thanks, o/w show form
If bValidInput Then
' Set up our email object and send the message
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = strFromName & " <" & strFromEmail & ">"
objCDONTS.To = strToEmail
objCDONTS.Subject = strSubject
objCDONTS.Body = strBody
objCDONTS.Send
Set objCDONTS = Nothing

' Show our thank you message
ShowThanksMsg
Else
If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then
Response.Write "Lutfen bos alan birakmayin.Mail adreslerini dogru yazin" & "<BR>" & vbCrLf
End If
' Show our information retrieval form
ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody
End If
' End of page logic... subs and functions follow!
%>


<%
' Subroutines and Functions that encapsulate some functionality
' and make the above code easier to write... and read.

' A quick email syntax checker. It's not perfect,
' but it's quick and easy and will catch most of
' the bad addresses than people type in.
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True

If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If

IsValidEmail = bIsValid
End Function

' I made this a function just to get it out of the
' logic and make it easier to read. It just shows the
' form that asks for the input
Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody)
' I use script_name so users can rename this script witout having to change the code.
%>
<FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>
<TABLE BORDER="0">
<TR>
<TD VALIGN="top" ALIGN="right"><STRONG>Adiniz:</STRONG></TD>
<TD><INPUT TYPE="text" NAME="txtFromName" VALUE="" SIZE="30"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right"><STRONG>Sizin Mailiniz:</STRONG></TD>
<TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="" SIZE="30"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right"><STRONG>Arkadasinizin Maili:</STRONG></TD>
<TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="" SIZE="30"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right"><STRONG>Mesaj:</STRONG></TD>
<TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY></TEXTAREA>
</TR>
<TR>
<TD></TD>
<TD><INPUT TYPE="reset" VALUE="SİL" name=rstReferral> <INPUT TYPE="submit" VALUE="GÖNDER" name=subReferral></TD>
</TR>
</TABLE>
</FORM>
<%
'<P>The Message to be sent:</P>
'<P><B>Subject:</B> < %= strSubject % ></P>
'<P><B>Body:</B> < %= strBody % ></P>
End Sub

' This just shows our thank you message... probably didn't need to
' be a function, but since I made the form one I figured I'd do this
' for consistency.
Sub ShowThanksMsg()
%>
<P></P>
<%
End Sub
%>


www.tr.net Sitesinde Yayınlana Haberler

<%  
const Request_GET = 2
Dim haberURL, haberim, basliklar
haberURL = "http://www.tr.net"
Set alma = CreateObject("SOFTWING.ASPtear" )
On Error Resume Next
haberim = alma.Retrieve(haberURL, Request_GET, "" , "" , "" )
If Err.Number <> 0 Then
Response.Write "HATA!!!!!!! Lütfen Sayfayi Yeniden Yükleyiniz... "
Response.End
End If
dim baslangic , bitis
baslangic = "<table border=0 cellpadding=0 cellcpacing=0>"
bitis = "</table>"
dim x , abc
x = 0
abc = 0
dim lale
lale = ""
Do Until abc = 2
x = x + 1
If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then
abc = abc + 1
End If
If Mid(haberim,x,Len(baslangic)) = baslangic Then
abc = abc + 1
Else
If abc = 1 Then
lale = lale + Mid(haberim,x,1)
End If
End If
Loop
Function seklesok(hammadde)
Dim gecicigeyik
gecicigeyik = hammadde
gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)
gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)
seklesok = gecicigeyik
End Function
Response.Write "<"
Response.Write seklesok(lale)
Response.Write "</table>"
%>



T
19 yıl
Çavuş
Konu Sahibi

ASP.NET

Döküman Yönetimi

<%@ Page Language="VB" debug=true  %> 
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<% ''////////////////////////////////////////////////////////////////
''File uploading by Türkay Biliyor, turkay.biliyor@tekersan.com.tr
''///////////////////////////////////////////////////////////////
Dim objConnection As OleDbConnection
Dim objCommand As OleDbCommand
Dim myReader As OleDbDataReader
Dim strSQLQuery As String
If Request.QueryString("mode") = "view" Then
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";")
strSQLQuery = "SELECT * FROM Files WHERE ID =" & Request.QueryString("file_id") & " "
objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
myReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
If myReader.Read() Then
Dim fileData() As Byte = CType(myReader.Item("FileData"), Byte())
Response.Clear()
Response.AppendHeader("Content-Disposition", "attachment; filename=" + myReader.GetString(1))
Response.ContentType = myReader.GetString(3)
Response.OutputStream.Write(fileData, 0, fileData.Length)
Else
Response.Write("<p>No File to view.</p>")
End If
objConnection.Close()
Else
%><html>
<body>
<script language="VB" runat="server">
Sub btnUpload_OnClick(ByVal Src As Object, ByVal E As EventArgs)
If Fileupload1.HasFile Then
Dim files As HttpFileCollection = Request.Files
Dim i As Integer = 0
While i < Request.Files.Count
Dim file As HttpPostedFile = files(i)
If file.ContentLength > 0 Then
UploadFile(file)
End If
System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
End While
files = Nothing
Else
Response.Write("<p>Chose a file.</p>")
End If
End Sub

Sub UploadFile(ByVal file As HttpPostedFile)
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";")
Dim CmdText As String = "INSERT INTO Files(FileName, FileSize, ContentType, FileData) VALUES (@FileName, @FileSize, @ContentType, @FileData)"
Dim fileName As String = Nothing
Dim contentType As String = file.ContentType
Dim fileLength As Integer = file.ContentLength
Dim fileData(fileLength) As Byte
Dim lastPos As Integer = file.FileName.LastIndexOf("\"c)
fileName = file.FileName.Substring(System.Threading.Interlocked.Increment(lastPos))
file.InputStream.Read(fileData, 0, fileLength)
Try
Dim cmd As OleDbCommand = New OleDbCommand(CmdText, con)
Try
Dim pms As OleDbParameterCollection = cmd.Parameters
pms.Add("@FileName", OleDbType.VarChar, 50)
pms.Add("@FileSize", OleDbType.Integer)
pms.Add("@ContentType", OleDbType.VarChar, 50)
pms.Add("@FileData", OleDbType.VarBinary)
pms("@FileName").Value = fileName
pms("@FileSize").Value = fileLength
pms("@ContentType").Value = contentType
pms("@FileData").Value = fileData
pms = Nothing
con.Open()
cmd.ExecuteNonQuery()
Finally
CType(cmd, IDisposable).Dispose()
End Try
Finally
CType(con, IDisposable).Dispose()
End Try
End Sub
</script>
<%
objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Files.mdb") & ";")
If Request.QueryString("delete") <> "" Then
strSQLQuery = "Delete from Files where ID = " & Request.QueryString("delete") & " "
objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
End If
strSQLQuery = "SELECT * FROM Files"
objCommand = New OleDbCommand(strSQLQuery, objConnection)
objConnection.Open()
myReader = objCommand.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

%>
<table bgcolor="gainsboro" border="1">
<form runat="server">
<tr bgcolor="navy">
<td colspan="4">
<asp:button id="btn_Upload" runat="server" text="Upload" tabindex="2" OnClick = "btnUpload_OnClick"></asp:button>
<asp:fileupload id="Fileupload1" runat="server" />
</td>
</tr>
</form>
<% If myReader.HasRows Then%>
<tr bgcolor="navy">
<td><font color=white face=tahoma size=2>FileName</font></td>
<td><font color=white face=tahoma size=2>FileSize</font></td>
<td><font color=white face=tahoma size=2>ContentType</font></td>
<td><font color=white face=tahoma size=2>Delete</font></td>
</tr>
<%While myReader.Read()%>
<tr>
<td><a href=main.aspx?file_id=<%=myReader.GetInt32(0)%>&mode=view><font face=tahoma size=2><%=myReader.GetString(1)%></font></a> </td>
<td><font face=tahoma size=2><%=formatnumber(myReader.GetInt32(2).ToString()/1000,2)%> Kb</font></td>
<td><font face=tahoma size=2><%=myReader.GetString(3)%></font></td>
<td><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=8189298&url=main.aspx?delete=<%=myReader.GetInt32(0).ToString()%>" data-href="main.aspx?delete=<%=myReader.GetInt32(0).ToString()%>"><font face=tahoma size=2 color=navy>Delete</font></a>
</tr>
<%End While
Else
Response.Write("<p>No records.</p>")
End If
myReader.Close()
objConnection.Close()
%>
</table>
</body>
</html>
<%End if%>


Sayı Bulma

Dim a, b, c, d 
Dim sayi(5) As Integer


For a = 0 To 5
sayi(a) = Rnd(1) * 49 + 1
Me.liste.Items.Add(sayi(a))
Next


d = sayi(0)
c = sayi(0)

For a = 1 To 5
If d < sayi(a) Then
d = sayi(a)
End If
Next
For a = 1 To 5
If c > sayi(a) Then
c = sayi(a)
End If
Next
Response.Write("En büyük sayı....." & d & "<br>")
Response.Write("En küçük sayı....." & c & "<br>")


Login Web Servisi

Imports System.Web.Services 
Imports System.Data.SqlClient

<System.Web.Services.WebService(Namespace:="http://localhost/EOS/slogin")> _
Public Class slogin
Inherits System.Web.Services.WebService

#Region " Web Services Designer Generated Code "

Public Sub New()
MyBase.New()

'This call is required by the Web Services Designer.
InitializeComponent()

'Add your own initialization code after the InitializeComponent() call

End Sub

'Required by the Web Services Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Web Services Designer
'It can be modified using the Web Services Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
'CODEGEN: This procedure is required by the Web Services Designer
'Do not modify it using the code editor.
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

#End Region


<WebMethod()> _
Public Function sql(ByVal a As String, ByVal b As String) As String

Dim DBConn As SqlConnection
Dim DBCommand As SqlDataAdapter
Dim DSPageData As New DataSet
DBConn = New SqlConnection(server=(local);database=deneme;trusted_connection=true)
DBCommand = New SqlDataAdapter _
("Select * From tablom Where " _
& "a = '" & a & "' " _
& "And b = '" & b & "'" _
, DBConn)
DBCommand.Fill(DSPageData, _
"tablom")
If DSPageData.Tables("tablom").Rows.Count = 0 Then
Return ("hata var")
Else
Return ("giris tamam")
End If

End Function

End Class



Mobil Uygulama Geliştirme

Günümüzde GPRS’in yaygınlaşmasının ardından mobil programcılıkta gelişmeye başladı.Şirketler de mobil uygulamalara daha fazla yer vermeye başladı.Eskiden mobil uygulamalar wml ile yazılırken günümüzde .net çatısı altında gelen mobil kontroller kulanılarak oldukça hızlı ve kolay bir şekilde mobil uygulama yazılır hale geldi.Bunu kısa bir örnekle inceleyecek olursak : 

WML ile :

<?xml version='1.0'?>
<!DOCTYPE wml PUBLIC '-//WAPFORUM//DTD WML 1.1//EN' 'http://www.wapforum.org/DTD/wml_1.1.xml'>
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0" />
</head>
<card id="cardid" title="Başlığımız">
<p align="center">ilk mobil uygulamamız!</p>
</card>
</wml>
Bu örnekten de göreceğiniz üzere wml xml tabanlı yazılıyor ve en önemli nokta başlıktır. Tarayıcıya gelen ilk karakter mutlaka < karakteri olmalıdır.Ayrıca bu karakterle başlayan satır da, <?xml version='1.0'?> şeklinde görünmelidir. Başka karakterler -boşluk , yeni satır veya bir başka karakter- "card" için sorun yaratacaktır.Ama .net çatısı altındaki mobil uygulama ise :

<%@ Page Inherits="System.Web.Mobile.UI.MobilePage" Language="vb" %>
<%@ Register TagPrefix="mobile" Namespace="System.Mobile.UI" %>
<mobile:Form runat="server">
<mobile:Label runat="server">
.NET ile Merhaba Dünya!
</mobile:Label>
</Mobile:Form>
Bu örnekte ise asp.net uygulamasından pek farkı yokmuş gibi görünüyor. <asp:…> tagı yerine <mobile:..>tagının geldiğini görüyoruz. Bir diğer fark ise import ettiğimiz sınıfın system.web.mobile sınıfı olduğu.



Adratator

Adratator asp.net ile beraber karşımıza çıkan yeni bir kavram.Adratator eskiden asp’de veritabanı kullnarak yaptığımız veya fazlaca javascript kodu yazarak yaptığımız işi tek bir xml dosyası kullanarak yapmamızı sağlıyor.Oluşturacağımız xml dosyası içindeki tag’lar arasındaki bilgileri .aspx uzantılı dosyamız algılıyor ve farklı bir şekilde yayınlıyor.Sayfamız her yüklenişinde farklı bannerlar ile açılıyor ve sayfanıza giren kullanıcaların sürekli aynı banner’larla karşılaşmadığı bir ortam oluşuyor.Şimdi bir örnek yazalım. 

--- Reklam.aspx dosyamız --------

<%@ Page Language=VB Debug=true %>
<script runat=server>
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)

End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Reklam</TITLE>
</HEAD>
<BODY LEFTMARGIN="40">
<form runat="server">
<asp:adrotator
AdvertisementFile="reklam.xml"
BorderColor="blue"
BorderWidth=3
runat="server"/>
</form>
</BODY>
</HTML>

‘-----------------------------------------------------------------

Yukarıdaki dosyada göreceğiniz gibi adratator kullanımı oldukça basit ve anlaşılır.Border bilgilerini isteğinize göre değiştirirsiniz.Şimdi gelelim xml dosyamıza

--------Reklam.xml-------

<Advertisements>
<Ad>
<ImageUrl>banner1.gif</ImageUrl>
<NavigateUrl>http://www.hazirkod.com</NavigateUrl>
<AlternateText>Hazırkod</AlternateText>
<Impressions>71</Impressions>
</Ad>
<Ad>
<ImageUrl>banner2.gif</ImageUrl>
<NavigateUrl>http://www.google.com.tr</NavigateUrl>
<AlternateText>Google </AlternateText>
<Impressions>70</Impressions>
</Ad>
</Advertisements>


‘-----------------------------------------

Yukarıdaki xml dosyamızı inceleyelim.Gördüğünüz gibi yapısı oldukça basit ve anlaşılır.

<ImageUrl> : Resmimizin adresi
<NavigateUrl> : Resme tıklanınca ulaşılacak adres
<AlternateText> : Eğer resim gösterilemez ise resmin yerinde görüntülenecek metin.
<Impressions> : Reklamın hangi sıklıkla gösterileceği.Eğer birince reklam 1 ikinci ise 90 olursa ikinci reklam daha fazla gösterilir.Yani bir ölçüde öncelik gibi.

Xml dosyamıza bazı ek özellikler de ekleyebilirsiniz.Bu tamamen sizin kullanım amacınıza kalmış.Örnek vermek gerekirse:

<Keyword> : Bir grup reklamın sınıfını tanımlayan anahtar kelimedir.

Örneğin ilk iki reklamımızın anahtarı : <keyword>bilgisayar</keyword>. Sonraki ki tanesi ise <keyword>kitap</keyword> olsun. .aspx uzantılı sayfamızda kullandığımız adratator etiketi içene ekleyeceğimiz “keywordfilter=bilgisyar” eki göstereceğimiz reklamları filitrelememizi sağlıyor.



Bu mesaja 1 cevap geldi.
T
19 yıl
Çavuş
Konu Sahibi

C++
Asal Sayı Bulma

#include<iostream.h> 
#include<conio.h>

int asalmi(int a)
{
int i;
char asal=''''E'''';
for(i=2; i<a; i++)
{
if((a%i)==0)
{
asal=''''H'''';
break;
}
}
if(asal==''''H'''')return 0;
if(a==2)return 1;
if(asal==''''E'''')return 1;

}

void asal_ara(int a,int b)
{
int i;
for(i=a; i<=b; i++)
{
if(asalmi(i)==1){cout<<i<<"\t";}
else continue;
}
}

main()
{
int a,b;
cout<<"alt sinir:";
cin>>a;
cout<<"ust sinir:";
cin>>b;
asal_ara(a,b);
getch();
}



Class Yapısı İle Metris Çarpımı

#define MAX 10 

class matrix
{
int m1[MAX][MAX],m2[MAX][MAX],c[MAX][MAX];
int i,j,k,sayi;
public:
void matris_al(int);
void matris_yaz(int);
void matris_carp(int);
void matris_sifir(int);
};

void matrix::matris_al(int a)
{
cout<<"1. matrisi girin:"<<"\n\n";
for(i=0; i<a; i++)
{
for(j=0; j<a; j++)
{
cout<<(i+1)<<". satir "<<(j+1)<<". sutun:";
cin>>sayi;
m1[i][j]=sayi;
}
}
clrscr();
cout<<"2. matrisi girin:"<<"\n\n";
for(i=0; i<a; i++)
{
for(j=0; j<a; j++)
{
cout<<(i+1)<<". satir "<<(j+1)<<". sutun:";
cin>>sayi;
m2[i][j]=sayi;
}
}

}
void matrix::matris_yaz(int a)
{
cout<<"carpim matrisi:"<<endl;
for(i=0; i<a; i++)
{
for(j=0; j<a; j++)
{
cout<<c[i][j]<<"\t";
}
cout<<"\n";
}

}
void matrix::matris_sifir(int a)
{
for(i=0; i<a; i++)
{
for(j=0; j<a; j++)
{
c[i][j]=NULL;
}
}
}
void matrix::matris_carp(int a)
{
for(i=0; i<a; i++)
{
for(j=0; j<a; j++)
{
for(k=0; k<a; k++)
{
c[i][j]+=m1[i][k]*m2[k][j];
}
}
}
}

main()
{
int a;
char ch;
do
{
gel:
clrscr();
cout<<"kaca kaclik matris:";
cin>>a;
if(a<2)
{
printf("2'den kucuk giremessin..");goto gel;
}
clrscr();
matrix mt;
mt.matris_sifir(a);
mt.matris_al(a);
clrscr();
mt.matris_carp(a);
mt.matris_yaz(a);
getch();clrscr();
cout<<"devam etmek icin e'ye bas...";
}while((ch=getche())=='e') ;
}


Hesap Makinası

 
#include <iostream.h>
#include <stdlib.h>
int main() //hesap makinesi
{ //meric-mericliler
int n;
long int a,b;
cout<<"Bu hesap makinesi dir!! >>>meric_MERICLILER<<<"<<endl;
cout<<"Asagidaki islemilerden birini seciniz:"<<endl<<endl;
cout<<"Toplama islemi icin=1"<<endl;
cout<<"Cikarma islemi icin=2"<<endl;
cout<<"Carpma islemi icin=3"<<endl;
cout<<"Bolme islemi icin=4"<<endl<<endl;
cout<<"Kare koku icin=5"<<endl;
cout<<"Kare alma islemi icin=6"<<endl;
cin>>n;
if(n>=5)
{
cout<<"Sadece tek sayi giriniz"<<endl;
cin>>a;
}
else
{
cout<<"Ilk sayi'yi giriniz"<<endl;
cin>>a;
cout<<"Ikinci sayi'yi giriniz"<<endl;
cin>>b;
}

switch(n){
case 1:{cout<<"Sonuc="<<a+b<<endl;break;}
case 2:{cout<<"Sonuc="<<a-b<<endl;break;}
case 3:{cout<<"Sonuc="<<a*b<<endl;break;}
case 4:{cout<<"Sonuc="<<a/b<<endl;break;}
case 5:{cout<<"Sonuc="<<sqrt(a)<<endl;break;}
case 6:{cout<<"Sonuc="<<a*a<<endl;break;}

defult:cout<<"yanlis tusa bastin heralde:)"<<endl;break;}
cout<<"bu programi >>>PROGRAMCI MERIC<<< yapmistir..."<<endl<<endl;
system("PAUSE");
return 99;
}



Sayısal Loto Oyunu

#include <iostream.h> 
#include <string.h>
#include <stdlib.h>
#include <time.h>
#define SIZE 6
using namespace std;
int kupon[SIZE];
int loto[SIZE];

void kupon_doldur(void);
void altili_sonuclari(void);
void tutanlar_kontrol(void);

int main()
{
cout << "---- PROGRAMMING Muslum TORUN - by_muslum@hotmail.com ----" << endl
<< endl;
srand(time(0));

kupon_doldur();
altili_sonuclari();
tutanlar_kontrol();

string bck="";
cout << "\n-------------------------------------------------" << endl
<< " Tekrar oynamak ister misiniz ? E/H : ";
cin >> bck;
if ( (bck == "E") || (bck == "e") )
main();
}

void kupon_doldur(void)
{
int i, j, k, at, flag;
cout << " Lutfen 6 adet farkli sayi-rakam girin !! " << endl;
for (i=0; i<SIZE; i++)
{
at = i+1;
cout << " " << at << ". Rakam= ";
cin >> j;
kupon[i] = j;
flag=0;
if ( (j>=1) && (j<=49) ) {
for (k=0; k<i; k++)
{

if (j == kupon[k])
{
cout << " ** Lutfen farkli bir rakam girin !" << endl;
i--;
flag=1;
break;
}
}
}
else {
cout << " ** 1 - 49 Arasinda bir sayi-rakam girmelisiniz !\n";
i--;
}
}
return ;
}

void altili_sonuclari(void)
{
int i, sayi, j, k, flag;
cout << "--------------------------------------------------" << endl
<< " # CEKiLiS SONUCLARI # " << endl;
for (i=0; i<SIZE; i++)
{
j = i+1;
sayi = rand()%49+1;
flag=0;
for (k=0; k<i; k++)
{
if (sayi == loto[k])
{
sayi++;
break;
}
}
loto[i] = sayi;

cout << " " << j << ". Numara : " << loto[i] << endl;
}
return ;
}


void tutanlar_kontrol(void)
{
int tutturdugunuz[SIZE];
int i,tutturulan,k;
tutturulan=0;
for(i=0;i<SIZE;i++)
for(k=0;k<SIZE;k++){
if(kupon[i]==loto[k]){
tutturdugunuz[tutturulan]=kupon[i];
tutturulan++;
break;
}
}
cout << "-------------------------------------------------" << endl;
cout << " " << tutturulan << " Adet tutturdunuz !" << endl
<< "-------------------------------------------------" << endl;

if(tutturulan!=0)cout << " TUTAN RAKAM-RAKAMLAR\n";
for(i=0;i<tutturulan;i++)
cout << " " << tutturdugunuz[i] << " , ";

return ;
}


Bu mesaja 1 cevap geldi.
T
19 yıl
Çavuş
Konu Sahibi

Bu Konu Üst Başlık Olsun Başkaları da Faydalansın


Bu mesaja 1 cevap geldi.
T
19 yıl
Çavuş
Konu Sahibi

C#
Mesaj Kutusu İle Kullanıcıya Bilgi Vermek


MessageBox.Show(null,"Girdiginiz Kayit Güncellendi. Diger isleme geçebilirsiniz","Bilgi Mesaji", MessageBoxButtons.OK, MessageBoxIcon.Information); 


Veritabanına Kayıt Eklemek

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\BilgiEdinme\\data\\Kayit.mdb"; 
OleDbConnection myConn = new OleDbConnection(strConn);
myConn.Open();

bool ycev = false, mcev = false, gizli = false, kabul = false;
if(rb1a.Checked) ycev = true;
if(rb2a.Checked) mcev = true;
if(rb3a.Checked) gizli = true;
if(rb4a.Checked) kabul = true;
OleDbDataAdapter myDataAdapter = new OleDbDataAdapter();
strSql = "select * from basvuru";

OleDbCommand cmd=new OleDbCommand(strSql, myConn);
myDataAdapter.SelectCommand = cmd;

DataTable tbl = new DataTable();
myDataAdapter.Fill(tbl);

DataRow row;
row = tbl.NewRow();
row["b_sekli"] = cb1.Text;
row["b_soy_unvan"] = tb1.Text;
row["b_adi"] = tb2.Text;
row["b_tcno"] = tb3.Text;
row["hav_birim"] = cb2.Text;
row["hav_tarih"] = dtp1.Value;
row["ycev_tarih"] = dtp2.Value;
row["ycev_durum"] = ycev;
row["mcev_tarih"] = dtp3.Value;
row["mcev_durum"] = mcev;
row["bvr_gizli"] = gizli;
row["bvr_kabul"] = kabul;
row["aciklama"] = rtb1.Text;
tbl.Rows.Add(row);

OleDbCommandBuilder cb = new OleDbCommandBuilder();
cb.DataAdapter = myDataAdapter;

myDataAdapter.Update(tbl);




Ekrana Kare Çizdirme

using System; 

namespace kare_topologojisi
{
class AMD_FOREVER
{
static void Main(string[] args)
{
Console.WriteLine("karenin bir kener uzunlugunu giriniz:");
int val = Convert.ToInt32(Console.ReadLine());
int[,] pembedizi = new int[val,val];
for(int i=0; i<val; ++i)
for(int j=0; j<val; j++)
{
if( (j==0) || (i==0) )
pembedizi[i,j]=1;
if( (j==val-1) || (i==val-1) )
pembedizi[i,j]=1;
}
for(int i=0; i<val ; ++i)
{
for(int j=0; j<val; j++)
{
if(pembedizi[i,j]==1)
Console.Write("*");
else
Console.Write(" ");

}
Console.WriteLine("");

}
Console.WriteLine("\t\t\t\t\tKeçiborlu Genç Islemcileri :)");
Console.ReadLine();
}
}
}


Mp3 Çalmak
using System; 
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using WMPLauncher;
using WMPLib;

namespace WindowsApplication1
{
/// <summary>
/// Summary description for Form1.
/// </summary>
public class Form1 : System.Windows.Forms.Form
{
private System.Windows.Forms.Button button1;
private System.Windows.Forms.MainMenu mainMenu1;
private System.Windows.Forms.MenuItem menuItem1;
private System.Windows.Forms.MenuItem menuItem2;
private System.Windows.Forms.MenuItem menuItem3;
private System.Windows.Forms.MenuItem menuItem4;
private System.Windows.Forms.MenuItem menuItem5;
private System.Windows.Forms.MenuItem menuItem6;
private System.Windows.Forms.MenuItem menuItem7;
/// <summary>
/// Required designer variable.
/// </summary>
private System.ComponentModel.Container components = null;

public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();

//
// TODO: Add any constructor code after InitializeComponent call
//
}

/// <summary>
/// Clean up any resources being used.
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if (components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}

#region Windows Form Designer generated code
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
private void InitializeComponent()
{
System.Resources.ResourceManager resources = new System.Resources.ResourceManager(typeof(Form1));
this.button1 = new System.Windows.Forms.Button();
this.mainMenu1 = new System.Windows.Forms.MainMenu();
this.menuItem1 = new System.Windows.Forms.MenuItem();
this.menuItem2 = new System.Windows.Forms.MenuItem();
this.menuItem3 = new System.Windows.Forms.MenuItem();
this.menuItem4 = new System.Windows.Forms.MenuItem();
this.menuItem5 = new System.Windows.Forms.MenuItem();
this.menuItem6 = new System.Windows.Forms.MenuItem();
this.menuItem7 = new System.Windows.Forms.MenuItem();
this.SuspendLayout();
//
// button1
//
this.button1.Font = new System.Drawing.Font("Microsoft Sans Serif", 13F, ((System.Drawing.FontStyle)((System.Drawing.FontSt yle.Bold | System.Drawing.FontStyle.Italic))), System.Drawing.GraphicsUnit.Point, ((System.Byte)(162)));
this.button1.ForeColor = System.Drawing.Color.Brown;
this.button1.Image = ((System.Drawing.Image)(resources.GetObject("button1.Image")));
this.button1.Location = new System.Drawing.Point(72, 40);
this.button1.Name = "button1";
this.button1.Size = new System.Drawing.Size(160, 160);
this.button1.TabIndex = 0;
this.button1.Text = "Ayyüzlüm.mp3";
this.button1.Click += new System.EventHandler(this.button1_Click);
//
// mainMenu1
//
this.mainMenu1.MenuItems.AddRange(new System.Windows.Forms.MenuItem[] {
this.menuItem1,
this.menuItem6,
this.menuItem7});
//
// menuItem1
//
this.menuItem1.Index = 0;
this.menuItem1.MenuItems.AddRange(new System.Windows.Forms.MenuItem[] {
this.menuItem2,
this.menuItem3,
this.menuItem4,
this.menuItem5});
this.menuItem1.Text = "Muzikler";
//
// menuItem2
//
this.menuItem2.Index = 0;
this.menuItem2.Text = "ayyüzlüm";
//
// menuItem3
//
this.menuItem3.Index = 1;
this.menuItem3.Text = "bla bla";
//
// menuItem4
//
this.menuItem4.Index = 2;
this.menuItem4.Text = "ceza";
//
// menuItem5
//
this.menuItem5.Index = 3;
this.menuItem5.Text = "manga";
//
// menuItem6
//
this.menuItem6.Index = 1;
this.menuItem6.Text = "ÇIK";
//
// menuItem7
//
this.menuItem7.Index = 2;
this.menuItem7.Text = "Yardım";
//
// Form1
//
this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
this.ClientSize = new System.Drawing.Size(292, 266);
this.Controls.Add(this.button1);
this.Menu = this.mainMenu1;
this.Name = "Form1";
this.Text = "MP3";
this.Load += new System.EventHandler(this.Form1_Load);
this.ResumeLayout(false);

}
#endregion

/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}

private void button1_Click(object sender, System.EventArgs e)
{

System.Diagnostics.Process Proc = new System.Diagnostics.Process();
Proc.StartInfo.FileName = "wmplayer.exe";
Proc.StartInfo.CreateNoWindow = true;
Proc.StartInfo.Arguments = "/hide d:\\muzik\\01-ayyüzlüm.mp3"; //siz bunu kendi diskinizdeki mp3 yerel adresiyle değiştireceksiniz.

Proc.Start();



}

private void Form1_Load(object sender, System.EventArgs e)
{

}
}
}


Bu mesaja 1 cevap geldi.
T
19 yıl
Çavuş
Konu Sahibi

CGİ

Hava Durumu

<br> 
#!/usr/bin/perl


use CGI::Carp qw(fatalsToBrowser);
use English;
use CGI;
use integer;
require LWP::UserAgent;
use GD;

$q = new CGI;
$ua = new LWP::UserAgent;
$city =$q->param(city);
$city =~ s/ı/i/g;
$city =~ s/İ/I/g;
$city =~ s/ğ/g/g;
$city =~ s/Ğ/G/g;
$city =~ s/ş/s/g;
$city =~ s/Ş/S/g;
$formil = $city;
$city =~ tr/[a-z]/[A-Z]/;
$begin = "http://www.meteor.gov.tr/pages/";
$data = $begin . $city.'.htm';
$lookup = new HTTP::Request 'GET', "$data";
$response = $ua->request($lookup);
@lines = split (/
/, $response->content);
foreach $item (@lines) {
chomp($item);
$tpl =$tpl.$item;
}
$start = '<!--BURADA BAŞLA-->';
$end = '<TD><div>Rüzgar</TD>';
($part1,$part2) = split(/<!--BURADA BAŞLA-->/,$tpl);
($part3,$part4) = split(/<TD><div>Rüzgar</TD>/,$part2);
($part5,$part6) = split(/<div>Hava Durumu</div>/,$part3);
($part7,$part8) = split(/<br>/,$part6);
($part9,$part10) = split(/</div>/,$part8);
($part11,$part12) = split(/<TD><div>Sıcaklık</div></TD>/,$part8);
($part13,$part14) = split(/<div>/,$part12);
($part15,$part16) = split(/</div>/,$part14);
$part9 =~ s/ı/i/g;
$part9 =~ s/ç/Ç/g;
$part9 =~ s/ğ/g/g;
$part9 =~ s/Ğ/G/g;
$part9 =~ s/ş/s/g;
$part9 =~ s/Ş/S/g;
$part9 =~ tr/[a-z]/[A-Z]/;
print "Content-type: image/png

";
$im = new GD::Image(100,50);
($white,$black,$red,$blue,$yellow) =
(
$im->colorAllocate(255, 255, 255),
$im->colorAllocate(0, 0, 0),
$im->colorAllocate(255, 0, 0),
$im->colorAllocate(0,0,255),
$im->colorAllocate(255,250,205)
);
$im->fill(50,50,$yellow);
$im->rectangle(1,1,99,49,$black);
$im->string(gdSmallFont,5,3,$formil."'da Hava",$black);
$im->string(gdSmallFont,5,17,$part9,$red);
$im->string(gdSmallFont,5,32,"SICAKLIK ".$part15,$blue);

binmode STDOUT;
print $im->png;
exit;


Sayfa Koruması

$AYAR{siteler} =  ['siteniz.com', 'www.siteniz.com']; 
#Yukardaki site isimlerini çoğaltabilirsiniz.

foreach (@{$AYAR{siteler}}){
if($ENV{'HTTP_REFERER'} =~ /$_/i){
print (" Doğru siteden geldiniz. ");
exit;
}
else
{
print ("Location: hata.htm\n\n"); exit;
}
}


İsim Sorma

#!/usr/bin/Perl  
#################################################
# form2.pl
print "Content-type: text/html", "\n\n";
$veri=$ENV{'QUERY_STRING'};
($kutuismi, $isim)=split(/=/, $veri);
if(!$veri)
{
print <<HTML;
<html>
<head><title>Form Örnegi</title></head>
<body>
<H2>Form Örnegi</H2>
<form action="cgi-bin/form2.pl" method="GET">
Isim: <input type="text" name="isim" size=20>
<p>
<input type="submit" value="GONDER">
<input type="reset" value="SIL" SIZE>
</form>
<HR>
</body>
</html>
HTML
}
else
{
if($isim)
{
print "Merhaba $isim. MaxiAsp'ye hosgeldin!!";
}
else
{
print "Giris Için Tiklayin";
}
}
exit(0);
##################################################



T
19 yıl
Çavuş
Konu Sahibi

Component

Jmail Componenti İle Basit Bir Form Mail

<% Set Mail = Server.CreateOBject("JMail.Message") 
Mail.Logging = True
Mail.Silent = True
Mail.From = "gonderen@domain.com" ' gonderen mail adresi
Mail.FromName = "gonderen adi" ' gonderen adi
Mail.AddRecipient "alici@domain.com" ' sizin mail adresiniz
Mail.Subject = "haber listesi" ' konu
Mail.Body = "mail listenize katilmak istiyorum" ' mesaj
Mail.Send "mail.domain.com" ' mail server
Set Mail = Nothing %>



T
19 yıl
Çavuş
Konu Sahibi

Database

MySQL DATABASE Listele

<?php 
$baglan = @mysql_connect ( "localhost", "root" );
$sorgu = mysql_list_dbs ( $baglan );

echo "MySQL'de Bulunan Veritabanları: <br><b>";
while ( $adi = mysql_fetch_object ( $sorgu ) ) {
echo $adi-> Database . "<br>\n";

}
echo "</b>";

?>


Bu mesaja 1 cevap geldi.