HOME > ASP > ASP Forum > code login ช่วยตอบหน่อยอีกนิดนึง ภาษาเป็น asp ก็ วิธีที่ง่ายที่สุดก็คือ ส่งค่า form เป็น method ไปที่หน้า verify.asp สร้าง file ที่ชื่อ verify.asp
code login ช่วยตอบหน่อยอีกนิดนึง ภาษาเป็น asp ก็ วิธีที่ง่ายที่สุดก็คือ ส่งค่า form เป็น method ไปที่หน้า verify.asp สร้าง file ที่ชื่อ verify.asp
ภาษาเป็น asp ก็ วิธีที่ง่ายที่สุดก็คือ
ส่งค่า form เป็น method ="post" ไปที่หน้า verify.asp
สร้าง file ที่ชื่อ verify.asp ขึ้นมาก่อน
set con = server.CreateObject(adodb.connection)
con.open "provider = microsoft.jet.oledb.4.0 ; Data source= path ฐานข้อมูลเด้อ"
set rs = server.CreateObject(adodb.recordset)
ตรงนี้สำคัญ ..
rs.open("select * from ชื่อตารางฐานข้อมูล where ฟิวด์username like request.form("ชื่อ textbox username") and ฟิวด์password like request.form("ชื่อtextbox password")"),con,1,3
if (rs not.eof) and (rs not.bof) then
response.redirect("หน้าต่อไป")
else
response.redirect("กลับหน้า login")
end if
rs.open("select * from ชื่อตารางฐานข้อมูล where ฟิวด์username like request.form("ชื่อ textbox username") and ฟิวด์password like request.form("ชื่อtextbox password")
นี่คือโค้ด
<%
Session("Uname")=""
Username=Request("Username")
Password=Request("Password")
If Username<>"" And Password<>"" Then
Set Objdb=Server.Createobject("ADODB.Connection")
Objdb.Open "database5"
Set Objrs=Server.Createobject("ADODB.Recordset")
SQL="Select * From test2 Where Username='"&Username&"' And Password='"&Password&"'"
Objrs.open Sql,Objdb,1,3
If Objrs.Recordcount<>0 Then
Session("Uname")=Objrs("name")
End If
Objrs.Close
Objdb.Closeผ
End If
If Sedssion("Uname")<>"" Then
Response.Redirect("Http://Localhost/project/ex10_16.asp") แทรกตรงนี้ได้อะป่าว
Else
%>
<Html>
<Body>
<Font Size=3 Face="Ms Sans Serif"><B>ชื่อหรือรหัสไม่ถูกต้อง....กรุณาติดต่อผู้บริหารระบบ หรือ
<Br><Br><AHref="ex11_22.Html">ใส่ชื่อและรหัสผ่านอีกที</A></Font></B>
</Body>
</Html>
<%
End If
%>
Load balance : Server 02
