📄 diary_week.asp

📁 北京华信东方网络办公系统

💻 ASP

字号:

<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<html>
	<head>
		<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
			<link href="../../js/hystudio.css" rel="stylesheet" type="text/css">
	<style type="text/css">
	<!--
.DotPad	{background-color:#E6E6E6; cursor: default; border: 1px dotted #ffffff; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1}
	//-->
	</style>
	</head>
	<body bgcolor="#c0c0c0">
	<%
	if request("DiaryYear")<>"" then
	SearchYear=request("DiaryYear")
	else
	SearchYear=DatePart("y",now())
	end if
	if request("DiaryWeek")<>"" then
	SearchWeek=request("DiaryWeek")
	else
	SearchWeek=DatePart("ww",now())
	end if
	if 	request("WhoseDiary")<>"" then
	ObjUser=request("WhoseDiary")
	else
	ObjUser=Session("UserTrueName")
	end if
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	sql=" SELECT n_ID, d_Time, v_Weather, t_DiaryContent, v_UserTrueName, v_State, "&_
        " v_DepartmentName, i_DiaryYear, i_DiaryWeek, v_WorkAddress "&_
		" FROM hxdf_diary_content "&_
		" WHERE i_DiaryWeek= "& SearchWeek &" and i_DiaryYear= "&SearchYear &_
		" and v_UserTrueName like '"& ObjUser &"'"
		rs.Open sql,conn,1,1
		
		%>
	<div align=center style=" FONT-SIZE: 12pt; FONT-FAMILY: 黑体, 宋体; TEXT-DECORATION: underline"><%=ObjUser&" 第 "&SearchWeek&" 周日志"%></div>
	<table class="DotPad" align=center><tr>
	<%if rs.EOF then
	response.Write ("<td>没有日志纪录</td>")
	response.End()
	else
	do while not rs.EOF
	response.Write("<td bgcolor='#e6f2a3' width='120px;' title='"&rs("d_Time")&"' align='center' nowrap>"& WeekDays(rs("d_Time"))&"</td>")
	rs.MoveNext
	loop%>
	</tr><tr>
	<%rs.MoveFirst
	do while not rs.EOF
	response.Write("<td valign='top' width='120px;' class='DotPad'>"& rs("t_DiaryContent")&"</td>")
	rs.MoveNext
	loop
	end if
	%></td>
	</tr></table>
	</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -