asp giriş sorunu

ASP İndir - Emlak 2000 Emlak Scripti v3.0 (tr) burdakı scripti indirdim

<link href="stil.css" rel="stylesheet" type="text/css">
<%
kullanici_adi = Replace(Request.Form("kullanici_adi"), "'", "")
sifre = Replace(Request.Form("sifre"), "'", "")
giris_kontrol = Replace(Request.Form("giris_kontrol"), "'", "")

if kullanici_adi = "admin" And sifre = "12345" And giris_kontrol = Session("giris_kontrol") Then
Session("admin") = True
adres = "default.asp"
%>

"admin" And sifre = "12345" And diyo yazıyorum ama girmiyo başka yedenmi






Emlak 2000: Gayrimenkul İlan; Emlak, Satış Sitesi ama calıştıramadım bide bu var

500 Internal Server Error

ASP İndir - Dora Emlak Script v1.0 (tr)

<%
cookFirstLevel = Session("FirstLevelSecurity") 'Ilk Güvenlik Session
cookSecondLevel = Session("SecondLevelSecurity") 'Ikinci Güvenlik Session
queryProc = Request.QueryString("Proc") 'Querystring Tanimi
strPageURL = Replace("/" & Request.ServerVariables("URL"),"//","/") 'Bu Sayfa Adresi
strFirstPass = "123456"
strSecondPass = "1234567"
If fixWord(queryProc) = "" Then 'Eger Query Bos Ise (Normal Sayfa Acilisiysa)
If cookFirstLevel <> 1 and cookSecondLevel <> 1 Then 'Eger 1. ve 2. Seviye Sessionlar 1den Farkliysa
%>

bu hiç calışmadı

Internal Server Error hatası veriyo ne yapıcam


asp konusunda hiç bir bilgim yok nasıl calıştırıcaz kısa bi bilgi

kullanici_adi = Replace(Request.Form("kullanici_adi"), "'", "")
sifre = Replace(Request.Form("sifre"), "'", "")
giris_kontrol = Replace(Request.Form("giris_kontrol"), "'", "")

SQL den sorgulama yapmadığı halde replace yaptırmış Allah bilir daha ne kadar mantıktız iş yaptırmıştır kodlayan eleman

asp indirde ne kadar bedava emlak scripti varsa indirdim gerci acemıyım asp de ama hiç birini calıştıramadım plesk panelde topluca yazma ıznı vermenın bi yolu yokmu

ve calışan emlak asp yada php php tercihimdir varmı ücretsiz

sorunumu buldum ama nasıl cözeceğimi bilmiyorum

sorun ../../db tanımıyor tam yolunu yazıcamı soyluorlar ama nasıl

burda bişeyler var amabişey anlamadım


İlk Fonsiyonumuz En çok Sorun çıkaran ve Çok şikayet edilen
Host değiştigi zaman Ms Access DB kullanan Scriptin Çalışmaması sorununu kısmen Çözen Fonksiyon.
"../ " ın çalışmamasının sebebi . sunucunun bu özelliğinin kapatılmış olması

Server.MapPath (../../db/ornek.mdb) Şeklindeki Fonksiyonun Yeni Hostunuzda çalışmaması durumunda Tam Yolu yazmanız gerekir . oysa vereceğim fonksiyonda bunun önemi yok.

Fonksiyonu Kullanmak için
Server.MapPath() yerine --- > cetinDbMapPath ()
yazmanız yeterli
tabi Aşagıdaki Fonksiyonuda ilgili sayfaya ASP tagları arasına #include etmeniz gerekir.

Kod verisi:
Function cetinDbMapPath (DbYolu)
'********************************
' Kullanimi :
' cetinDbMapPath ("\db")
' veya
' cetinDbMapPath (/../db/denem.mdb)
'
' Aciklama :
' server.MapPath "/../../db/dosya.txt"
' Çalışmadıgı Sunucularda Etkilidir
' www nin gerisini bulur
' vereceginiz klasor eklenir.
' üstelik hangi klasorde olursanız olun
' ana dizinden yola çıkarak işlemi yapar
' Dikkat :
' wwwRoot için kullanilmasi sacma olur
' ocak - 2003
' yazan: Cetin Gumuscu
'********************************
dim sonuc
dim S_pozisyon
dim Yol

' "../","./","//" kuralları uygula
Dbyolu = Replace (Dbyolu,"../","/")
Dbyolu = Replace (Dbyolu,"./","/")
Dbyolu = Replace (Dbyolu,"//","/")
' "/" ile "\" degistiriliyor
Dbyolu = Replace (Dbyolu,"/","\")

' Sunucu ya göre degisen Ana dizin yolu
yol = server.MapPath ("/")

' sagdaki ilk Slash pozisyonu
S_pozisyon = InstrRev (yol,"\")

' slash pozisyonu ve kendini Cıkart
sonuc = left (yol , S_pozisyon - 1 )

cetinDbMapPath = sonuc & Dbyolu

End Function
'----------------------------------------------





fonsiyonda web dizini "httpDocs", "WWW" , "wwwRoot" , olması bişeyi değiştirmiyor. oysa server.MapPath ile Bunu yapamıyoruz.

* server.mapPath (/db/ornek.mdb)
örnek çıktısı = "C:\vhost\domain.com\Httpdocs\db\ornek.mdb" + scriptin çalıştığı dizine göre çıktı değişir!


* cetinDbMapPath (/db/ornek.mdb)
örnek çıktısı = "C:\vhost\domain.com\db\ornek.mdb" + scriptin çalıştıgı Dizine göre çıktı değişmez



__________________



kısa hali:
Kod verisi:

Function cetinDbMapPath (DbYolu)
' ocak - 2003
' yazan: Cetin Gumuscu
'********************************
dim sonuc
dim S_pozisyon
dim Yol
Dbyolu = Replace (Dbyolu,"../","/")
Dbyolu = Replace (Dbyolu,"./","/")
Dbyolu = Replace (Dbyolu,"//","/")
Dbyolu = Replace (Dbyolu,"/","\")
yol = server.MapPath ("/")
S_pozisyon = InstrRev (yol,"\")
sonuc = left (yol , S_pozisyon - 1 )
cetinDbMapPath = sonuc & Dbyolu
End Function

' kullanım şekli klasor yada Db wwwroot arkasında ise kullanın
dbyol = cetinDbMapPath (/private/datalar/ornek.mdb)