سلام خدمت کاربر عزیزaryaei2000:
می خواستم جلوی خط هایی رو که ********** گداشتم.یه توضیح کوچک بدید
ممنون
<html xmlns="http://www.w3.org/1999/xhtml" dir="rtl" lang="fa-IR">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<%Session.CodePage = 65001%>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
dbFldr = "C:\Inetpub\wwwroot\db1.mdb"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & (dbFldr )
objConn.open strconn
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Session("UserLoggedIn") = "" *************************
If lcase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then
CheckLogin
Else
Response.Redirect "login.html"
End If
Sub CheckLogin
username = replace(request.form("username"), "'", "''") ********************
password = replace(request.form("userpwd"), "'", "''")
strsql = "select username, password from users where username = '" & username & "' and password = '" & password & "';"
Set rs = objconn.execute(strsql)
If Not rs.Eof then
Session("UserLoggedIn") = "true" **********************
Response.Redirect "userpage.asp"
Else
Response.Write("Login Failed.<br><br>")
End If
rs.Close
Set rs = Nothing
End Sub
%>
نوشته شده توسط siamak-s
