首页 >> 读书频道 >> 电脑 >> ASP进阶之文章在线管理更新(5)
 
· ASP进阶之文章在线管理
· ASP进阶之文章在线管理
· ASP进阶之文章在线管理
· ASP进阶之文章在线管理
· ASP环境下邮件列表功能
· ASP环境下邮件列表功能
· ASP环境下邮件列表功能
· ASP环境下邮件列表功能
· 完整的访问统计程序(三
· 完整的访问统计程序(二
· 完整的站点访问统计系统(
· 对数据库中的记录用上一条
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

ASP进阶之文章在线管理更新(5)


查看有无更新版本

关键字:ASP实例 2006-9-9

 

前面为大家介绍了文章的在线添加以及保存,但如果仅仅是这样还不够的,因为有很多的文章本身带有的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+"<"
           case ">"
                result=result+">"
                   case chr(13)
                result=result+"<br>"
           case chr(34)
                result=result+"""
           case "&"
                result=result+"&"
                   case chr(32)           
                'result=result+" "
                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+" "
                   else
                      result=result+" "
                   end if
                else
                   result=result+" "                    
                end if
           case chr(9)
                result=result+"    "
           case else
                result=result+mid(str,i,1)
         end select
       next
       htmlencode2=result
   end function
%>
  在经过对文章返回信息的处理后,文章就可以正常显示了,所以下一节将介绍怎样显示文章,自动生成文章的HTM页面。

ASP进阶之文章在线管理更新(5)

[ 1 ]
ASP进阶之文章在线管理更新(5) num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