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

`程序表
@#/表示为根目录

@#/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+"&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
%>

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

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

（完）

原文转自：http://www.ltesting.net