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

最新推荐文章于 2024-07-04 20:06:38 发布

btbtd

最新推荐文章于 2024-07-04 20:06:38 发布

阅读量4.7k

点赞数

文章标签： vbscript html sql

本文链接：https://blog.csdn.net/btbtd/article/details/768080

版权

MS ASP 同时被 2 个专栏收录

78 篇文章 0 订阅

订阅专栏

MS Access

36 篇文章 0 订阅

订阅专栏

标题: 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
%>