📄 diary_read_self.asp

📁 北京华信东方网络办公系统
💻 ASP
字号:
<%@ Language=VBScript %>
<% If request("TheDate")="" Then 
TheDate = FormatDateTime(now(),2)
else
TheDate=request("TheDate")
end if
if request("WhoseDiary")="" then
WhoseDiary=Session("UserTrueName")
else
WhoseDiary=request("WhoseDiary")
end if
%>
<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">
		<!--#include file= "../dbase.asp"-->

  <style type="text/css"> 
		<!--
		 .text {font-family: 宋体, Arial Narrow, Times New Roman; font-size: 9pt; 
			BACKGROUND-IMAGE: url(images/Txt_bg.jpg); border-width: 1;border-color: #444444; 
			OVERFLOW: auto; WIDTH: 450px; 
			LINE-HEIGHT: 1.25; HEIGHT: 300; px;}
	-->
		</style></head>
  <body bgcolor="#f1f1f1"> 
  <% sql="SELECT n_ID, d_Time, v_Weather, t_DiaryContent, v_UserTrueName, v_State, "&_
		"      v_DepartmentName, i_DiaryWeek, v_WorkAddress, isnull(m_fee,0) as m_fee "&_
		"		FROM hxdf_diary_content "&_
		"		WHERE (d_Time = CONVERT(DATETIME, '"& TheDate &"', 102)) AND  "&_
		"      (v_UserTrueName = '"& WhoseDiary &"')"
		dim rs
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,1
		if rs.eof then
		response.Write("错误提示：")
		response.Write("<li>不能被接受的日期")
		response.Write("<li>用户不存在")
		response.Write("<li>没有该日志的任何信息")
		response.End()
		else%>
  <div align="center"><strong><font size="+1" face="楷体_GB2312, 宋体, 隶书, 黑体"><%if WhoseDiary<>Session("UserTrueName") then response.Write(WhoseDiary)%>
   工 作 日 志 </font></strong>第<%=DatePart("ww",TheDate)%>周	
</div>
<table width="417" border="1" cellspacing="0" bordercolor="#111111"  align="center" cellpadding="0">
  <tr> 
    <td width="33%" height="29" align="center" bgcolor="#FF99CC"><%=year(TheDate)&"年"& month(TheDate)&"月"&Day(TheDate)&"日"%> 
    </td>
    <td width="33%" align="center" bgcolor="#FF99CC"><%=WeekDays(TheDate)%></td>
    <td width="34%" align="center" bgcolor="#FF99CC">天气：<%=rs("v_Weather")%></td>
  </tr>
  <tr> 
    <Td colspan="2" align="justify"><img src="images/brand.gif" width="21" height="23">关键字：<%= rs("v_WorkAddress") %></Td>
    <Td align="center" bgcolor="FF99CC">金额：￥<%= rs("m_fee") %></Td>
  </tr>
  <tr> 
    <td colspan="3" align="justify" valign="top" class="text"><%=rs("t_DiaryContent")%></td>
  </tr>
  <tr> 
    <td colspan="3" align="center"> 
      <%if DatePart("ww",TheDate) = DatePart("ww",now) and WhoseDiary=Session("UserTrueName") then%>
      <input name="edit" value=" 编 辑 " type="button" onClick="self.location.href='diary_modify_self.asp?TheDate=<%=TheDate%>'"> 
      <% end if %>
      <input name="edit" value=" 返 回 " type="button" onClick="history.go(-1);"></td>
  </tr>
</table>
<%end if%>
</body>
</html>
⌨️ 快捷键说明

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