<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DSN=intelDB;UId=inteldbuser;address@hidden")
sqlstat1="select * from inteluser where username='" &request("username")&"'and pwd='"&request("pwd")&"'"
set rs=conn.Execute(sqlstat1)
if not rs.eof then
session("level")=rs("userlevel")
session("username")=rs("username")
session("id")=rs("id")
Response.Redirect("diycard/card/card/flashcard.asp")
else Response.Write("无权限")
end if
%> |