chklogin.asp

功能完备的留言板 公告管理 用户管理 留言管理 分页 功能的实现 Access数据库

<%
dim rs,sql,uid,pwd

uid=trim(request.form("username"))
pwd=trim(request.form("password"))

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&uid&"'"
rs.open sql,conn,1,1

if not rs.eof then
	if rs("password")=pwd then	
		rs.close
		set rs=nothing
		Response.Cookies("mycoolest")("username")=uid
		Response.Cookies("mycoolest")("password")=pwd
		response.redirect "admin.asp"
	else
		rs.close
		set rs=nothing
		response.redirect "admin.asp"
	end if
else
	rs.close
	set rs=nothing
	response.write("zzzzzzzzzz")
	'response.redirect "login.asp"
end if
%>