2login.asp

ASP+ACCESS 产品报价系统 开发环境简单 主要是周杰伦FANs的交互活动

<link href="../img/style.css" rel="stylesheet" type="text/css"> <!--#include file="conn.asp"-->
<p>&nbsp;</p><%
if request("action")="login" then


admin_name=request("admin_name")
admin_pass=request("admin_pass")
if InStr(admin_name,"'") > 0 or InStr(admin_pass,"'") >0 then


response.write "请不要使用非法字符"
else
%><%
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"' and admin_pass='"&admin_pass&"'"
rs.open sql,conn,3,3
    if rs.eof then
        response.write "<TABLE  width=310 border=0 align='center' cellPadding='5 ' cellSpacing='1' bgColor='#999999'>"
response.write " <TBODY><TR><TD align='middle' bgColor='#fff2d5'><div align='center'><font color='#990000'><strong>系统提示！</strong></font></div></TD>"
  response.write " </TR><TR> "
   response.write  "<TD align='middle' bgColor='#ffffff'><div align='center'><a href='javascript:history.go(-1)'><font color='#666666'>你输入的用户名和密码错误，请重新登陆</font></a></div></TD>"
 response.write  " </TR>  </TBODY></TABLE>"

    else
        session("admin_name")=rs("admin_name")
        response.redirect "manage.asp"
    end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
%>