📄 forgetpwd.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: forgetpwd.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 蔡晓燕
' 　日　期 : 2002-08-06
' 修改历史 :
'   ****年**月**日 ****** 修改内容:******************************************************************
' 功能描述 : 为用户提供找回密码的服务
' 　版　本 :
'************************************************************************************************
option explicit
'Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>


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

<%
'****************************************************************************
' 这里先取到用户登录名、答案
'****************************************************************************
Dim sAccountid, sAnswer
Dim iFlag
sAccountid = GetParam("accountid")
sAnswer = GetParam("answer")
iFlag = GetParam("flag")
'iFlag=0表示第一次打开本页面，显示输入用户名的表单，frmInputAccountid 
'iFlag=1表示第一次请求本页面，如果输入的accountid存在，则显示输入答案的表单，frmInputAnswer
'iFlag=2表示第二次请求本页面，如果输入的answer正确，则显示用户的登录密码，frmAnswer


dim conn:set conn=DBConnection
%>

<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 btnOk1_OnClick()
	Dim sAccountid : sAccountid = Trim(document.all.frmInputAccountid.accountid.value)
	if sAccountid = "" then
		document.all.frmInputAccountid.accountid.focus()
		msgbox "请输入用户名！"
		exit sub
	end if
	frmInputAccountid.submit()
End Sub

Sub btnClear1_OnClick()
	document.all.frmInputAccountid.reset()
	document.all.frmInputAccountid.accountid.focus()
End Sub

Sub btnOk2_OnClick()
	Dim sAnswer : sAnswer = Trim(document.all.frmInputAnswer.answer.value)
	if sAnswer = "" then
		document.all.frmInputAnswer.answer.focus()
		msgbox "请输入答案！"
		exit sub
	end if
	frmInputAnswer.submit()
End Sub

Sub btnClear2_OnClick()
	document.all.frmInputAnswer.reset()
	document.all.frmInputAnswer.answer.focus()
End Sub

Sub btnCancel_OnClick()
	window.close()
End Sub

</script>

<body background="../images/bg/bg0.jpg" scroll="no" LeftMargin=0 TopMargin=0>
<%
'
	if iFlag=0 then response.write frmInputAccountid()
	if iFlag=1 then response.write frmInputAnswer()
	if iFlag=2 then response.write frmAnswer()


Disconnect(conn)
%>

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

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