Merhaba
Arkadaşlar bana siteme koymak üzere şipariş scripti lazım.Basit bir şekilde.
işte adı soyadı.telefon numarası.istediği miktar diye bir bölüm.
birde hangi yolla para gönderdiğini belirten bir bölüm işlte.
bunun gibi bişe elinde olan var sevinirim.
sipariş scripti
5
●3.238
- 09-11-2007, 21:09:21
Üyeliği durduruldumrb.. elimde iletisim kodları var onlar isini gorurmu bilmiyorum ama biraz duzenlersen siparis formu dahi olur
- 09-11-2007, 21:11:22 Üyeliği durduruldu<% @Language="VBScript" CodePage="1254" %>
<% Server.ScriptTimeOut=300 %>
<% Response.Buffer = TRUE %>
<%
'- ASPPLUS.Net Webmesaj Formu -------------------------------------------------
ASPPLUS_msg=REQUEST("ASPPLUS_msg")
email=REQUEST("email")
konu=REQUEST("konu")
If Request ("ASPPLUSASP") = "Yolla" Then
CALL Webmail
Else
End if
'------------------------------------------------------------------------------
SUB Webmail
sid=Trim(Request("sid"))
IF sid <> Session.SessionID THEN
Response.Write "<center><font face=""Tahoma"" size=""2""># Uyarı : SessionID Değeri Geçersiz !</center>"
Response.Write "<center>--------------------------------------------------------------------------------</center>"
Response.Write "<center><font face=""Tahoma"" size=""2"">Sayfayı Kapatıp - Açıp Tekrar Deneyin !</center>"
Response.End
END IF
'-----------------------------------------------------------------------------------------------------------------------------
If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))
or len(REQUEST("adsoyad"))>50 Then
ASPPLUS_msg= "UYARI: Ad Soyad Alanı Boş Bıraktınız ! ( En Az 3, En Çok 50 Karakter )"
Else
'--------------------------------------------------------------------------
If Len(email) < 5 Then
bIsValid = "False"
Else
If Instr(1, email, " ") <> 0 Then
bIsValid = "False"
Else
If InStr(1, email, "@", 1) < 2 Then
bIsValid = "False"
Else
If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then
bIsValid = "False"
End If
End If
End If
End If
IF bIsValid = "False" THEN
ASPPLUS_msg= "UYARI: Lütfen Geçerli Bir E-Mail Adresi Girin !"
Else
'--------------------------------------------------------------------------
If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then
ASPPLUS_msg= "UYARI: Telefon Alanına Sadece Rakam Girilebilir !"
Else
'--------------------------------------------------------------------------
If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail")) or len(REQUEST("mesaj_mail"))>3000 Then
ASPPLUS_msg= "UYARI: Mesaj Alanı Boş Bıraktınız ! ( En Az 3, En Çok 3000 Karekter )"
Else
'--------------------------------------------------------------------------
If Session("ASPPLUSGuvenlik")=TRUE Then
ASPPLUS_msg= "UYARI: ASPPLUS Webmail Flood Koruma !"
Else
'-----------------------------------------------------------------------------------------------------------------------------
ip = Request.ServerVariables("REMOTE_ADDR")
'-----------------------------------------------------------------------------------------------------------------------------
ASPPLUS_MyBody = " Webmail İletişi Formu" & vbCrLf
ASPPLUS_MyBody = " Konu: "&konu & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Mesaj: " & Request("mesaj_mail") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Ad Soyad: " & Request("adsoyad") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # E-Posta: " & Request("email") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Şehir: " & Request("sehir") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # Telefon: " & Request("telefon") & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & " # IP: " & ip & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "----------------------------------------------------------" & vbCrLf
ASPPLUS_MyBody = ASPPLUS_MyBody & "ONR WebSistemleri - www.onrbilisim.com" & vbCrLf
'-----------------------------------------------------------------------------------------------------------------------------
Const cdoSendUsingMethod = _
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = _
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = _
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = _
"http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = _
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.???????.com" '-Mail server adresiniz ! ///////////////////////////////////
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "bilgi@???????.com" '-Mail kullanıcı adınız ! ///////////////////////////////////
.Item(cdoSendPassword) = "?????????" '-Mail parolanız ! //////////////////////////////////////////
.Update
End With
'-----------------------------------------------------------------------------------------------------------------------------
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = "bilgi@????????.com" '-Serverınıza ait e-mail adresi (ÖNEMLİ) ! ///////////////////////////////////
.From = email
.Subject = konu
.TextBody = ASPPLUS_MyBody
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
'-----------------------------------------------------------------------------------------------------------------------------
ASPPLUS_msg= "<b>Teşekkürler, Mesajınız Başarıyla Gönderilmiştir.</b>"
Session("ASPPLUSGuvenlik")=TRUE
Set objMailASPPLUS = Nothing
'-----------------------------------------------------------------------------------------------------------------------------
End If
End If
End If
End If
End If
'-----------------------------------------------------------------------------------------------------------------------------
End SUB
%>
<html>
<head>
<meta http-equiv="Content-Language" content="tr">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>ONR Web Hizmetleri .:: WEB MAİL SERVİSİ ::.</title>
<link rel="stylesheet" type="text/css" href="webmail_stilsyf.css">
<script>
function stoperror(){
return true
}
window.onerror=stoperror
</script>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function textCounter(field, countfield, maxlimit) {
if (field.value.length > maxlimit) // if too long...trim it!
field.value = field.value.substring(0, maxlimit);
// otherwise, update 'characters left' counter
else
countfield.value = maxlimit - field.value.length;
}
// End -->
</script>
</head>
<body>
<div align="center" style="width: 291; height: 322">
<center>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="27" id="AutoNumber1">
<tr>
<td width="500" align="center">
<form method="POST" action="default.asp?sid=<%=Session.SessionID%>&ASP PLUSASP=Yolla" target="_self">
<fieldset style="border:2px solid #008080; padding:5px; width:300; height:271">
<legend align="left"><img border="0" src="emailfoto.gif" align="absmiddle"> <b>
<font color="#A5C24F"> </font><font color="#800080">İLETİŞİM FORMU</font></b> </legend>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber2" width="279">
<tr>
<td align="right" width="128"><font color="#2985B6"><b>Adınız Soyadınız :</b></font></td>
<td align="left" width="141">
<input type="text" name="adsoyad" size="22" tabindex="1" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; "> </td>
</tr>
<tr>
<td align="right" width="128"><font color="#2985B6"><b>E-Posta :</b></font></td>
<td align="left" width="141">
<input type="text" name="email" size="22" tabindex="2" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; "> </td>
</tr>
<tr>
<td align="right" width="128"><font color="#2985B6"><b>Şehir :</b></font></td>
<td align="left" width="141">
<SELECT size=1 name=sehir tabindex="3" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #A5C24F; ; ">
<option selected value="Belirtilmemiş">Seçiniz...</option>
<OPTION
value="İstanbul">İstanbul<OPTION value="Ankara">Ankara<OPTION
value="İzmir">İzmir<OPTION value="Adana">Adana<OPTION
value="Adıyaman">Adıyaman<OPTION value="Afyon">Afyon<OPTION
value="Ağrı">Ağrı<OPTION value="Aksaray">Aksaray<OPTION
value="Amasya">Amasya<OPTION value="Antalya">Antalya<OPTION
value="Ardahan">Ardahan<OPTION value="Artvin">Artvin<OPTION
value="Aydın">Aydın<OPTION value="Balıkesir">Balıkesir<OPTION
value="Bartın">Bartın<OPTION value="Batman">Batman<OPTION
value="Bayburt">Bayburt<OPTION value="Bilecik">Bilecik
<OPTION
value="Bingöl">Bingöl<OPTION value="Bitlis">Bitlis<OPTION
value="Bolu">Bolu<OPTION value="Burdur">Burdur<OPTION
value="Bursa">Bursa<OPTION value="Çanakkale">Çanakkale<OPTION
value="Çankırı">Çankırı<OPTION value="Çorum">Çorum<OPTION
value="Denizli">Denizli<OPTION value="Diyarbakır">Diyarbakır<OPTION
value="Edirne">Edirne<OPTION value="Elazığ">Elazığ<OPTION
value="Erzincan">Erzincan<OPTION value="Erzurum">Erzurum<OPTION
value="Eskişehir">Eskişehir<OPTION value="Gaziantep">Gaziantep<OPTION
value="Giresun">Giresun<OPTION value="Gümüşhane">Gümüşhane<OPTION
value="Hakkari">Hakkari<OPTION value="Hatay">Hatay<OPTION
value="Iğdır">Iğdır<OPTION value="Isparta">Isparta<OPTION
value="İçel">İçel<OPTION value="K.Maraş">K.Maraş<OPTION
value="Karabük">Karabük<OPTION value="Karaman">Karaman<OPTION
value="Kars">Kars<OPTION value="Kastamonu">Kastamonu<OPTION
value="Kayseri">Kayseri<OPTION value="Kırıkkale">Kırıkkale<OPTION
value="Kırklareli">Kırklareli<OPTION value="Kırşehir">Kırşehir<OPTION
value="Kilis">Kilis<OPTION value="Kocaeli">Kocaeli<OPTION
value="Konya">Konya<OPTION value="Kütahya">Kütahya<OPTION
value="Malatya">Malatya<OPTION value="Manisa">Manisa<OPTION
value="Mardin">Mardin<OPTION value="Muğla">Muğla<OPTION
value="Muş">Muş<OPTION value="Nevşehir">Nevşehir<OPTION
value="Niğde">Niğde<OPTION value="Ordu">Ordu<OPTION
value="Osmaniye">Osmaniye<OPTION value="Rize">Rize<OPTION
value="Sakarya">Sakarya<OPTION value="Samsun">Samsun<OPTION
value="Siirt">Siirt<OPTION value="Sinop">Sinop<OPTION
value="Sivas">Sivas<OPTION value="Şanlıurfa">Şanlıurfa<OPTION
value="Şırnak">Şırnak<OPTION value="Tekirdağ">Tekirdağ<OPTION
value="Tokat">Tokat<OPTION value="Trabzon">Trabzon<OPTION
value="Tunceli">Tunceli<OPTION value="Uşak">Uşak<OPTION
value="Van">Van<OPTION value="Yalova">Yalova<OPTION
value="Yozgat">Yozgat<OPTION value="Zonguldak">Zonguldak
<OPTION value="Diğer">Diğer</OPTION>
<option value="Yurtdışı">Yurtdışı</option>
</SELECT></td>
</tr>
<tr>
<td align="right" width="128"><font color="#2985B6"><b>Telefon No :</b></font></td>
<td align="left" width="141">
<input type="text" name="telefon" size="22" tabindex="4" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; " maxlength="11"> </td>
</tr>
<tr>
<td align="right" width="128" valign="top"><font color="#2985B6"><b>
Konu :</b></font></td>
<td align="left" width="141" valign="top">
<select size="1" name="konu" style="border:1px solid #A5C24F; font-family: Tahoma; font-size: 8pt; ">
<option selected value="Genel">Genel</option>
<option value="Bilgi Talebi">Bilgi Talebi</option>
<option value="Teknik Destek">Teknik Destek</option>
<option value="Sipariş Bildirimi">Sipariş Bildirimi</option>
</select> </td>
</tr>
<tr>
<td align="right" width="128" valign="top"><font color="#2985B6"><b>Mesajınız :</b></font></td>
<td align="left" width="141" valign="top">
<textarea rows="9" name="mesaj_mail" onKeyDown="textCounter(this.form.mesaj_mail,this.f orm.remLen,3000);" onKeyUp="textCounter(this.form.mesaj_mail,this.for m.remLen,3000);" cols="21" tabindex="5" style="font-family: Verdana; color: #000000; font-size: 8pt; border: 1px solid #808080; "></textarea></td>
</tr>
<tr>
<td align="right" width="128"><font color="#C0C0C0"><b>Karakter Sayısı :</b></font></td>
<td align="left" width="141"><font size="1" face="arial, helvetica, sans-serif">
<input name=remLen size=27 maxlength=3 value="3000" style="font-family: Tahoma; font-size: 8pt; color: #C0C0C0; border: 1px solid #FFFFFF"></font></td>
</tr>
</table>
</fieldset><br>
<font color="#2985B6">
<input type="submit" value="Gönder" style="border:1px solid #2985B6; font-family: Tahoma; font-size: 8pt; width:35%; font-weight:bold" tabindex="6" <% If Session("ASPPLUSGuvenlik")=TRUE Then %><%Response.write "Disabled"%><%End If %> onClick="javascript:this.disabled=disabled;return true;"></font></form>
</td>
</tr>
</table>
</center>
<SCRIPT language=javascript>
//No Right Click Script
function NSclick(e) {
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)==4) {
if (e.which == 3) {
return false;
}
}
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)>=5) {
if (e.button == 2 || e.button == 3) {
e.preventDefault();
return false;
}
}
}
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)==4) {
document.onmousedown=NSclick;
document.captureEvents(Event.MOUSEDOWN);
}
if (navigator.appName=="Netscape" && parseInt(navigator.appVersion)>=5) {
document.onmouseup=NSclick;
}
if (navigator.appName=="Microsoft Internet Explorer") {
document.oncontextmenu = new Function("return false;")
}
//nots
function disableselect(e){
return false
}
function reEnable(){
return true
}
//if IE4+
document.onselectstart=new Function ("return false")
//if NS6
if (window.sidebar){
document.onmousedown=disableselect
document.onclick=reEnable
}
</SCRIPT>
</div>
</body>
</html>
or len(REQUEST("adsoyad"))>50 Then
