📄 backinfor.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: BackInfor.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 周秋舫
' 　日　期 : 2002-05-13
' 修改历史 :
'   ****年**月**日 ****** 修改内容:******************************************************************
' 功能描述 : 提供用户输入密码，比较密码是否相同
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #include file="../include/common.inc" -->

<%
'****************************************************************************
' 本页面必须是由其它页面打开的，因此如果直接在地址栏输入地址，就跳转到出错页面
'****************************************************************************
%>
<script language="javascript">
<!--
if ( typeof(window.opener) == "undefined" )
{
	window.location.href = "../include/error.asp"
}
//-->
//window.resizeTo(360,152);
//window.moveTo(300,300);
</script>

<%
'****************************************************************************
' 如果用户尚未登录，或已经登录但Session或Cookie过期导致用户信息失效，则其opener跳转到登录页面
' 这里已经排除了opener为undefined的情况，不需要再对window.opener进行判断了
'****************************************************************************
If Not IsLogin then
	Response.Clear()
	Response.Write( _
		"<script language=""javascript"">" & vbLF & _
		"<!--" & vbLF & _
		"	window.opener.location.href=""../include/home.asp"";" & vbLF & _
		"	window.close();" & vbLF & _
		"//-->" & vbLF & _
		"</script>")
	Response.end
End if


'****************************************************************************
' 这里先取到用户登录名和密码，用户输入密码可以和这个密码进行比较，如果相同，则表示密码正确
'****************************************************************************
Dim sUserId, sPassword
sUserId = GetUserId
dim conn:set conn=DBConnection
sPassword = DLookUp(conn, "select password from T_Account where account_id=" & ToSQL(sUserId,"Text") & "")
Disconnect(conn)
%>

<html>
<head>
<title>上海信息大楼Shanghai Information Tower</title>
<meta http-equiv="Content-Type"	content="text/html;charset=gb2312">
<link rel="stylesheet" href="../include/common.css" type="text/css">
</head>

<script language="VBScript">
Sub btnCancel_OnClick()
	window.close()
End Sub

Sub btnClear_OnClick()
	document.all.formBack.reset()
	document.all.formBack.password.focus()
End Sub

Sub btnBack_OnClick()
	Dim sPassword : sPassword = Trim(document.all.formBack.password.value)
	if sPassword = "" then
		document.all.formBack.password.focus()
		msgbox "请输入用户密码！"
		exit sub
	end if
	if sPassword <> document.all.formBack.password2.value then
		document.all.formBack.password.focus()
		document.all.formBack.password.select()
		msgbox "对不起，您输入的密码不正确，请再试一次！"
		exit sub
	end if
	window.opener.document.all.leave_action.innerText = "我要离开"
	window.opener.document.all.liuyan.innerHTML = "<a href=""../include/main.asp"" style=""color:white""><img border=0 src=""../images/bg/ar-w.gif"" width=""8"" height=""8"">回到首页</a>"
	formBack.submit
'	window.returnValue = "1"
'	window.close()
End Sub
</script>

<body background="../images/bg/bg0.jpg" scroll="no" LeftMargin=0 TopMargin=0>
<form name="formBack" action="BackAction.asp" method="post">
<table cellspacing=0 cellpadding=0 border=0 width="350" align=center background="../images/bg/btmtx.gif" style="table-layout:fixed">
<tr height="10px"><td>&nbsp;</td></tr>
<tr height="25px">
		<td colspan=3 style="font-family:Arial, Helvetica, sans-serif;color:black" nowrap>
		&nbsp;&nbsp;请输入用户密码进行解锁:&nbsp;
		<input type="password" name="password" value="" style="border:solid 1px gray;font-size:9pt" size=30 maxlength=20>
		<input type="hidden" name="password2" value="<%=sPassword%>"></td>
<tr height="45px">
		<td colspan=3 align=center>
			<img border=0 style="cursor:hand"src="../images/button/ok.gif" name="btnBack">
			&nbsp;&nbsp;&nbsp;
			<img border=0 style="cursor:hand" src="../images/button/clear.gif" name="btnClear">
			&nbsp;&nbsp;&nbsp;
			<img border=0 style="cursor:hand" src="../images/button/cancel.gif" name="btnCancel">
		</td>
<tr height="40px">
		<td colspan=3 style="font-family:Arial, Helvetica, sans-serif;color:white" align=center>上海市电信公司信息世界分公司<br>&nbsp;&copy;All rights reserved by Shanghai Telecommunication company information world Branch</td></tr>

</table>

	  
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -