您的位置:首页 > 软件资讯 > 正文

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

来源:网络 作者: 时间:2021-04-04

`程序表 '/表示为根目录 '/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+"" 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/下载得到! 哎!身无分文双飞异,心有零钱一点痛!

相关视频

【责任编辑:admin】