VBScript 中 Select Case 的三个典型应用 By Stabx

原创 2006年06月01日 16:12:00
标题:  VBScript 中 Select Case 的三个典型应用 By Stabx

正文:

QUOTE:

VBScript 中 Select Case 的三个典型应用 By Stabx

何时使用 Select Case, 个人认为当判断条件大于三的时候, 应当采用 Select Case, 总比一大堆 if...else 看起来清晰.

1. 判断数字
2. 判断真假
3. 判断字符串

shawl.qiu
2006-6-1

CODE:

3. 判断字符串
<%'判断查询用
         id_=request("id")
     select case id_
         case "tag"
             sql= "select * from v_page_tag_at_of_tg where b.tag like '%"&request("tag")&"%' order by a.articleid desc"
         case "bytagid"
             sql= "select * from v_page_tag_tg_only order by tagid desc"
         case "byarticleid"
             sql= "SELECT * FROM v_page_tag_at_and_tg order by articleid desc"
         case "bytagdate"
             sql= "select * from v_page_tag_tg_only order by tagdate desc"
         case "byarticledate"
             sql= "SELECT * FROM v_page_tag_at_and_tg order by dateandtime desc"
         case "bytaghits"
             sql= "select * from v_page_tag_tg_only order by tagview desc"
         case "byarticlehits"
             sql= "SELECT * FROM v_page_tag_at_and_tg order by hits desc"
         case else
             sql= "select distinct tag from cttag  order by tag asc"
     end select
%>

2. 判断真假
<%'读取数据用
'sample call '''// call schkreadopt(htmloff_,ubboff_,tt_,ct_) //'''
sub schkreadopt(html,ubb,title,content)    
                 f=html&ubb
     select case f
         case true&true                    'UBB HTML 都选择
                 title=title 
                 content=htmlToTextHTMLonUBBoff(content)
         case false&false                 'UBB HTML 都没选择
                 title=htmlToText(title)
                 content=htmlToText(content)
         case false&true                    'UBB选择, HTML 没选择
                 title=htmlToText(title)
                 content=htmlToText(content)
         case true&false                    'UBB 没选择, HTML 选择
                 title=htmlToTextNullUBB(title)
                 content=htmlToTextNullUBB(content)
     end select
end sub
%>

1. 判断数字
<%'添加更新数据用
'sample call '''// call schkaddorupopt(htmloff_,ubboff_,title_,content_) //'''
sub schkaddorupopt(html,ubb,title,content)    
                 f=html&ubb
     select case f
         case 00                            'html 和 ubb 都没选择
                 title=textToHtml(trim(title))
                 content=textToHtml(content)
         case 11                         'html 和 ubb 都选择
                 title=textToHtml1(trim(title))
                 content=textToHtml1(content_)
         case 01                            'HTML 没选择, UBB 选择
                 title_=textToHtmlNullUBB(trim(title)) 
                 content_=textToHtmlNullUBB(content_)
         case 10                            'HTML 选择, UBB 没选择
                 title=textToHtml(trim(title))
                 content=textToHtml(content)
     end select
end sub
%>

SELECT...CASE语句在ASP中的用法

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>SELECT...CASE  dim a,b  a=40  select case a  case 10   respons...
  • jonyguan
  • jonyguan
  • 2007年02月25日 16:32
  • 3625

VBScript 中 Select Case 的三个典型应用 By Stabx

  • btbtd
  • btbtd
  • 2006年06月01日 16:12
  • 3855

vbscript(asp)

  • 2008年09月16日 20:19
  • 468KB
  • 下载

select case when的一些用法以及IF的用法

概述: sql语句中的case语句与高级语言中的switch语句,是标准sql的语法,适用于一个条件判断有多种值的情况下分别执行不同的操作。首先,让我们看一下CASE的语法。在一般的SELECT中,其...
  • zoohouse
  • zoohouse
  • 2010年08月10日 11:07
  • 14475

VB6.0 Select Case语句

注明:百度百科上Select Case语句的最新版本亦是我的作品。 语法 Select Case Case Case .... Case Case Else E...
  • sessboumaru
  • sessboumaru
  • 2015年09月12日 23:02
  • 5319

VBScript 遍历表单元素, 简化数据操作代码

VBScript  遍历表单元素, 简化数据操作代码作用及说明:操作数据时, 大都离不开表单, 更新的时候, 要列出打出一堆 request.* 和数据字段. 采用遍历表单元素可省去一堆不必要的事情....
  • btbtd
  • btbtd
  • 2006年08月02日 21:51
  • 1637

在IE客户端调用windows系统资源

Start Page    CLASSID="clsid:13709620-C279-11CE-A49E-444553540000">    INPUT {width: 200}     functi...
  • 21aspnet
  • 21aspnet
  • 2007年03月21日 00:32
  • 1616

oracle case when在select中的用法

select        (case when o.ordersource = '5' then to_char(o.orderamount * 0.994 - f.costmoney -o.sp...
  • baidu_34880172
  • baidu_34880172
  • 2016年08月12日 11:05
  • 1142

SQL语句 select case when (转)

CASE 可能是 SQL 中被误用最多的关键字之一。虽然你可能以前用过这个关键字来创建字段,但是它还具有更多用法。例如,你可以在 WHERE 子句中使用 CASE。 首先让我们看一下 CASE 的语法...
  • sire168
  • sire168
  • 2010年06月17日 18:17
  • 15583

VBScript详解(一)

◎vbs脚本编程简明教程之一—为什么要使用Vbs? Vbs是一种Windows脚本,它的全称是:Microsoft Visual BasicScript Editon.(微软公司可视化BASIC脚本版...
  • slforeverlove
  • slforeverlove
  • 2015年07月24日 22:24
  • 936
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBScript 中 Select Case 的三个典型应用 By Stabx
举报原因:
原因补充:

(最多只允许输入30个字)