📄 wmt.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%
'************************************************************************************************
' 文件名: wmt.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 蔡晓燕
' 　日　期 : 2003-02-17
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 提供打印的会议表（按照信息世界分公司提供表格制定）
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->
<!-- #include file="../include/emp.inc" -->
<!-- #include file="../common/commonpage.inc" -->
<!-- #include file="wmt.inc" -->

<%
'' 检查已经登录并在线
call CheckSecurity()


'********************************************************************************************************
' 服务器端代码
dim pFrom_time		: pFrom_time = GetParam("from_time")
dim pTo_time		: pTo_time = GetParam("to_time")


if CDate(pFrom_time) > CDate(pTo_time) then
	response.write "日期选择有问题，开始日期必须小于等于结束日期！"
	response.end
end if
if IsEmpty(pTo_time)or IsEmpty(pFrom_time) then
	Response.Clear
	Server.Transfer("../common/error.asp")
	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="../common/common.css" type="text/css">
<style type="text/css">
.tdValue	 {color:green;}
td {font-family:仿宋_GB2312,仿宋,Courier,Arial,Helvetica,sans-serif;font-size:11pt}
</style>
<style type="text/css" media=screen>.noprint {visibility:visible;}</style>
<style type="text/css" media=print>.noprint {visibility:hidden;}</style>

<OBJECT id=closes classid="CLSID:ADB880A6-D8FF-11CF-9377-00AA003B7A11"><param name="Command" value="close"></OBJECT> 
<OBJECT id=WB classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 width=0></OBJECT>

<script language="JavaScript">
	function doPrintSetup()		{ WB.ExecWB(8,1) }			// 打印设置
	function doPrintPreview()	{ WB.ExecWB(7,1) }			// 打印预览
	function doPrint()				{ WB.ExecWB(6,1) }			// 打印
	function closethis()				{ closes.click(); return; }	// 关闭窗口
</script>

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<br>

<%
'' 本页仅用于打印的时候不显示其它内容
if IsEmpty(pFrom_time) then
else
'	Response.Write "<table border=0 cellspacing=0 cellpadding=0 width=700 align=center style=""border:2px solid outset""><tr><td>" & vbLF
end if

'********************************************************************************************************
' 主体从这里开始
'-------------------------------------------------------------------------------------------------------------------------------------------------
Response.Write TableMeeting


'-------------------------------------------------------------------------------------------------------------------------------------------------
' 主体到这里结束
'********************************************************************************************************
'' 本页仅用于打印的时候不显示其它内容
if IsEmpty(pFrom_time) then
else
	Response.Write "</td></tr></table>"

	Response.Write "<table border=0 align=center class=noprint align=center height=40>" & vbLF & _
		"<tr><td colspan=7>" & vbLF & _
				"<img border=0 src=""../images/button/preview.gif"" style=""cursor:hand"" OnClick=""JavaScript:doPrintPreview();"">" & vbLF & _
				"&nbsp;&nbsp;" & vbLF & _
				"<img border=0 src=""../images/button/print.gif"" style=""cursor:hand"" OnClick=""JavaScript:doPrint();"">" & vbLF & _
				"&nbsp;&nbsp;" & vbLF & _
				"<img border=0 src=""../images/button/close.gif"" style=""cursor:hand"" OnClick=""JavaScript:closes.Click();"">" & vbLF & _
		"</td></tr>" & vbLF & _
		"</table>"	
end if
%>

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

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