关闭

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

3610人阅读 评论(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
%>

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场