chkadmin.asp

来自「Flash电子相册 v1.2 Build 1108完整版本下载」· ASP 代码 · 共 40 行

<!--#include file=conn.asp-->
<%
	dim sql
	dim rs
	dim adminname
	dim passwd
	Session("webeditbase")="/upload/upfile/"
	adminname=replace(trim(request("adminname")),"'","")
	passwd=replace(trim(Request("passwd")),"'","")
          if adminname="" then
        Response.write "<script>alert('你还没有输入用户名!!!');history.back();</script>"
        Response.end
          end if
          if passwd="" then
        Response.write "<script>alert('你还没有输入密码!!!');history.back();</script>"
        Response.end
          end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from admin where passwd='"&passwd&"' and adminname='"&adminname&"'"
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 		if passwd=rs("passwd") then
			session("admin")=rs("adminname")
			session("flag")=rs("aflag")
			Response.Redirect "adminmain.asp"
 		else
           Response.write "<script>alert('用户名或密码错误!!!');history.back();</script>"
 		end if
	else
           Response.write "<script>alert('用户名或密码错误!!!');history.back();</script>"
	end if

	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>