Şifreli giriş ve yönlendirme ..

~~CoNiDeP~~ · 25-11-05, 10:36

Merhaba arkadaşlar ,

Benim yapmak istediğim bir siteye giriş şekli var yardımcı olursanız sevinirim.

Müşterilere ayrı ayrı şifre ve kullanıcı adı vereceğim mesela musteri1 ve şifresi ...
Bunların siparişlerini takip edebilmesi için excel formatındaki tabloları görebilmeleri için nasıl bir yol izlemem lazım örnek veya kod verirseniz sevinirim.

Yani musteri1 giriş yaptığında şifresi ile musteri1.xls açılsın, musteri2 giriş yaptığında musteri2.xls açılsın gibi yada daha basit bir yol önerirseniz sevinirim...

Şimdiden teşekkürler.

Not : Flashla yapılmış sitenin içinde yapmam lazım bu olayı .. PHP desteği vs var..

LazRaiL® · 25-11-05, 12:24

asp istersen yardimci olabilirim.. cok ta basit olur .. ama php dersen baska arkadaslara danis .. sana kolay gelsin ..

~~CoNiDeP~~ · 25-11-05, 19:20

Farketmez her iki desteğide var serverın ... Asp ile nasıl yapabiliriz.

teşekkürler.

LazRaiL® · 26-11-05, 08:24

bir kullanici formu hazirlarsin ..
(kullanic adi ve sifrenin yazilacagi bir panel)

kullanici adi ve sifre kontrol sayfasinda kullanici adini bir sessiona atarsin ..

session("user")="kullanici1" seklinde bir deger alir ..

daha sonra bu sayfayi siparis sayfasina yonlendirisin ..

response.redirect("siparisler.asp")
siparisler sayfasindaki dokumanida session daki kullanici adina gore goruntıulersin ..

Tavsiye = exel dosyani html olarak publish edersen sayfada goruntulemen daha kolay olacaktir ... aksi halde kullanici girdigi zaman download diyalog penceresi acilacaktir ..

kolay gelsin ..

The_UnforgiveN · 27-11-05, 10:17

LazRaiL®, pekii xls dosyalarina erisimi nasil kisitlayacaksin? Yani adresi bilen birisi hic giris yapmadan da .xls lere erisemez mi?

~~CoNiDeP~~ · 27-11-05, 13:44

Onu şu şekilde güvenlik search ı koyarak hallettim ...

Bu excel.asp


<html>
<head>
<title>Sirket tablolar
</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<link href="hola/hola/style.css" rel="stylesheet" type="text/css">
</head>

<%
'Name of the excel file being displayed
exceldb="deneme.xls"
' Create a server connection object
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ=" & Server.MapPath(exceldb) & ";" & _
"DRIVER={Microsoft Excel Driver (*.xls)};"
Set rs = Server.CreateObject("ADODB.Recordset")
rsql="select * from goster"
Rs.Open rSQL, Conn, 1, 3
%>
<table border=1 align=center>
<caption><b>Sirket Tablolar</b><i><a href="?logout=y"><p align="right">Logout</p></a></i></caption><%
For counter = 0 To rs.fields.count - 1 %>
<th>
<% ' Write out the field names
response.write rs.fields.item(counter).name %>
</th><%
' Move to the next field
next

' Move to the first record
rs.movefirst
' Write out the record set
do while not rs.eof %>
<tr><%
' Loop through all of the fileds
for counter = 0 to rs.fields.count - 1
%>
<td align=right>
<% ' Write out the field values
response.write rs.fields.item(counter).value %>
</td><%
' Move to the next field
next
%>
</tr><%
' Move to the next record
rs.movenext
loop
%>
</table>

<%
' Kill the recordset
rs.Close
Set rs = Nothing
' Kill the connection
conn.Close
Set conn = Nothing
%>

</body>
</html>

Buda Security.asp
<%
if Not Session("bLoginSuccessful") then
response.redirect "login.asp?comebackto=" &_
request.servervariables("script_name") &_
"?" & server.urlencode(request.querystring)
else

If Request.Querystring("logout") <> "" then
Session("bLoginSuccessful") = False
Session.Abandon
response.redirect request.servervariables("script_name")
End if
end if
%>

~~CoNiDeP~~ · 27-11-05, 14:22

Tek bir sorun kaldı Seosan olayını yapamadım ... 2. müşteriye ve 3. , 4. müşteriye verdiğim kullanıcı adı ve şifreyi girdiğinde 2. 2.asp ye , 3. 3.asp vs vs sayfasına yönlendiremedim ??????????

