📄 diary_list_self.asp
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<html>
<head>
<title>工作日志列表</title>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
</head>
<style type="text/css">
<!--
.DotPad {background-color:#E6E6E6; cursor: default; border: 1px dotted #E6E6E6; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1}
//--></style>
<link href="../mstyle.css" rel="stylesheet" type="text/css">
<body bgcolor="#f1f1f1"><div align="center"><IMG src="images/MO.gif"><b> <font size="+1" face="楷体_GB2312, 宋体, 隶书, 黑体">工
作 日 志 列 表</font> </b><IMG src="images/MO.gif"></div>
<%
function WeekDayNum(thedate)
dim x
x=split("日,一,二,三,四,五,六",",")
WeekDayNum=x(WeekDay(thedate)-1)
end function
if Request("page")="" then
page=1
else
page=CINT(Request("page"))
end if
if request("WhoseDiary")="" then
WhoseDiary=Session("UserTrueName")
else
WhoseDiary=request("WhoseDiary")
end if
sql=" SELECT i_DiaryYear, i_DiaryWeek, d_Time, v_workaddress, v_DepartmentName, t_DiaryContent, "&_
" v_State, isnull(m_fee,0) as m_fee "&_
" FROM hxdf_diary_content "&_
" WHERE (v_UserTrueName like '"& WhoseDiary &"') "&_
" ORDER BY d_Time DESC, i_DiaryWeek DESC"
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then'如果工作日志为空
response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>您还没有任何日志信息</li>")
response.End()
else
rs.pagesize=31
rs.Absolutepage=page
%>
<table width="100%" border="1" bordercolor="#CCCCFF" bgcolor="#CCCCFF" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr bgcolor="#CCCCFF">
<td width="25" height="20" align="center" nowrap>周</td>
<!-- <td width="4%" align="center" nowrap>年</td>//-->
<td width="25" align="center" nowrap>星期</td>
<td width="77" align="center" nowrap>日期</td>
<td width="28" align="center" nowrap>地点</td>
<td width="40" align="center" nowrap>部门</td>
<td width="500" align="center">简要内容</td>
<td width="25" align="center" nowrap>费用</td>
</tr>
<% for i=1 to rs.PageSize %>
<tr>
<td align="right" valign="top" class="DotPad" style="color: #000000 ;cursor: hand;" onclick="self.location.href='diary_week.asp?DiaryYear=<%=rs("i_DiaryYear")%>&DiaryWeek=<%=rs("i_DiaryWeek")%>';"><%= rs("i_DiaryWeek") %></td>
<!-- <td align="right" valign="top" class="DotPad"><%= rs("i_DiaryYear") %></td>//-->
<td align="right" valign="top" bgcolor="#99FFFF" class="DotPad"><%=WeekDayNum(rs("d_Time"))%></td>
<td align="right" valign="top" nowrap bgcolor="#99FFFF" class="DotPad" title="查看<%= rs("d_Time") %>日志内容" style="cursor: hand" onClick="self.location.href='diary_read_self.asp?TheDate=<%= rs("d_Time") %>';"><%= rs("d_Time") %></td>
<td align="center" valign="top" nowrap bgcolor="#99FFFF" class="DotPad"><%= rs("v_workAddress") %></td>
<td align="center" valign="top" nowrap bgcolor="#99FFFF" class="DotPad"><%= rs("v_DepartmentName") %></td>
<td bgcolor="#99FFFF" class="DotPad"><%= left(rs("t_DiaryContent"),200) %></td>
<td width="25" align="right" valign="top" nowrap bgcolor="#99FFFF" class="DotPad">￥<%= rs("m_fee") %></td>
</tr>
<% rs.MoveNext
if rs.eof then exit for
next%>
<tr align="right" bgcolor="#CCCCFF">
<td colspan="7">共有<%=rs.RecordCount%>个
<%if page>1 then %>
<a href="diary_list_self.asp?page=1">首页</a>|
<a href="diary_list_self.asp?page=<%=page-1%>">上一页</a>|
<% end if %>
<% if page<rs.pagecount then %>
<a href="diary_list_self.asp?page=<%=page+1%>">下一页</a>|
<a href="diary_list_self.asp?page=<%=rs.pagecount%>">尾页</a>|
<% end if %>
页次：<%=page&"/"&rs.pagecount%>页 <%=rs.pagesize%>条/页 转到：
<select name="page" onchange="">
<%for i=1 to rs.pagecount
if page<>i then
response.Write ("<option value='"&i&"'>"&i&"</option>")
else
response.Write ("<option value='"&i&"' selected>"&i&"</option>")
end if
next
%>
</select>
</td>
</tr>
</table>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -