在记录集中加入判断使之灵活

邯郸家具美容

邯郸家具美容

2016-01-29 19:53

在记录集中加入判断使之灵活,在记录集中加入判断使之灵活

       在应用中,有时候会要求按照日期来排列数据,并且还会需要简单的按日期来检索数据,比如在页面上加入一个跳转菜单,包含数据的日期列表,然后选择日期后传递日期参数跳转。这种做法在没有日期的时候应该显示哪一天的数据呢?
通常会用“DATE()”作为没有参数情况下的选择,就是显示当天的数据,但如果当天没有数据呢?
“DATE()-1”?似乎不能解决问题。
先看看Dreamweaver MX 自动生成记录集的SQL代码:

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)

SCSJ.Source = "SELECT * FROM dbo.MCIS_生产数据 WHERE 日期 = '" + Replace(SCSJ__MMColParam, "'", "''") + "' ORDER BY 日期 DESC"

在日期字段的过滤上使用了“=”,大家都知道如果是文本类型的话可以使用“LIKE”操作符配合“%”来获得所有记录,如果可以做到,那么在没有日期参数传递的情况下就显示所有的记录倒是不错的选择。
这里的实现方法就是修改Dreamweaver MX 自动生成的记录集代码,加入判断,当URL参数不存在的时候,记录集SQL过滤使用“LIKE”操作符获得所有记录,否则使用“=”操作符获得属于参数日期的记录。

下面是代码,应该很好理解的。
<%
Dim SCSJ__MMColParam
SCSJ__MMColParam = "%"
If (Request.QueryString("MCISDATE") < "") Then
SCSJ__MMColParam = Request.QueryString("MCISDATE")
End If
%
<%
Dim SCSJ
Dim SCSJ_numRows

Set SCSJ = Server.CreateObject("ADODB.Recordset")
SCSJ.ActiveConnection = MM_jbcjsql_STRING
If (Request.QueryString("MCISDATE") < "") Then
SCSJ.Source = "SELECT * FROM dbo.MCIS_生产数据 WHERE 日期 = '" + Replace(SCSJ__MMColParam, "'", "''") + "' ORDER BY 日期 DESC"
ELSE
SCSJ.Source = "SELECT * FROM dbo.MCIS_生产数据 WHERE 日期 LIKE '" + Replace(SCSJ__MMColParam, "'", "''") + "' ORDER BY 日期 DESC"
END IF
SCSJ.CursorType = 0
SCSJ.CursorLocation = 2
SCSJ.LockType = 1
SCSJ.Open()

SCSJ_numRows = 0
%

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/asp/)
展开更多 50%)
分享

猜你喜欢

在记录集中加入判断使之灵活

ASP
在记录集中加入判断使之灵活

在PPT中加入视频

电脑入门
在PPT中加入视频

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

街头摄影到底在记录什么?

摄影 人像摄影 静物摄影
街头摄影到底在记录什么?

JavaScript教程:网页中加入JavaScript

Web开发
JavaScript教程:网页中加入JavaScript

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

记录集内随机取记录的代码

Web开发
记录集内随机取记录的代码

在Word文件中加入声音

办公软件
在Word文件中加入声音

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Linux-Mandrake 8.0最新 Beta 1版本

Linux-Mandrake 8.0最新 Beta 1版本

Linux X Window应用问答(上)

Linux X Window应用问答(上)
下拉加载更多内容 ↓