The_UnforgiveN · 27-11-05, 14:40

Kullanici adini kontrol edip yonlendirsene;

Mesela her kullanicinin numarasina gore sayfasi var diyelim. Yani 1. numarali musterinin ki 1.asp, 2numaralini ki 2.asp ...;

<%
response.redirect objRs("musteriID") & ".asp"
%>

Ama anlamadigim nokta, her musteri icin neden ayri ayri sayfa yapiyorsun. Session la ona gore veritabani alsana.

~~CoNiDeP~~ · 27-11-05, 15:06

Login.asp bu şekilde ..

<%
Option Explicit

Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "cache-control", "must-revalidate"
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Session.Timeout = 20

Dim sReferer, sGoBackTo, sUserName, sPassword, bLoginSuccessful, Error
Dim UserName, Password

UserName = "user"
Password = "pass"

if request.querystring("comebackto") <> "" then
sReferer = request.querystring("comebackto")
sGoBackTo = "?" & request.querystring
end if

if request.form("Status") = "FormSubmitted" then
sUserName = replace(request.form("txtUserName"),"'","")
sPassword = replace(request.form("txtPassword"),"'","")

If (sUserName = UserName) AND (sPassword = Password) then
bLoginSuccessful = True
Else
bLoginSuccessful = False
Error = "Wrong User name or Password"

Session("count") = Session("count") + 1
if Session("count") > 3 then
Session.abandon
response.redirect "index.html"
End if
End if
Session("bLoginSuccessful") = bLoginSuccessful
End if

