admin_chklogin.asp

一个美化的论坛程序

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->  
<%
admin=Checkin(trim(Request.form("admin")))
password=Checkin(trim(Request.form("password")))
if admin="" or password="" then Response.Redirect "admin_login.asp"
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin='"&admin&"'and password='"&password&"'"
rs.open sql,conn,1,1
if not rs.EOF then
	Session("IsAdmin")="club"
	session.timeout=400
	Response.Redirect "admin_home.asp"
else
	errmsg=errmsg+"<br><li>请输入正确的管理员名字和密码！</li>"
	call error()
	Response.End 
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>