check.asp

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

<%
Response.Expires=0
pwd=Session("action_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
	Response.Write("action=pwderror")
	Response.End
End If
checkpwd.Close()
%>