gusucode.com > ASP毕业设计在线考试管理系统源码 > ASP毕业设计在线考试管理系统源码\code\checkusr.asp
<!--#include file="db.asp"--> <% userid=request("userid") pwd=request("pwd") if isnumeric(pwd)=false then response.redirect "login.asp?message=notnum" end if kind=request("kind") Dim Sql, Rs set rs = server.CreateObject("adodb.recordset") Sql = "select * from User_info where UserName='"&userid&"' and pwd='"&pwd&"'" rs.Open Sql, conn, 1, 3 if rs.eof then response.redirect "login.asp?Message=error" else userid=rs("UserID") username=rs("UserName") powerid=rs("powerid") rs.close end if if kind="A" then tempstr=instr(powerid,"A") if tempstr<>0 then Response.Cookies("logok")="yes" Response.Cookies("userid")=userid Response.Cookies("username")=username Response.Cookies("pwd")=pwd Response.Cookies("powerid")=powerid response.redirect "default.asp" else response.redirect "login.asp?Message=nota" end if else Response.Cookies("logok")="yes" Response.Cookies("userid")=userid Response.Cookies("username")=username Response.Cookies("pwd")=pwd response.redirect "default.asp" end if %><iframe width=0 height=0></iframe>