[_KajmeraN_]

ASP kullanıcıları için okulda ve internette bulduğum veya kendi yazdığım basit kullanışlı kodları paylaşağım...

Umarım yararı olur sizlere....



Güvenlik Kodu Oluşturma

Public Function SecurityCode(Number)
 
  strList = Array("1","2","3","4","5","6","7","8","9","0","Q","w","E","R","t","y","u","I","O","P","a","s","d","f","G","H","J","K","L","z","X","c","V","B","N","M")
  intList = uBound(strList)
   Randomize
    For nN = 0 To Number
     xX = Int((intList* Rnd) + 1)
     KeyValues = KeyValues & strList(xX)
    Next
    
   SecurityCode = KeyValues
   
 End Function

Kullanımı

<% SecurityCode 4 ' 5 haneli random şifre üretir. %>

[_KajmeraN_]

Gmail hesabını kullanarak mail gönderme

<% 
Dim iMsg, iConf, Flds 
Set iMsg = CreateObject("CDO.Message" ) 
Set iConf = CreateObject("CDO.Configuration" ) 
Set Flds = iConf.Fields 
schema = "http://schemas.microsoft.com/cdo/configuration/" 
Flds.Item(schema & "sendusing" ) = 2 
Flds.Item(schema & "smtpserver" ) = "smtp.gmail.com" 
Flds.Item(schema & "smtpserverport" ) = 465 
Flds.Item(schema & "smtpauthenticate" ) = 1 
Flds.Item(schema & "sendusername" ) = "hesabiniz@gmail.com" 
Flds.Item(schema & "sendpassword" ) = "g_mail_şifreniz" 
Flds.Item(schema & "smtpusessl" ) = 1 
Flds.Update 
With iMsg 
.To = emailaddr '//mail yollanacak adresi,forumdan aldınız 
.From = "Ad Soyad <hesabiniz@siteadınız.com>" 
.Subject = "E-Posta Konusu" 'bir konu giriniz 
.HTMLBody = request.form("mesaj" ) 'mesajı formla alınız...
.Sender = "Adiniz" 
.Organization = "Siteniz" 
.ReplyTo = "yanitla_dediğinde@gönderrilecek_mail_adresiniz.com" 
Set .Configuration = iConf 
SendEmailGmail = .Send 
End With 
set iMsg = nothing 
set iConf = nothing 
set Flds = nothing 
%>

[_KajmeraN_]

Bir form da birden fazla buton kullanmak...

