check.asp

一个FLASH登陆页面 密码用户名都为admin

<%
dim name,password
name=replace(trim(request("name")),"'","")
password=replace(trim(Request("password")),"'","")
dim exec,conn,rs
exec="select *from check where(name='"&name&"' and password='"&password&"')"
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/qiuzhi/wish/www.mdb")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session("checked")="yes"
session("check")="right"
Response.Write("&action=complete")
else
session("checked")="no"
session("check")="wrong"
Response.Write("&action=pwderror")
end if
%>