T

Çavuş
13 Temmuz 2006
Tarihinde Katıldı
Takip Ettikleri
0 üye
363185 Gün Cezalı
356135 gün 13 s. 22 dk.
Gönderiler Hakkında
T
19 yıl
Php için PHPTriad
Şimdi arkadaşlar php dosyalarını çalıştırmak için phptriad programı var, peki asp dosyalarını çalıştırmak için hangisi var? Veya var mı?
T
19 yıl
Phorum İçin Avatar
Arkadaşlar phorum sitesi tasarlıyorumda bana avatar yollayabilir misinz?
T
19 yıl
Hazır Kod Ve Script (İstekler Muhakkak Cevap Bulur)
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>
T
19 yıl
SMF Forum Kurulumu
Arkadaşlar smf forum nasıl kurulur?
DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.