if bLoginSuccessful Then
if sReferer = "" then
response.redirect "excel.asp"
else
response.redirect sReferer
end if
else

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><title>Moda Login Page</title>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META name="description" content="This page requires login">
<style>
BODY, TD {color: NAVY;font-family: Verdana,tahoma,Arial;font-size: 10px;}
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
A:hover {text-decoration: none;color: #000000}
.text {color: NAVY;font-family: Verdana,tahoma,Arial;font-size: 9px;}
.coltext {color: tomato;font-family: Verdana,tahoma,Arial;font-size: 10px;font-weight: bold;}
.inputSubmit {
color: NAVY;
background-color: #EEEEEE;
border-color : NAVY;
border-top : 1px solid;
border-bottom : 1px solid;
border-left : 1px solid;
border-right : 1px solid;
font-family : Verdana,tahoma,Arial;
font-size : 10px;
font-weight: bold;
padding-left: 10px;
padding-right: 10px;
cursor: hand;
}
.inputBox {
color : NAVY;
background : #EEEEEE;
border-color : NAVY;
border-top : 1px solid;
border-bottom : 1px solid;
border-left : 1px solid;
border-right : 1px solid;
font-family : Verdana,tahoma,Arial;
font-size : 10px;
}
</style>
</HEAD>
<body bgcolor="#F3F3CC" language="JavaScript" onLoad="document.Login.txtUserName.focus()">
<div align=center><h3>  MODA Login Page </h3>
</a><br>

<br><br><br><br><br>

<table border="0" cellpadding="5" cellspacing="0" align="center" style="border: 1px solid navy;">
<form action="login.asp<%=sGoBackTo%>" method="post" name="Login">
<tr>
<%

if Error <> "" then
response.write "<td colspan=2 align=center class=coltext bgcolor=#F0FFF0 style=""border-bottom: 1px solid navy;"">" & Error
response.write "</td></tr><tr>"
End if
%>
<td bgcolor="#FFFFFF" align=center height=80>

<table border="0" cellpadding="2" cellspacing="0"><tr>
<td align="right"><b>User name:</b></td>
<td><input type="Text" name="txtUserName" size="18" class="inputBox"></td>
</tr><tr>
<td align="right"><b>Password:</b></td>
<td><input type="Password" name="txtPassword" size="18" class="inputBox"></td>
</tr><tr>
<td class=text align=center height=30>(by MODA)</td>
<td class=text align=center>
<input type="submit" name="cmdLogin" value="Login" class="inputSubmit">
<input type="hidden" name="Status" value="FormSubmitted">
</td></tr></table>

</td></tr></form></table>

<p align=center>
<br>
<br>
</BODY></HTML>
<% End if %>

25-11-05, 10:36	#1
~~CoNiDeP~~	Şifreli giriş ve yönlendirme .. Merhaba arkadaşlar , Benim yapmak istediğim bir siteye giriş şekli var yardımcı olursanız sevinirim. Müşterilere ayrı ayrı şifre ve kullanıcı adı vereceğim mesela musteri1 ve şifresi ... Bunların siparişlerini takip edebilmesi için excel formatındaki tabloları görebilmeleri için nasıl bir yol izlemem lazım örnek veya kod verirseniz sevinirim. Yani musteri1 giriş yaptığında şifresi ile musteri1.xls açılsın, musteri2 giriş yaptığında musteri2.xls açılsın gibi yada daha basit bir yol önerirseniz sevinirim... Şimdiden teşekkürler. Not : Flashla yapılmış sitenin içinde yapmam lazım bu olayı .. PHP desteği vs var..
	Alıntı Yaparak Cevapla

25-11-05, 12:24	#2
LazRaiL®	Cvp: Şifreli giriş ve yönlendirme .. asp istersen yardimci olabilirim.. cok ta basit olur .. ama php dersen baska arkadaslara danis .. sana kolay gelsin ..
	Alıntı Yaparak Cevapla

25-11-05, 19:20	#3
~~CoNiDeP~~	Cvp: Şifreli giriş ve yönlendirme .. Farketmez her iki desteğide var serverın ... Asp ile nasıl yapabiliriz. teşekkürler.
	Alıntı Yaparak Cevapla

26-11-05, 08:24	#4
LazRaiL®	Cvp: Şifreli giriş ve yönlendirme .. bir kullanici formu hazirlarsin .. (kullanic adi ve sifrenin yazilacagi bir panel) kullanici adi ve sifre kontrol sayfasinda kullanici adini bir sessiona atarsin .. session("user")="kullanici1" seklinde bir deger alir .. daha sonra bu sayfayi siparis sayfasina yonlendirisin .. response.redirect("siparisler.asp") siparisler sayfasindaki dokumanida session daki kullanici adina gore goruntıulersin .. Tavsiye = exel dosyani html olarak publish edersen sayfada goruntulemen daha kolay olacaktir ... aksi halde kullanici girdigi zaman download diyalog penceresi acilacaktir .. kolay gelsin ..
	Alıntı Yaparak Cevapla

27-11-05, 10:17	#5
The_UnforgiveN	Cvp: Şifreli giriş ve yönlendirme .. LazRaiL®, pekii xls dosyalarina erisimi nasil kisitlayacaksin? Yani adresi bilen birisi hic giris yapmadan da .xls lere erisemez mi?
	Alıntı Yaparak Cevapla

27-11-05, 13:44	#6
~~CoNiDeP~~	Cvp: Şifreli giriş ve yönlendirme .. Onu şu şekilde güvenlik search ı koyarak hallettim ... Bu excel.asp <!--#include file="security.asp"--> <html> <head> <title>Sirket tablolar </title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <link href="hola/hola/style.css" rel="stylesheet" type="text/css"> </head> <% 'Name of the excel file being displayed exceldb="deneme.xls" ' Create a server connection object Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DBQ=" & Server.MapPath(exceldb) & ";" & _ "DRIVER={Microsoft Excel Driver (.xls)};" Set rs = Server.CreateObject("ADODB.Recordset") rsql="select from goster" Rs.Open rSQL, Conn, 1, 3 %> <table border=1 align=center> <caption><b>Sirket Tablolar</b><i><a href="?logout=y"><p align="right">Logout</p></a></i></caption><% For counter = 0 To rs.fields.count - 1 %> <th> <% ' Write out the field names response.write rs.fields.item(counter).name %> </th><% ' Move to the next field next ' Move to the first record rs.movefirst ' Write out the record set do while not rs.eof %> <tr><% ' Loop through all of the fileds for counter = 0 to rs.fields.count - 1 %> <td align=right> <% ' Write out the field values response.write rs.fields.item(counter).value %> </td><% ' Move to the next field next %> </tr><% ' Move to the next record rs.movenext loop %> </table> <% ' Kill the recordset rs.Close Set rs = Nothing ' Kill the connection conn.Close Set conn = Nothing %> </body> </html> Buda Security.asp <% if Not Session("bLoginSuccessful") then response.redirect "login.asp?comebackto=" &_ request.servervariables("script_name") &_ "?" & server.urlencode(request.querystring) else If Request.Querystring("logout") <> "" then Session("bLoginSuccessful") = False Session.Abandon response.redirect request.servervariables("script_name") End if end if %>
	Alıntı Yaparak Cevapla

27-11-05, 14:22	#7
~~CoNiDeP~~	Cvp: Şifreli giriş ve yönlendirme .. Tek bir sorun kaldı Seosan olayını yapamadım ... 2. müşteriye ve 3. , 4. müşteriye verdiğim kullanıcı adı ve şifreyi girdiğinde 2. 2.asp ye , 3. 3.asp vs vs sayfasına yönlendiremedim ?????????? Mesajı son düzenleyen CoNiDeP* ( 27-11-05 - 14:31 )*
	Alıntı Yaparak Cevapla

27-11-05, 14:40	#8
The_UnforgiveN	Cvp: Şifreli giriş ve yönlendirme .. Kullanici adini kontrol edip yonlendirsene; Mesela her kullanicinin numarasina gore sayfasi var diyelim. Yani 1. numarali musterinin ki 1.asp, 2numaralini ki 2.asp ...; <% response.redirect objRs("musteriID") & ".asp" %> Ama anlamadigim nokta, her musteri icin neden ayri ayri sayfa yapiyorsun. Session la ona gore veritabani alsana.
	Alıntı Yaparak Cevapla

27-11-05, 15:06	#9
~~CoNiDeP~~	Cvp: Şifreli giriş ve yönlendirme .. Login.asp bu şekilde .. <% Option Explicit Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "must-revalidate" Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" Session.Timeout = 20 Dim sReferer, sGoBackTo, sUserName, sPassword, bLoginSuccessful, Error Dim UserName, Password UserName = "user" Password = "pass" if request.querystring("comebackto") <> "" then sReferer = request.querystring("comebackto") sGoBackTo = "?" & request.querystring end if if request.form("Status") = "FormSubmitted" then sUserName = replace(request.form("txtUserName"),"'","") sPassword = replace(request.form("txtPassword"),"'","") If (sUserName = UserName) AND (sPassword = Password) then bLoginSuccessful = True Else bLoginSuccessful = False Error = "Wrong User name or Password" Session("count") = Session("count") + 1 if Session("count") > 3 then Session.abandon response.redirect "index.html" End if End if Session("bLoginSuccessful") = bLoginSuccessful End if if bLoginSuccessful Then if sReferer = "" then response.redirect "excel.asp" else response.redirect sReferer end if else %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><title>Moda Login Page</title> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <META name="description" content="This page requires login"> <style> BODY, TD {color: NAVY;font-family: Verdana,tahoma,Arial;font-size: 10px;} A:link {text-decoration: none} A:visited {text-decoration: none} A:active {text-decoration: none} A:hover {text-decoration: none;color: #000000} .text {color: NAVY;font-family: Verdana,tahoma,Arial;font-size: 9px;} .coltext {color: tomato;font-family: Verdana,tahoma,Arial;font-size: 10px;font-weight: bold;} .inputSubmit { color: NAVY; background-color: #EEEEEE; border-color : NAVY; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px; font-weight: bold; padding-left: 10px; padding-right: 10px; cursor: hand; } .inputBox { color : NAVY; background : #EEEEEE; border-color : NAVY; border-top : 1px solid; border-bottom : 1px solid; border-left : 1px solid; border-right : 1px solid; font-family : Verdana,tahoma,Arial; font-size : 10px; } </style> </HEAD> <body bgcolor="#F3F3CC" language="JavaScript" onLoad="document.Login.txtUserName.focus()"> <div align=center><h3>  MODA Login Page </h3> </a><br> <br><br><br><br><br> <table border="0" cellpadding="5" cellspacing="0" align="center" style="border: 1px solid navy;"> <form action="login.asp<%=sGoBackTo%>" method="post" name="Login"> <tr> <% if Error <> "" then response.write "<td colspan=2 align=center class=coltext bgcolor=#F0FFF0 style=""border-bottom: 1px solid navy;"">" & Error response.write "</td></tr><tr>" End if %> <td bgcolor="#FFFFFF" align=center height=80> <table border="0" cellpadding="2" cellspacing="0"><tr> <td align="right"><b>User name:</b></td> <td><input type="Text" name="txtUserName" size="18" class="inputBox"></td> </tr><tr> <td align="right"><b>Password:</b></td> <td><input type="Password" name="txtPassword" size="18" class="inputBox"></td> </tr><tr> <td class=text align=center height=30>(by MODA)</td> <td class=text align=center> <input type="submit" name="cmdLogin" value="Login" class="inputSubmit"> <input type="hidden" name="Status" value="FormSubmitted"> </td></tr></table> </td></tr></form></table> <p align=center> <br> <br> </BODY></HTML> <% End if %> Mesajı son düzenleyen CoNiDeP* ( 27-11-05 - 15:09 )*
	Alıntı Yaparak Cevapla

Konu Araçları
Çıktı Görüntüsünü Göster Sayfayı E-posta İle Yolla