FindAccount.asp 书生图片管理Asp源码程序 - ASP源码程序

www.gusucode.com > 书生图片管理Asp源码程序 > code/FindAccount.asp

     <!--#include file=articleconn.asp-->
<%
dim sql
dim rs
dim seekerrs
dim founduser
dim name
dim companyid
dim pwd
dim errmsg
dim founderr
founderr=false
FoundUser=false
	name=trim(request("name"))
	pwd=cstr(Request("pwd"))

set rs=server.createobject("adodb.recordset")
sql="select * from password where id=1"
rs.open sql,conn,1,1
 if not(rs.bof and rs.eof) then
 if pwd=rs("pwd") and name=rs("name") then
   response.cookies("name")=true
   response.redirect "manage.asp"
 else
           response.write "<link rel='stylesheet' type='text/css' href='css/style.css'>"
      response.write "<body bgcolor='#ffffff'>" 
      response.write "您输入名字和密码不对，请输入正确的名字和密码，方可进入管理页面"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>