📄 leaveinfor.asp

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


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

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

<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()
	''window.returnValue = "0"
	''window.close()
End Sub

Sub btnLeave_OnClick()
	Dim sLeaveInfor : sLeaveInfor = Trim(document.all.formLeave.leaveinfor.value)
	sLeaveInfor = left(sLeaveInfor, 250)		' 只取留言的前250个字
	if sLeaveInfor = "" then
		if window.confirm("您确实不想留言?") then
			'sLeaveInfor = "(无)"
			sLeaveInfor = ""
		else
			exit sub
		end if
	end if
	''document.all.formLeave.leaveinfor.value = "1" & sLeaveInfor
	document.all.formLeave.leaveaction.value = "1"
	document.all.formLeave.submit()
	''window.returnValue = "1" & sLeaveInfor
	''window.close()
End Sub

Sub btnLogout_OnClick()
	Dim sLeaveInfor : sLeaveInfor = Trim(document.all.formLeave.leaveinfor.value)
	sLeaveInfor = left(sLeaveInfor, 250)		' 只取留言的前250个字
	''if sLeaveInfor = "" then sLeaveInfor = "(无)"
	''document.all.formLeave.leaveinfor.value = "2" & sLeaveInfor
	document.all.formLeave.leaveaction.value = "2"
	document.all.formLeave.submit()
	''window.returnValue = "2" & sLeaveInfor
	''window.close()
End Sub
</script>

<body background="../images/bg/bg0.jpg" scroll="no" LeftMargin=0 TopMargin=0>
<form name="formLeave" action="LeaveAction.asp" method="post">
<input type="hidden" name="leaveaction" value="">
<table cellspacing=0 cellpadding=0 border=0 width="380" align=center background="../images/bg/btmtx.gif">
<tr height="25px">
		<td colspan=3 style="font-family:Arial, Helvetica, sans-serif;color:white">&nbsp;请输入您的留言(不超过250个字):</td>
<tr>
		<td colspan=3><textarea name="leaveinfor" rows=8 cols=72 wrap="VIRTUAL" bgcolor="#0000FF" style="border:solid 1px gray;font-family:Arial, Helvetica, sans-serif;font-size:9pt;color:black" title="请在这里输入您的留言，留言不超过250个字"></textarea></td>
<tr height="30px">
		<td align=right><input title="暂时离开" type="button" value="暂时离开" name="btnLeave" style="border:solid 1px green;font-size:9pt;"></td>
		<td align=center><input title="退出系统后，您需要重新登录才能再次进入系统！" type="button" value="退出登录" name="btnLogout" style="border:solid 1px green;font-size:9pt;"></td>
		<td align=left><input title="取消" type="button" value=" 取 消 " name="btnCancel" style="border:solid 1px green;font-size:9pt"></td></tr>
<tr height="10px"><td>&nbsp;</td></tr>
<tr height="45px">
		<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>
<tr height="45px"><td colspan=3></td></tr>
</table>

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

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