谁能帮我解决一个简单的问题！！

chr911 2003-09-30 11:09:57
在页面中增加一张统计表，“未决问题数量统计”，
统计每个人目前，都有多少未决的问题；
有多少4小时未处理的未决问题；
有多少24小时未处理的未决问题；
有多少5天及以上未处理的未决问题；
注：
1. 所有的库表为 szcwgldb@szjz2:cw_apply.applytime0
2. 未处理，是指mz_status="正在处理”或“批转”

这些统计最好用一张表实现，
下面是页面的asp程序
<html>

<head>
<title>财务问题直通车-查询申请</title>
<%@ LANGUAGE=VBScript %>
<%
ls_condition=Request("condition")
SET ls_conn = Server.CreateObject ("ADODB.Connection")
ls_conn.Open "szjz2_szcwgldb" , "sz2000","sz2000"
ls_sql=" SELECT * FROM szcwgldb:cw_apply "
ls_sql= ls_sql+" WHERE mz_status in ('申请','正在处理','列入计划','批转','报批','同意') "
ls_sql= ls_sql+" or mz_status is null or length(mz_status)=0 "
ls_sql= ls_sql+" order by 1 desc "
SET ls_rs=ls_conn.Execute ( ls_sql )
ls_sql=" SELECT count(*) FROM szcwgldb:cw_apply "
ls_sql= ls_sql+" WHERE mz_status in ('申请','正在处理','列入计划','批转','报批','同意') "
ls_sql= ls_sql+" or mz_status is null or length(mz_status)=0 "
ls_sql= ls_sql+" order by 1 desc "
SET ls_rsn=ls_conn.Execute ( ls_sql )
%>
</head>

<body background="cw_back.jpg">
<CENTER>
<p>您查询结果如下: </p>
<p>(共计:<%=ls_rsn(0)%>) <A HREF="http://58.1.32.110">返回首页</A> </p>

<table border=2>
<tr>
<th width="40">编号 </th>
<th width="56">联系人 </th>
<TH width="60">支公司 </TH>
<th width="59">申请时间</th>
<th width="63">申请事项</th>
<TH width="40">状态 </TH>
<TH width="63">审核部门</TH>
<th width="56">审核人 </th>
<TH width="63">审核时间</th>
<TH width="63">审核意见</th>
<TH width="63">审核状态</TH>
<TH width="56">技术员 </th>
<TH width="78">批转技术员</TH>
<TH width="63">处理时间</th>
<TH width="69">处理意见</TH>
</tr>
<% WHILE NOT ls_rs.EOF %>

<tr>
<TD><% ls_txt1="cw_dealinp.asp?bm_key=" %>
<A HREF=<%=ls_txt1%><%=ls_rs("bm_key")%>><%=ls_rs("bm_key")%></A></TD>

<TD><%=ls_rs("applyman") %></TD>
<TD><%=ls_rs("company") %></TD>
<TD>
<% if DateDiff("h",ls_rs("applytime"),now)>=24 then
response.Write "<font color='green'>"&ls_rs("applytime")&"</font>"
else if DateDiff("h",ls_rs("applytime"),now)>=4 then
response.Write "<font color='blue'>"&ls_rs("applytime")&"</font>"
else
response.Write "<font color='black'>"&ls_rs("applytime")&"</font>"
end if
end if
%>

</TD>
<TD><%=ls_rs("applytitle") %></TD>
<TD><%=ls_rs("mz_status") %></TD>
<TD><%=ls_rs("grantcompany")%>
<TD><%=ls_rs("grantman") %></TD>
<TD><%=ls_rs("granttime") %></TD>
<TD><%=ls_rs("granttitle") %></TD>
<TD><%=ls_rs("grantstatus" )%>
<TD><%=ls_rs("dealman") %></TD>
<TD><%=ls_rs("todealman") %></TD>
<TD><%=ls_rs("dealtime") %></TD>
<TD><%=ls_rs("dealtitle") %></TD>
</tr>
<%
ls_rs.MoveNext
WEND
ls_rs.CLOSE
set ls_rs = nothing
ls_Conn.Close
set ls_conn = nothing
%>
</table>
<CENTER>
</body>
</html>

