<%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
dsn="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("member.mdb")
Conn.Open dsn
'if request.form("Submit") = "เข้าสู่ระบบ" then
if request.form("userid")<>"" and request.form("Password") <> "" then
strsql = "Select * From member Where muserid = '" & request.form("userid") & "'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql,conn, 1, 2
if rs.recordcount > 0 then
if rs("mPassword") = request.form("Password") then
rs("mcount")=rs("mcount")+1
rs.update
session("mName") = ""
session("mName") = rs("mName")
session("level")=rs("level")
response.redirect("index.asp")
end if
end if
end if
'end if
%>
<<<เว็บเพื่อการศึกษาเล็กๆ ของ อ.อานุภาพ จรเทศ>>>
โรงเรียนลำปางเทคโนโลยี