% pmode = request.querystring("pmode") password=request.Form("pwd") if pmode="sub" then if request.Form("username")= "ppta" and password = "PPTA7321" then LoginStat="Sucess" dbconnect="Provider=Microsoft.Jet.OlEDB.4.0;Data source="& Server.MapPath ("db/uudb.mdb") set Conn=Server.createObject("ADODB.CONNECTION") Conn.open dbconnect set rsPPTA = Server.CreateObject ("adodb.recordset") rsPPTA.Open "Select * from SecPub where category = 'PPTA' and active = True", Conn,2,3 else LoginStat="fail" end if end if %>
|
![]() |
|||||||||||||||||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||