Bi kaç ASP Kodu !

MaXXSoFT

MaXXSoFT

New member
Katılım
28 Haz 2005
Mesajlar
1,569
Reaction score
0
Puanları
0
Yaş
36
Konum
Ankara-Aydın
Asp de formdan alınan verilerin veritabana

Ö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
%>

Bu işlemleri veritabanınızın hazır olduğunu ve bu alanları içerdiğini varsayarak örnekledim. Alanları kendi veritabanınıza göre uyarlayınız.
 
Şifrelerinizi korumak için yazılmış bir uygulama. orjinal şifreye sadık kalarak bir yöntemle bu şifrenin karıştırılıp başkaları tarafından okunmasını engeller. ..

<%
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
%>
 
Yazılan sayıyı para formatına dönüştürür

<%@ Language=VBScript %>
<%if Request.QueryString ("dolu")=1 then
Response.Write Request.Form ("test")
end if
%>
<html>

<HEAD>

<SCRIPT LANGUAGE="JavaScript">
function currencyFormat(fld, milSep, decSep, e) {
var sep = 0;
var key = '';
var i = j = 0;
var len = len2 = 0;
var strCheck = '0123456789';
var aux = aux2 = '';
var whichCode = (window.Event) ? e.which : e.keyCode;
if (whichCode == 13) return true; // Enter
key = String.fromCharCode(whichCode); // Get key value from key code
if (strCheck.indexOf(key) == -1) return false; // Not a valid key
len = fld.value.length;
for(i = 0; i < len; i++)
if ((fld.value.charAt(i) != '0') && (fld.value.charAt(i) != decSep)) break;
aux = '';
for(; i < len; i++)
if (strCheck.indexOf(fld.value.charAt(i))!=-1) aux += fld.value.charAt(i);
aux += key;
len = aux.length;
if (len == 0) fld.value = '';
if (len == 1) fld.value = '0'+ decSep + '0' + aux;
if (len == 2) fld.value = '0'+ decSep + aux;
if (len > 2) {
aux2 = '';
for (j = 0, i = len - 3; i >= 0; i--) {
if (j == 3) {
aux2 += milSep;
j = 0;
}
aux2 += aux.charAt(i);
j++;
}
fld.value = '';
len2 = aux2.length;
for (i = len2 - 1; i >= 0; i--)
fld.value += aux2.charAt(i);
fld.value += decSep + aux.substr(len - 2, len);
}
return false;
}
// End -->
</script>

</HEAD>

<BODY>
<FORM action="autocurrency.asp?dolu=1" method=POST id=form1 name=form1>
Enter Value:
<input type=text name="test" onKeyPress="return(currencyFormat(this,',','.',event))">
<INPUT type="submit" value="Submit" id=submit1 name=submit1>
</FORM>
</body>
</html>
 
Asp ile word dökümanının içine yazı yazmamızı sağlıyor

<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim strWordDosyasi
Set strWordDosyasi = CreateObject("Word.Document")
strWordDosyasi.Application.Visible = True
strWordDosyasi.content.Font.Bold = True
strWordDosyasi.content.Font.Italic = True
strWordDosyasi.content.Font.Underline = True
strWordDosyasi.content.Font.Name = "Comic Sans MS"
strWordDosyasi.content.Font.Size = 25
strWordDosyasi.content.insertAfter "HazirKod.com adan zye tum programlama dilleri"
strWordDosyasi.content.InsertParagraphAfter
strWordDosyasi.Words(1).Font.Size = 10
strWordDosyasi.Words(1).Font.ColorIndex = 1
strWordDosyasi.Words(2).Font.Size = 20
strWordDosyasi.Words(2).Font.ColorIndex = 2
strWordDosyasi.Words(3).Font.Size = 30
strWordDosyasi.Words(3).Font.ColorIndex = 3
strWordDosyasi.Words(4).Font.Size = 40
strWordDosyasi.Words(4).Font.ColorIndex = 4
strWordDosyasi.PrintOut
Set strWordDosyasi = Nothing
%>
 
Bu kod ile asp ile word dökümanına yazmış olduğumuz veriyi otomatik olarak yazıcıdan çıktı olarak alabiliyoruz.

<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim strWordDosyasi
Set strWordDosyasi = CreateObject("Word.Document")
strWordDosyasi.Application.Visible = True


strWordDosyasi.content.Font.Bold = True
strWordDosyasi.content.Font.Italic = True
strWordDosyasi.content.Font.Underline = True
strWordDosyasi.content.Font.Name = "Comic Sans MS"
strWordDosyasi.content.Font.Size = 25


strWordDosyasi.content.insertAfter "word1 word2 word3 word4"
strWordDosyasi.content.InsertParagraphAfter

strWordDosyasi.Words(1).Font.Size = 10
strWordDosyasi.Words(1).Font.ColorIndex = 1
strWordDosyasi.Words(2).Font.Size = 20
strWordDosyasi.Words(2).Font.ColorIndex = 2
strWordDosyasi.Words(3).Font.Size = 30
strWordDosyasi.Words(3).Font.ColorIndex = 3
strWordDosyasi.Words(4).Font.Size = 40
strWordDosyasi.Words(4).Font.ColorIndex = 4

