www.gusucode.com > QCMS小型网站管理系统 1.4 SP1 UTF-8 ACCESS源码程序 > admin/isadmin.asp
<% '取得用户名密码 admin_name=trim(session("admin_name")) admin_password=trim(session("admin_password")) set rs=server.CreateObject("adodb.recordset") set rs.activeconnection=conn rs.cursortype=3 sql="select * from admin where admin_name='"&admin_name&"' and admin_password='"&admin_password&"'" rs.open sql if rs.eof then session("admin_name")="" session("admin_pwd")="" %> <SCRIPT LANGUAGE="javascript"> window.alert('请登陆后台!'); </SCRIPT> <% response.Redirect("err.asp") end if %>