|
`程序表
'/表示为根目录
'/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/下载得到！
哎！身无分文双飞异，心有零钱一点痛!
（出处：热点网络）
|
