سلام
مشکل من در نوشتن login برای کاربران می باشد در asp کلاسیک من این کار را با استفاده از کدهای زیر انجام داده ام ، در ابتدای ورود به برنامه اگر کاربر usename و password صحیحی وارد کرد بتواند وارد صفحه مورد نظر شود و تا زمانی که کاربر از برنامه خارج نشده بتوانم به usename و password کاربر دسترسی داشته باشم.
در asp کلاسیک من از روش زیر استفاده می کردم :
فایل global.asa :
کد:
<script language=vbscript runat=server>
sub session_onstart()
set session("name")=""
set session("password")=""
set session ("validation")=false
end sub
sub session_onend()
set session("name")=nothing
set session("password")=nothing
set session ("validation")=nothing
end sub
</script>
فایل login :
کد:
<BODY>
<%
session("name")=""
session("password")=""
session("validation")=false%>
<form method="get" action="test_user " id=form1 name=form1>
<TABLE cellSpacing=1 cellPadding=1 width="75%" border=1 dir=rtl align=center>
<TR>
<TD><FONT color=crimson>Username</FONT></TD>
<TD><INPUT id=text1 name=User size="20"></TD></TR>
<TR>
<TD><FONT color=crimson>Password</FONT></TD>
<TD><INPUT id=text1 name=Password type=password size="20"></TD></TR>
<TR>
<TD colspan=2 align=middle><INPUT style="WIDTH: 78px; FONT-FAMILY: tahoma; HEIGHT: 24px" type=submit size=62 value=تاييد></TD></TR>
</TABLE>
</form>
</BODY>
فایل test_user :
کد:
<BODY>
<%if (Request.QueryString ("user")="")then
session("flag")=true%>
<a href="user_gostaresh.asp">کاربری که وارد کرده اید وجود ندارد لطفا دوباره سعی کنید</a>
<%else
if (Request.QueryString ("password")="")then
session("flag")=true%>
<a href="user_gostaresh.asp">کاربری که وارد کرده اید وجود ندارد لطفا دوباره سعی کنید</a>
<%
else
dim objconn
set objconn=server.CreateObject("adodb.connection")
objconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("gavahi_gostaresh.mdb")+";Persist Security Info=False"
%>
<%
dim t1
dim t2
dim icount
dim strsql
t1=trim(Request.QueryString("user"))
t2=trim(Request.QueryString("password"))
t1=trim(t1)
t2=trim(t2)
strsql="select * from User1 where(( Username like '"& t1 & "') and ( password like '"& t2 & "'))"
%>
<%
dim objrs
set objrs=server.CreateObject ("ADODB.recordset")
objrs.Open strsql,objconn,1,3
%>
<%
if objrs.RecordCount<>0 then
session("validation")=true
session("name")=objrs.Fields("Username")
session("password")=objrs.Fields("password")
Response.redirect("main_gostaresh.asp") ' bayad redirect avas beh safheyeh sefaresh shavad
else
session("validation")=false%>
<a href="user_gostaresh.asp">کاربری که وارد کرده اید وجود ندارد لطفا دوباره سعی کنید </a>
<%end if
%>
<%objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
end if
end if
%>
</BODY>
حالا می خوام که با استفاده از asp.net این کار را انجام و نمی دانم که باید چه کار کنم لطفا یکی کمکم کنه .
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :