<tbody id="nxkas"></tbody>
    <dd id="nxkas"></dd>

    1.  
      >>您所在的位置:騰飛電腦學校>>騰飛教程 > ASP教程
       
      ASP的代碼轉換程序

       文章來源:騰飛電腦學校       發布時間:2008-08-08    閱讀次數:51522
      前面為大家介紹了文章的在線添加以及保存,但如果僅僅是這樣還不夠的,因為有很多的文章本身帶有的HTM代碼必須完整的顯示出來,而不是顯示出它的效果來,這也就是說必須轉化HTM代碼以使它能具體顯示出它的代碼,比如:<a href="">你好</a>你并不想在頁面上顯示出它是一個連接,而是顯示其代碼,這就象FRONTPAGE里面的直接在編輯頁面寫代碼,只不過FRONTPAGE提供了轉化的功能而已。
        在ASP中可以通過轉化特定的HTM代碼,以使它能以完整的形式顯示,比如HTM的通用格式<>等,還有就是把ASP中顯示HTM代碼的格式要轉化為HTM代碼,比如在ASP里chr(13)表示回車,那么就要將它轉化為<br>,因為在添加文章內容的時候所有的換行和空格在返回到savearticle.asp以后都是以ASP的代碼表示的,所以這個時候就要將它轉化為HTM代碼,只有這樣才能使文章正確的顯示出來。
        以下就是本系統對這些代碼的轉化程序,在里面我都詳細的標明了注解

        新建一文件articlechar.inc,其具體內容為:
      <%
        "Function程序是建立在子程序過程中的成組處理功能上的,是一個獨立的程序用來接受自變量以執行一系列的代碼語句,以及把處理好的代碼語句的結直接返回給用戶代碼
      function htmlencode2(str)
          dim result
          dim l
          if isNULL(str) then
             htmlencode2=""
             exit function
          end if
          l=len(str)
          result=""
      dim i
      for i = 1 to l
        "對返回的內容進行判定,并對其含有<,>,chr(13),chr(34),&,chr(32),chr(9)進行相應的轉化,如chr(13)變為<br>;也就是回車的HTM代碼
          select case mid(str,i,1)
                 case "<"
                      result=result+"&lt;"
                 case ">"
                      result=result+"&gt;"
                         case chr(13)
                      result=result+"<br>"
                 case chr(34)
                      result=result+"&quot;"
                 case "&"
                      result=result+"&amp;"
                         case chr(32)            
                      'result=result+"&nbsp;"
                      if i+1<=l and i-1>0 then
                         if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then                       
                            result=result+"&nbsp;"
                         else
                            result=result+" "
                         end if
                      else
                         result=result+"&nbsp;"                     
                      end if
                 case chr(9)
                      result=result+"    "
                 case else
                      result=result+mid(str,i,1)
               end select
             next
             htmlencode2=result
         end function
      %>

        在經過對文章返回信息的處理后,文章就可以正常顯示了,所以下一節將介紹怎樣顯示文章,自動生成文章的HTM頁面。 轉自:動態網制作指南 www.knowsky.com
       
         
         

      管理入口 | 下載中心 | 招聘英才 | 聯系我們 | 學校地圖 | 網上留言

      南充騰飛電腦培訓學校 版權所有(C) 電話:0817-3369775
      學校地址:四川省南充市模范街54號(鐘表老字號眼鏡行2樓)
      聯系人:王小平 電子郵件:wangandhe@163.com QQ:306389845
      本站網絡實名:南充電腦學!∧铣潆娔X培訓學校 南充計算機培訓學!
       
      鲁死你av资源站
        <tbody id="nxkas"></tbody>
        <dd id="nxkas"></dd>