chklogin.asp

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

<!--#include file="conn.asp"-->
<%
dim rs,sql,uid,pwd,expTime

uid=trim(request.form("username"))
pwd=trim(request.form("password"))
expTime=trim(request.form("expTime"))
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("lunjilyb")("username")=uid
Response.Cookies("lunjilyb")("password")=pwd
if expTime<>"" then
			response.cookies("lunjilyb").expires=expTime
end if
response.redirect "admin-index.asp"
else
rs.close
set rs=nothing
response.redirect "login.asp"
end if
else
rs.close
set rs=nothing
response.redirect "login.asp"
end if
%>