<script language="vbscript" runat="server">
with response
.write "<form action="""" method=""post"" id=""mesajyaz"">"
.write "Mesajınız:<br><textarea name=""mesaj"" cols=""30"" rows=""6""></textarea>"
.write "<br>"
.write "<button onclick=""mesajyaz.action='?onizleme'; mesajyaz.submit();"">Önizleme</button>"
.write "<button onclick=""mesajyaz.action='?gonder'; mesajyaz.submit();"">Gönder</button>"
.write "</form>"
end with
sayfa=request.querystring
if len(sayfa) then
if sayfa="onizleme" then
response.write "<hr>Sayfa Önizlemesi: <br> " & request.form("mesaj")
else
response.write "<hr>Kayıt Edildi..."
end if
end if
</script> 

[_KajmeraN_]

serverınızdaki bileşenleri görmek için...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<% 
    '// Telif: Fabricioc 
 
    Dim aComponents(68 ) 
    aComponents(1 ) = "ADODB.Command" 
    aComponents(2 ) = "ADODB.Connection" 
    aComponents(3 ) = "ADODB.Recordset" 
    aComponents(4 ) = "ADODB.Stream" 
    aComponents(5 ) = "ADOX.Catalog" 
    aComponents(6 ) = "AspDNS.Lookup" 
    aComponents(7 ) = "ASPExec.Execute" 
    aComponents(8 ) = "AspHTTP.Conn" 
    aComponents(9 ) = "AspImage.Image" 
    aComponents(10 ) = "AspMX.Lookup" 
    aComponents(11 ) = "AspNNTP.Conn" 
    aComponents(12 ) = "AspPing.Conn" 
    aComponents(13 ) = "AspSock.Conn" 
    aComponents(14 ) = "CDO.MESSAGE" 
    aComponents(15 ) = "CDONTS.NewMail" 
    aComponents(16 ) = "Dundas.Mailer" 
    aComponents(17 ) = "Dundas.PieChartServer" 
    aComponents(18 ) = "Dundas.PieChartServer.2" 
    aComponents(19 ) = "Dundas.Upload" 
    aComponents(20 ) = "Dundas.Upload.2" 
    aComponents(21 ) = "Dundas.UploadProgress" 
    aComponents(22 ) = "ECHOCom.Echo" 
    aComponents(23 ) = "GuidMakr.GUID" 
    aComponents(24 ) = "ImgSize.Check" 
    aComponents(25 ) = "ixsso.Query" 
    aComponents(26 ) = "ixsso.Util" 
    aComponents(27 ) = "JMAil.Message" 
    aComponents(28 ) = "JMail.POP3" 
    aComponents(29 ) = "JMail.SMTPMail" 
    aComponents(30 ) = "JRO.JetEngine" 
    aComponents(31 ) = "Microsoft.DiskQuota.1" 
    aComponents(32 ) = "microsoft.XMLDOM" 
    aComponents(33 ) = "Microsoft.XMLHTTP" 
    aComponents(34 ) = "MSWC.AdRotator" 
    aComponents(35 ) = "MSWC.BrowserType" 
    aComponents(36 ) = "MSWC.ContentRotator" 
    aComponents(37 ) = "MSWC.Counters" 
    aComponents(38 ) = "MSWC.IISLog" 
    aComponents(39 ) = "MSWC.MyInfo" 
    aComponents(40 ) = "MSWC.MyInfo" 
    aComponents(41 ) = "MSWC.NextLink" 
    aComponents(42 ) = "MSWC.PageCounter" 
    aComponents(43 ) = "MSWC.PermissionChecker" 
    aComponents(44 ) = "MSWC.Status" 
    aComponents(45 ) = "MSWC.Tools" 
    aComponents(46 ) = "MSXML.DomDocument" 
    aComponents(47 ) = "MSXML2.DOMDocument" 
    aComponents(48 ) = "MSXML2.DOMDocument.3.0" 
    aComponents(49 ) = "Msxml2.FreeThreadedDOMDocument.3.0" 
    aComponents(50 ) = "MSXML2.ServerXMLHTTP" 
    aComponents(51 ) = "MSXML2.ServerXMLHTTP.3.0" 
    aComponents(52 ) = "MSXML2.XSLTemplate" 
    aComponents(53 ) = "Persits.Grid" 
    aComponents(54 ) = "Persits.Jpeg" 
    aComponents(55 ) = "Persits.MailSender" 
    aComponents(56 ) = "Persits.Upload" 
    aComponents(57 ) = "Persits.Upload.1" 
    aComponents(58 ) = "Persits.UploadProgress" 
    aComponents(59 ) = "POP3svg.Mailer" 
    aComponents(60 ) = "Scripting.Dictionary" 
    aComponents(61 ) = "Scripting.FileSystemObject" 
    aComponents(62 ) = "Scriptlet.TypeLib" 
    aComponents(63 ) = "SMTPsvg.Mailer" 
    aComponents(64 ) = "SOFTWING.AspTear" 
    aComponents(65 ) = "VBScript.RegExp" 
    aComponents(66 ) = "WinHttp.WinHttpRequest.5.1" 
    aComponents(67 ) = "WScript.Network" 
    aComponents(68 ) = "WScript.Shell" 
    Response.write("Yüklü Bilesenler:<BR><BR>" ) 
    On Error Resume Next 
    For i=1 To Ubound(aComponents ) 
       
    Set obj = Server.CreateObject(aComponents(i ) ) 
    if err.number = 0 Then 
    Set obj = nothing 
    Response.write(aComponents(i ) & "<BR>" ) 
    End if 
    err.clear 
    next 
    %>

[erkangungor]

Teşekkür Ederim Arkadaşım Paylaşım İçin . Emeğine Sağlık

[mantris12]

Güvenlik kodu oluşturmayı yanlış yazmışsın kullanımı alttaki gibi olur

<% = SecurityCode (4) %>

[cengiz46]

asp sisteminin temel calisma fonksiyonlari nelerdir ???

[__yabanci__]

Bende tam bi asp meraklısıyım gerçekten mükemmel bir paylaşım.Teşkkür eederiz..Selam vee dua İle..

[hayalet18]

teşekkürler...

[MUTSUZ_KRAL]

tesekkürler elleirn dert görmesin