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
%>

ASP中怎么实现SQL数据库备份、恢复!

选择自 hanghwp 的 Blog 1、ASP中怎么实现SQL数据库备份、恢复!答:asp在线备份sql server数据库:1、备份SQL="backup database 数据库名 to dis...

SQL SERVER重置自动编号列(标识列)

两种方法: 一种是用Truncate TRUNCATE TABLE name 可以删除表内所有值并重置标识值   二是用DBCC CHECKIDENT DBCC C...
  • abbie
  • abbie
  • 2016年07月18日 14:10
  • 773

大头锻炼日记1 -- vbscript实现典型线性表

       网上有人说新时代的男性要两个头都要抓,两个头都要硬。好吧,不撸了。坚持去游泳,顺便记录每天锻炼大头的点滴。 复习一下数据结构,OO思想。两年没有写过脚本了,抛开集合和字典对象,用...

oracle查询语句中select from where group by having order by的解释与应用

查询中用到的关键词主要包含六个,并且他们的顺序依次为 select--from--where--group by--having--order by 其中select和from是必须的,其他关键词...

Data Mining with R learning by case studies

  • 2014年10月19日 14:36
  • 1.69MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBScript 中 Select Case 的三个典型应用 By Stabx
举报原因:
原因补充:

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