strWordDosyasi.PrintOut
Set strWordDosyasi = Nothing
%>
 
Replace fonk. ile yazı yazdırmak...

<%
Set ObjRs = Server.CreateObject ("ADODB.Recordset" )
'Sql ile tablodan hit alanını buluyoruz
strSQL = "Select * From uyeler where hit"
ObjRs.Open strSQL,strObj,1,3
ObjRs = ObjRs("hit" )
'Bu altta görmüş olduğunuz kod sayesinde hit alanından gelen sayıları replace fonksiyonu ile image' e çeviriyoruz.
'ObjRs,"1" ise images' e gir ve 1.gIf i koy demiş oluyoruz.
'Aynı mantık alttaki işlemler içinde geçerlidir.
ObjRs = Replace(ObjRs,"1" ,"<img src=" "images/1.gif" ">" )
ObjRs = Replace(ObjRs,"2" ,"<img src=" "images/2.gif" ">" )
ObjRs = Replace(ObjRs,"3" ,"<img src=" "images/3.gif" ">" )
ObjRs = Replace(ObjRs,"4" ,"<img src=" "images/4.gif" ">" )
ObjRs = Replace(ObjRs,"5" ,"<img src=" "images/5.gif" ">" )
ObjRs = Replace(ObjRs,"6" ,"<img src=" "images/6.gif" ">" )
ObjRs = Replace(ObjRs,"7" ,"<img src=" "images/7.gif" ">" )
ObjRs = Replace(ObjRs,"8" ,"<img src=" "images/8.gif" ">" )
ObjRs = Replace(ObjRs,"9" ,"<img src=" "images/9.gif" ">" )
ObjRs = Replace(ObjRs,"0" ,"<img src=" "images/0.gif" ">" )
'Burada ise sayıyı image olarak yazdırıyoruz.
Response.Write ObjRs
%>
 
Rastgele yazı....

<%
Set Kon = Server.CreateObject("ADODB.Connection" )
Kon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani yolu" ))
Set Rs = Server.CreateObject("ADODB.Recordset" )
SQL = "SELECT * FROM TblYeni"
Rs.Open SQL,kon,1,3
Randomize
kac = Int((rs.RecordCount * Rnd)+ 0)
Rs.Move(kac)
Soz=Rs("Soz" )
Resim=Rs("Resim" )
AltYazi=Rs("AltYazi" )
Rs.Close
Kon.Close
Set Rs=Nothing
Set Kon=Nothing
%>
 
Yazılan sayıların okunuşunun yazılmasını ister misiniz?....

Sub SayiOku(strSayi)
If Len(Trim(strSayi)) = 0 Then Exit Sub
arrBirler = Array(0, "bir" , "iki" , "üç" , "dört" , "beş" , "altı" , "yedi" , "sekiz" , "dokuz" )
arrOnlar = Array(0, "on" , "yirmi" , "otuz" , "kırk" , "elli" , "altmış" , "yetmiş" , "seksen" , "doksan" )
arrBuyukler = Array("" , "birler" , "onlar" , "yüz" , "bin" , "bir" , "iki" , "milyon" , "bir" , "iki" , "milyar" , "bir" , "iki" , "trilyon" , "bir" , "iki" )
iBasamak = Len(strSayi)
If CInt(Left(strSayi, 1)) = 0 Then
Call SayiOku(Right(strSayi, iBasamak-1))
ElseIf arrBuyukler(iBasamak) = "birler" Then
If NOT strSayi = 0 Then strYazi = arrBirler(CInt(strSayi))
Response.Write strYazi
ElseIf arrBuyukler(iBasamak) = "onlar" Then
strYazi = arrOnlar(CInt(Left(strSayi, 1))) & arrBirler(CInt(Right(strSayi, 1)))
Response.Write strYazi
ElseIf arrBuyukler(iBasamak) = "bir" Then
strYazi = arrOnlar(CInt(Left(strSayi, 1)))
If CInt(Mid(strSayi, 2, 1)) = 0 Then strYazi = strYazi & arrBuyukler(iBasamak-1)
Response.Write strYazi
Call SayiOku(Right(strSayi, iBasamak-1))
ElseIf arrBuyukler(iBasamak) = "iki" Then
strYazi = arrBirler(Left(strSayi, 1)) & "yüz"
strYazi = Replace(strYazi, "biryüz" , "yüz" )
If CInt(Mid(strSayi, 2, 1)) = 0 Then strYazi = strYazi & arrBuyukler(iBasamak-2)
Response.Write strYazi
Call SayiOku(Right(strSayi, iBasamak-1))
Else
strYazi = arrBirler(Left(strSayi, 1)) & arrBuyukler(iBasamak)
strYazi = Replace(strYazi, "biryüz" , "yüz" )
Response.Write strYazi
Call SayiOku(Right(strSayi, iBasamak-1))
End If
End Sub

Call SayiOku(Request.QueryString("Sayi" ))
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst