技术资料 > ASP技术 > 打印相关 : 动感首页更新实现之九 ------ 简介补充篇

动感首页更新实现之九 ------ 简介补充篇

March 25,2004

`程序表
'/表示为根目录

'/default.asp 首页程序，象本站的首页
./new/index.asp    更多公告
./new/addarticle.asp 添加公告
./new/articleconn.asp    数据库链接
./new/chklogin.asp 管理员验证
./new/login.asp    管理员入口
./new/delete.asp 删除程序
./new/manage.asp 管理页
./new/savearticle.asp 保存页
./new/inc/articleCHAR.inc 输入处理程序
./css/ 样式表
./images/  图片目录

inc/articlechar.inc
<%
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
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
%>

阿喔的口水都干了,不知各位明白了没有！xi...xi...
首页更新源程序可在本站http://asp.on.net.cn/download/下载得到！
哎！身无分文双飞异，心有零钱一点痛!

作者：阿喔出处：<ASP动感在线> http://asp.on.net.cn/

                        （完）