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

`程序表

/表示为根目录

/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/

（完）