chkmanage.asp

来自「功能完备的留言板 公告管理 用户管理 留言管理 分页 功能的实现 Access数」· ASP 代码 · 共 24 行

<%
dim membername
dim memberword
dim name
dim word
dim csql,crs
membername=request.cookies("mycoolest")("username")
memberword=request.cookies("mycoolest")("password")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")
set crs=server.createobject("adodb.recordset")
csql="select * from admin"
crs.open csql,conn,1,1
if crs("username")<>membername then
response.redirect "login.asp"
else
if crs("password")<>memberword then
response.redirect "login.asp"
end if
end if
crs.close
set crs=nothing
%>