checklogin.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<!-- #include file="../inc/const.asp" -->
<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../inc/function.asp" -->
<!-- #include file="../inc/vote_function.asp" -->
<!-- #include file="../inc/config.asp" -->
<!-- #include file="../inc/md5.asp" -->
<%dim adminname,adminpassword
adminname=FormatText(request.form("adminname"))
adminpassword=FormatText(request.form("adminpassword"))
if adminname="" or adminpassword="" then
	call showerror("用户名和密码不能为空")
end if
adminpassword=md5(adminpassword)
set rs=conn.execute("select adminname,adminpassword,admin from vote_admin where adminname='"&adminname&"' and adminpassword='"&adminpassword&"' and userid='"&userid&"'")
if rs.eof then
	rs.close
	set rs=nothing
	call connclose
	call showerror("用户名或密码不存在")
else
	session("name")=adminname
	session("admin")=rs(2)
	rs.close
	set rs=nothing
	call connclose
	response.write "<script>top.location.href='../main.html';</script>"
end if


%>