ASP帳密認證語法

李亮寬

<%
dim nid,nname,npassword
pass=session("pass")
id=request("id")
password=request("password")
if pass<>"ok" then
  Set conn = Server.CreateObject("ADODB.Connection")
  DBPath = Server.MapPath("..\使用者密碼.mdb")
  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
  sql="Select * from 密碼表 where id='" & id & "' and password='" & password & "'"
  set rs=conn.execute(sql)
  
  do while not rs.eof
    session("name")=rs("name")  
    pass="ok"
    rs.movenext
  loop
  
end if
%>