能不能把具体的代码写出来？？？
不好意思我是新手！

谢谢了
...全文
24 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
chr911 2003-09-30
  • 打赏
  • 举报
 回复
没搞懂 rexsp的意思！
rexsp 2003-09-30
  • 打赏
  • 举报
 回复
思路就是where 语句了
datediff 肯定是要用的

DateDiff 函数
返回两个日期之间的时间间隔。

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

DateDiff 函数的语法有以下参数：

参数
interval

必选项。String expression 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。

date1, date2

必选项。日期表达式。用于计算的两个日期。

Firstdayofweek

可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。

Firstweekofyear

可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。

设置
interval 参数可以有以下值：

设置 描述
yyyy 年
q 季度
n 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
m 分钟
s 秒


firstdayofweek 参数可以有以下值：

常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六


firstweekofyear 参数可以有以下值：

常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。


说明
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。

要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。

如果 date1 晚于 date2，则 DateDiff 函数返回负数。

firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。

如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。

在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。

下面的示例利用 DateDiff 函数显示今天与给定日期之间间隔天数:

Function DiffADate(theDate)
DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)
End Function
rexsp 2003-09-30
  • 打赏
  • 举报
 回复
代码乱乱的。
使用ChatGPT解决8个办公自动化问题
通过本课程的学习，您学习到如何使用用ChatGPT解决办公自动化问题，具体内容如下。 一、ChatGPT编写程序 编写VBA...三、数据统计与分析 批量统计文档页数和字数 将多个Excel文件合并为一个文件 四、后记 还有哪些要做
快来看，我让chatGPT帮我写代码了！！！
快来看，我让chatGPT帮我写代码了！！！
C++递归法解决八皇后问题的超详细解答
博主初学C++数据结构与算法（清华大学出版社）第四版，由于程序清单5-2没有详细解答且代码不完整，思考了一个早上才恍然大悟，深感自己阅读代码以及写代码能力的不足，并在此记录，同时也希望也能帮到有需要的人！ 1、什么是八皇后问题？ 在8×8格的国际象棋上摆放八个皇后，使其不能互相攻击，即任意两个皇后都不能处于同一行、同一列或同一斜线上，问有多少种摆法。例如下左图所示： 可见，每个皇后所处...
React：前端配置代理解决跨域问题
跨域是一个老生常谈的问题，不再过多的去解释什么是跨域了，着重记录在React项目中怎么去解决跨域，当然对于前端开发而言，绝大部分的跨域问题，都是通过代理的方式解决的！而代理适用的场景是：在生产环境中不发生跨域，但在开发环境中会发生跨域！因此，我们只需要在开发环境中使用前端代理解决跨域即可，又称为开发代理！ 在React中解决跨域，毫无疑问，也是使用开发代理解决！目录产生跨域问题解决跨域问题：简单方式：复杂方式：举例，我们需要在React项目中使用axios，请求这个网址拿数据 页面点击获取数据，在
问题以及发现问题和解决问题

发现问题比解决问题更重要，如果发现了问题的所在，解决它仅仅是一个时间的问题，可能有些问题永远解决不了，但是我们最终知道它永远解决不了也算是解决了问题。问题的实质其实是一种反差，也就是期望和实际的反差，这是好事，如果每件事都和我们期望的一致，那么我们的脑子里面就不会有问题了，思维就僵化了。解决问题的本质就是缩小这种反差，其实是两种方式，第一种方式是结果向期望靠拢，第二种方式是期望向结果靠拢，还有一种是同时向对方靠拢。将我不熟悉的东西往我们熟悉的东西上靠拢，这既是对之前经验积累的一种利用，同时又是一
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章