您的位置：首页 → 精文荟萃 → 软件资讯 → 动感首页更新实现之九 ------ 简介补充篇

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

时间：2004/10/7 19:05:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



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

'/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/下载得到！
哎！身无分文双飞异，心有零钱一点痛!

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论