login.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!--#include file="Connections.asp" -->
<%
Response.Expires=0
pwd=Request("pwd")
set checkpwd = Server.CreateObject("ADODB.Recordset")
checkpwd.ActiveConnection = datalink
checkpwd.Source = "SELECT * FROM menu"
checkpwd.Open()
If pwd=checkpwd("menu8") And Not checkpwd.Eof Then
	Session("action_pwd")=pwd
	Response.Write("&action=complete")
	Response.Write("&login=admin")
Else
	Response.Write("&action=pwderror")
End If
checkpwd.Close()

If Request("action")="logout" Then
	Session.Abandon
	Response.Write("&action=logout")
End If
%>