10/10/2018, 09:54
Lỗi tệp dangnhap.asp
Xin chào mọi người. Em có một thắc mắc mong có được sự giải đáp từ những người đi trước. Chẳng là em đang tự học làm web ASP căn bản. Nhưng vừa mới viết tệp ASP ứng dụng đầu tiên thì gặp lỗi khi chạy trên localhost là The page not displayed. Sau đây là code của connection.inc và dangnhap.asp:
<%
strDBType = "access"
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fpdb/Database.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnString
Set ors = Server.CreateObject("ADODB.Recordset")
%>
<!--#include file=connection.inc-->
<%
strtdn=Request.Form("T1")
strmk=Request.Form("T2")
intUserCode=0
blnUserN=false
blnPass=false
ors.open "SELECT*FROM Danhsachthanhvien WHERE Matkhau="&strmk&" and Tendangnhap="&strtdn&"",conn
Do While not ors.EOF
If ors("Matkhau")=strmk and ors("Tendangnhap")=strtdn Then
intUserCode=ors("ID")
blnPass=true
blnUserN=true
End If
ors.MoveNext
Loop
ors.Close
If (blnUserN)and(blnPass) Then
Application("ID")=intUserCode
Response.Redirect("new_page_1.htm")
else
Response.Redirect("new_page_2.htm")
End If
%>
Em không biết lỗi phát sinh ở đâu. Do tự học là chính nên không biết kêu ai, đành phải nhờ tới thành viên của ddth.com. Rất mong được sự giúp đỡ của mọi người.
<%
strDBType = "access"
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fpdb/Database.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnString
Set ors = Server.CreateObject("ADODB.Recordset")
%>
<!--#include file=connection.inc-->
<%
strtdn=Request.Form("T1")
strmk=Request.Form("T2")
intUserCode=0
blnUserN=false
blnPass=false
ors.open "SELECT*FROM Danhsachthanhvien WHERE Matkhau="&strmk&" and Tendangnhap="&strtdn&"",conn
Do While not ors.EOF
If ors("Matkhau")=strmk and ors("Tendangnhap")=strtdn Then
intUserCode=ors("ID")
blnPass=true
blnUserN=true
End If
ors.MoveNext
Loop
ors.Close
If (blnUserN)and(blnPass) Then
Application("ID")=intUserCode
Response.Redirect("new_page_1.htm")
else
Response.Redirect("new_page_2.htm")
End If
%>
Em không biết lỗi phát sinh ở đâu. Do tự học là chính nên không biết kêu ai, đành phải nhờ tới thành viên của ddth.com. Rất mong được sự giúp đỡ của mọi người.
Bài liên quan
Bạn đã sử dụng 2 dòng này:
Response.Redirect("new_page_1.htm") Response.Redirect("new_page_2.htm")Microsoft JET Database Engine (0x80040E14)
Syntax error in UPDATE statement.
/dangki.asp, line 23
<!--#include file=connection.inc-->
<%
Dim Name,Pass,Email
Name=Request.Form("T3")
Pass=Request.Form("T4")
Email=Request.Form("T5")
blnCheck=false
ors.Open "Select * From Danhsachthanhvien", conn
Do while not ors.EOF
If ors("Name")= Name and ors("Email")= Email Then
blnCheck=true
End If
ors.MoveNext
Loop
ors.Close
If (blnCheck) Then
Response.Redirect("dangki1.htm")
Else
sql = "Insert into Danhsachthanhvien(Name,Pass,Email) Values("
sql = sql & "'" & Name & "', "
sql = sql & "'" & Pass & "', "
sql = sql & "'" & Email & "')"
conn.Execute(sql)
conn.Close
Response.Redirect("dangnhap2.htm")
end if
%>
sql = "Insert into Danhsachthanhvien(Name,Pass,Email) Values(" sql = sql & "'" & Name & "', " sql = sql & "'" & Pass & "', " sql = sql & "'" & Email & "')"