login.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 22 行

<!--#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
%>