程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> ASP中輕松實現變量名-值變換

ASP中輕松實現變量名-值變換

編輯:關於ASP編程

    用過PHP的朋友都知道,PHP中變量的使用靈活方便,特別是能在字符串中方便實現變量名-值變換,使得整個PHP代碼更顯簡潔優美。比如一條更新數據庫的SQL語句只需寫成:"update users set password='$password', group=$group, name='$username' where account='$account'",其中的$password、$group、$username、$account便會被實際的變量值替換,而在ASP中要實現相同的功能必須寫成:"update useres set password='" & password & "',group=" & group & ",name='" & username & "' where account='" & account & "'",顯得冗長難看。如果這是一條insert語言而且插入的字段內容很多的話,那麼查看字段與values的對應關系將會是一個痛苦的過程。

      現在讓我們看看如何在ASP實現類似的變量名-值變換。

      思路

      首先,必須有一個方法把需要用實際值替換的變量名與普通的文本區分出來;然後,把所有找到的變量名用它所代表的實際值替換掉。

      對於第一點可以通過正則表達式查找得到,這裡我們不采用PHP的變量表示方式,而采用大托號{}作為變量名的邊界符,字符串表示變為password='{password}',group={group}。

      第二點是變量名-值變換的關鍵,通過變量名得到變量值。查看ASP資料沒有找到直接實現的方法,但有一個函數Execute引起我們的注意,從資料說明中可知Execute可以執行傳入的有效的字符串作為代碼執行同,這樣只要編寫一個小函數就可以實現我們的要示。核心代碼為:

    function GetVar(var_name)
        Execute("function get_value(): get_value=" & var_name  & ": end function")
        getvar=get_value()
    end function

      實現

      完整代碼:

    function GetVar(var_name)
        Execute("function get_value(): get_value=" & var_name  & ": end function")
        getvar=get_value()
    end function

    function Txt2Value(str, level)
        dim regEx, Matches, Result
        Set regEx = new RegExp
        select case level
            case 0 regEx.Pattern = "{(w+)}"              '變量名有效
            case 1 regEx.Pattern = "{([w+-*/<>=]+)}" '變量名及運算符有效
            'case 2 regEx.Pattern = "{([ws]+)}"   '除換行符外的所有字符有效
            case else exit function
        end select
        'regEx.Pattern = "{(w+)}"
        regEx.IgnoreCase = true
        regEx.Global = true
        Set Matches = regEx.Execute(str)
        Result = str
        'response.write Matches.Count
        For Each Match In Matches
            Result = Replace(Result, Match.Value, GetVar(Match.SubMatches(0)))
        Next
        set Matches = nothing
        set regEx = nothing
        Txt2Value = Result
    end function

    function Var2Value(var_name)
        Var2Value = Txt2Value(var_name, 0)
    end Function

      調用方法:

    Var2Value("update users set password='{password}', group={group}, name='{username}' where account='{account}'"

      Var2Value調用了Txt2Value,Txt2Value找出所有變量名交調用GetVar得到變量值並進行替換。實際上直接調用Txt2Value(str,1)還允許對字符串值進行四則運算
     

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved