bir sayfasını paylaşıyorum ;
<!-- #include file="degiskenler.asp" -->
<%
Function Guvenlik(Yasak)
Yasak = Replace (Yasak ,"=","",1,-1,1)
Yasak = Replace (Yasak ,"&","",1,-1,1)
Yasak = Replace (Yasak ,"*","",1,-1,1)
Yasak = Replace (Yasak ,"?","",1,-1,1)
Yasak = Replace (Yasak ,"%","",1,-1,1)
Yasak = Replace (Yasak ,"'","",1,-1,1)
Yasak = Replace (Yasak ,Chr(34),"",1,-1,1)
Yasak = Replace (Yasak ,"'","",1,-1,1)
Yasak = Replace (Yasak ,"/","",1,-1,1)
Yasak = Replace (Yasak ,"\","",1,-1,1)
Yasak = Replace (Yasak ,"<","",1,-1,1)
Yasak = Replace (Yasak ,">","",1,-1,1)
Yasak = Replace (Yasak ,"And ","",1,-1,1)
Yasak = Replace (Yasak ," And ","",1,-1,1)
Yasak = Replace (Yasak ," Or ","",1,-1,1)
Yasak = Replace (Yasak ,"Or ","",1,-1,1)
Guvenlik = Yasak
End Function
Function sitedemi(kontrol)
if kontrol="kontrolet" then
if session("UYEID")<>"" and session("SIFRE")<>"" and session("MAIL")<>"" and session("YETKI")<>"" and session("GIRDI")<>"" and session("GIRIS")<>"" and session("CINSIYET") <>"" then
sitedemi="true"
else
sitedemi="false"
end if
end if
End Function
%>
<%
server.scripttimeout=50000
Session.CodePage = 1254
Response.contentType = "text/html"
Response.charset = "windows-1254"
'zamandeger = 1055 'Sitenin LCID degeri TURKCE icin 1055
'Session.LCID = zamandeger
%>
<%
set ensarcn=Server.CreateObject("ADODB.Connection")
dsn="Driver={MySQL ODBC 3.51 Driver}; Port=3306; Option=3; Server="& host &";Database="& db &";Uid="& kullanici &";Pwd="& parola &";"
ensarcn.open dsn
%>
<%
'///AYARLAR
set AYARCEK=ensarcn.execute("select * from ayarlar where ID=1")
IF AYARCEK.EOF AND AYARCEK.BOF THEN
islemara=20
yokmesaj="Belirtmek istemiyorum"
domaingec="gfdgdf"
sessionsure=240
resimb="uyeresim\buyuk\"
resimo="uyeresim\orta\"
resimk="uyeresim\kucuk\"
maxresimboyut=250
maxresimgenis=1280
maxresimbuyukluk=1024
resimonay=0
maxfotosayisi=5
kayitsayisi=10
arakayitsayisi=10
onlinekayitsayisi=20
zaman=30
itirafonay=0
ERKEK=1
KADIN=2
kacgunonce=30
bayanbedavamesaj=5
goldrefbedava=2
onlinegorsayfa="2"
sanalposid="12"
sanalposuser="sibedsarseksadsom"
sanalpospass="1298Eq3fKXi4fOL"
ustyazi="Reeldasd.com *** partner, yaasdakd arkadaşı, arkadaşlık, sanal ***"
uyeonayi="0"
Cookie="AFF"
MESAJUYARI=0
MESAJSURE=60
resimyazi="Yatsdaaksadsadadam"
tavsiyemesaj=2
MailSunucu="mail.yasdkasddm"
AnaMail="no-relpy@dsaataasdacom"
AnaMailSifre="msansarail"
yenimesajuyar="1"
profiluyar="1"
arkadasuyar="1"
aktivasyon="0"
otodavet="1"
DAVETSURE=10
ELSE
islemara=20 'AYARCEK("ISLEMARALIK")
yokmesaj=AYARCEK("YOKMESAJ")
domaingec=AYARCEK("DOMAIN")
sessionsure=AYARCEK("SESSIONSURE")
resimb=AYARCEK("RESIMBUYUK")
resimo=AYARCEK("RESIMORTA")
resimk=AYARCEK("RESIMKUCUK")
maxresimboyut=AYARCEK("MAXRESIMBOYUT")
maxresimgenis=AYARCEK("MAXRESIMGENIS")
maxresimbuyukluk=AYARCEK("MAXRESIMBUYUKLUK")
resimonay=AYARCEK("RESIMONAY")
maxfotosayisi=AYARCEK("MAXFOTOSAYISI")
kayitsayisi=AYARCEK("KAYITSAYISI")
arakayitsayisi=AYARCEK("ARAKAYITSAYISI")
onlinekayitsayisi=AYARCEK("ONLINEKAYITSAYISI")
zaman=AYARCEK("ZAMAN")
itirafonay=AYARCEK("ITIRAFONAY")
ERKEK=1
KADIN=2
kacgunonce=AYARCEK("KACGUNONCE")
bayanbedavamesaj=AYARCEK("BAYANBEDAVAMESAJ")
goldrefbedava=AYARCEK("GOLDREFBEDAVA")
onlinegorsayfa=AYARCEK("ONLINEGORSAYFA")
sanalposid=AYARCEK("SANALPOSID")
sanalposuser=AYARCEK("SANALPOSUSER")
sanalpospass=AYARCEK("SANALPOSPASS")
ustyazi=AYARCEK("USTYAZI")
uyeonayi=AYARCEK("UYEONAY")
Cookie="AFF"
MESAJUYARI=AYARCEK("MESAJUYARI")
MESAJSURE=AYARCEK("MESAJSURE")
resimyazi=AYARCEK("RESIMYAZI")
tavsiyemesaj=AYARCEK("TAVSIYEMESAJ")
MailSunucu=AYARCEK("MAILSUNUCU")
AnaMail=AYARCEK("MAIL")
AnaMailSifre=AYARCEK("MAILSIFRE")
yenimesajuyar=AYARCEK("YENIMESAJUYAR")
profiluyar=AYARCEK("PROFILUYAR")
arkadasuyar=AYARCEK("ARKADASUYAR")
aktivasyon=AYARCEK("AKTIVASYON")
otodavet=AYARCEK("OTODAVET")
DAVETSURE=AYARCEK("DAVETSURE")
AFFUYEONAYI=AYARCEK("AFFUYEONAY")
END IF
AYARCEK.Close : Set AYARCEK = Nothing
%>
<%
if sitedemi("kontrolet")="true" then
ensarcn.execute("UPDATE UYELER SET SONGIRISTAR=now() where ID='"& Guvenlik(session("UYEID")) &"' ")
IF SESSION("YETKI")=2 THEN
SET GOLDKONTROL=ENSARCN.EXECUTE("SELECT ID,YETKIBITTAR FROM UYELER WHERE ID='"& SESSION("UYEID") &"' ")
IF GOLDKONTROL.EOF AND GOLDKONTROL.BOF THEN
'/////
GOLDKONTROL.Close : Set GOLDKONTROL = Nothing
ELSE
IF GOLDKONTROL("YETKIBITTAR")<=DATE+1 THEN
ensarcn.execute("UPDATE UYELER SET YETKI='1',YETKIBITTAR=null,YETKIBASTAR=null where ID='"& Guvenlik(session("UYEID")) &"' ")
SESSION("YETKI")="1"
END IF
GOLDKONTROL.Close : Set GOLDKONTROL = Nothing
END IF
END IF
end if
%>
<%
Class Mail
Function Gonder(Bilesen, strMail, strKonu, strMesaj)
mMailSunucu = MailSunucu
mAnaMail = AnaMail
mAnaMailSifre = AnaMailSifre
mCharset = "iso-8859-9"
Select Case Bilesen
case "Cdonts"
Set objMail = Server.CreateObject("CDONTS.NewMail")
With objMail
.Charset = mCharset
.To = mAnaMail
.From = mAnaMail
.Subject = strKonu
.BodyFormat = 0
.MailFormat = 0
.Body = strMesaj
on error resume next
.send
End With
Set objMail = Nothing
case "Jmail"
Set objMail = Server.CreateObject("JMail.Message" )
With objMail
.ContentType = "text/html"
.CharSet = mCharset
.AddRecipient strMail
.From = mAnaMail
.MailServerUserName = mAnaMail
.MailServerPassWord = mAnaMailSifre
.Logging = True
.Silent = True
.Subject = strKonu
.Body = strMesaj
on error resume next
.Send(mMailSunucu)
End With
set objMail = Nothing
case "cdo"
Set objMail = Server.CreateObject("Persits.MailSender")
With objMail
'.Charset = mCharset
.Host = mMailSunucu
.From = mAnaMail
.FromName = "Yadsataasdsacom"
.username = mAnaMail
.password = mAnaMailSifre
.IsHTML = True
.addaddress strMail
.Subject = strKonu
.Body = strMesaj
on error resume next
.send
End With
Set objMail = Nothing
case "cdo2"
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mMailSunucu
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = mAnaMail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mAnaMailSifre
ObjSendMail.Configuration.Fields.Update
ObjSendMail.bodyPart.Charset = "windows-1254"
ObjSendMail.To =strMail
ObjSendMail.Subject = strKonu
ObjSendMail.From = mAnaMail
ObjSendMail.HTMLBody = strMesaj
'ObjSendMail.TextBody = strMesaj
ObjSendMail.Send
Set ObjSendMail = Nothing
End Select
If Err.Number <> 0 then
'Response.Write("Mail gönderilemedi...")
Else
'Response.Write("Mail gönderildi...")
End If
End Function
End Class
%>genel.asp dosyası kodları.
