[控件學習-3]ComponentArt 的腳本注冊機制學習

ComponentArt 的腳本注冊判斷還是很全面的,判斷了各種情況,在控件開發學習中還是很值得借鑒的

一樣畫葫蘆練手做了幾個簡單的控件:

1.STextBox  =>增加幾個屬性,隻是為了拼Sql的時候字元轉義友善些(TrimedText,SqlText,SqlTrimedText)

2.SButton = > 增加幾個小屬性,象confirm,waitmessage...

3.SImgButton = > 增加滑鼠滑過,離開,按下的圖檔設定

4.SXpButton = > 按模闆自動生成三組效果圖檔(滑鼠滑過,離開,按下)

5.SGroupBox =>GroupBox 隻有Caption屬性,不過設計時寫的不好(直接使用了系統的Designer).不直覺,不過我自己夠用了,改天有空再學習修改Designer

注冊代碼源代碼:

  1

  2

      /**//// <summary>

  3

      /// 繪制全局腳本

  4

      /// </summary>

  5

      /// <param name="output"></param>

  6

      /// <param name="sDefaultPath"></param>

  7

      /// <param name="sScriptFile"></param>

  8

    protected void WriteGlobalClientScript(HtmlTextWriter output, string sDefaultPath, string sScriptFile)

  9

{

 10

      string sScript = GenerateClientScriptBlock(sDefaultPath, sScriptFile);

 11

          string sInstanceId = sScriptFile;

 12

 13

      output.Write(sScript);

 14

    }

 15

 16

 17

 18

 19

 20

      /// 擷取腳本塊

 21

 22

 23

 24

      /// <returns></returns>

 25

    private string GenerateClientScriptBlock(string sDefaultPath, string sScriptFile)

 26

 27

      string sScript = string.Empty;

 28

      string sScriptLocation = string.Empty;

 29

        //相應版本 主版本+副版本+編譯版本

 30

      string sVersionString =

 31

        Assembly.GetExecutingAssembly().GetName().Version.Major.ToString() + "_" +

 32

        Assembly.GetExecutingAssembly().GetName().Version.Minor.ToString() + "_" +

 33

        Assembly.GetExecutingAssembly().GetName().Version.Build.ToString();

 34

 35

      if(this.ClientScriptLocation != string.Empty)//指定腳本位置

 36

 37

        sScriptLocation = Path.Combine(Path.Combine(this.ClientScriptLocation, sVersionString), sScriptFile).Replace("\\", "/");

 38

            }

 39

      else

 40

 41

        // First, try application config variable

 42

          //首先,先從程式配置檔案讀取web.config

 43

        string sLocation = ConfigurationSettings.AppSettings["ComponentArt.Web.UI.ClientScriptLocation"];

 44

        if(sLocation != null)

 45

 46

            //腳本位址

 47

          sScriptLocation = Path.Combine(Path.Combine(sLocation, sVersionString), sScriptFile).Replace("\\", "/");

 48

 49

 50

        // Next, try server root

 51

          //IIS根目錄

 52

        if(sScriptLocation == string.Empty)

 53

 54

          try

 55

 56

            string sStandardRootClientScriptPath = Path.Combine(Path.Combine("/componentart_webui_client", sVersionString), sScriptFile).Replace("\\", "/");

 57

 58

            if(File.Exists(Context.Server.MapPath(sStandardRootClientScriptPath)))

 59

 60

              sScriptLocation = sStandardRootClientScriptPath;

 61

 62

          } 

 63

          catch 

{}

 64

        }

 65

 66

        // If failed, try application root

 67

          //程式根目錄

 68

 69

 70

 71

 72

            string sAppRootClientScriptPath = Path.Combine(Path.Combine(Path.Combine(Page.Request.ApplicationPath, "componentart_webui_client"), sVersionString), sScriptFile).Replace("\\", "/");

 73

 74

            if(File.Exists(Context.Server.MapPath(sAppRootClientScriptPath)))

 75

 76

              sScriptLocation = sAppRootClientScriptPath;

 77

 78

 79

 80

 81

      }

 82

 83

      if(sScriptLocation != string.Empty)

 84

 85

        // Do we have a tilde?

 86

        if(sScriptLocation.StartsWith("~") && Context != null && Context.Request != null)

 87

 88

          string sAppPath = Context.Request.ApplicationPath;

 89

          if(sAppPath.EndsWith("/"))

 90

 91

            sAppPath = sAppPath.Substring(0, sAppPath.Length - 1);

 92

          }

 93

 94

          sScriptLocation = sScriptLocation.Replace("~", sAppPath);

 95

 96

 97

          //連接配接外部JS檔案

 98

        if(File.Exists(Context.Server.MapPath(sScriptLocation)))

 99

100

          sScript = "<script src=\"" + sScriptLocation + "\" type=\"text/javascript\"></script>";

101

102

        else

103

104

          throw new Exception(sScriptLocation + " not found");

105

106

107

      else 

108

109

        // If everything failed, emit our internal script

110

          //使用内嵌資源檔案

111

        sScript = Utils.DemarcateClientScript(GetResourceContent(sDefaultPath + "." + sScriptFile));

112

113

114

      return sScript;

115

本文轉自浪子部落格園部落格，原文連結：http://www.cnblogs.com/walkingboy/archive/2005/11/25/284506.html，如需轉載請自行聯系原作者