chkmanage.asp

一个不完整的硬件报价管理系统

<%
dim membername
dim memberword
dim name
dim word
dim csql,crs
membername=request.cookies("lunjilyb")("username")
memberword=request.cookies("lunjilyb")("password")
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
%>