网页源代码无换行ASP实现方法
有时打开一个网站查看其前台源代码,格式很乱,无换行。当然这个清空了很多冗余代码,比如换行、回车、空格等常见无用的代码,压缩网页体积很有好处,对于网页的加载的速度很有利。
以下是用ASP代码实现代码精减的函数:
<%
Public Function aspzip
HtmlData = Replace(HtmlData, Chr(8), "")'回格
HtmlData = Replace(HtmlData, Chr(9), "")'tab(水平制表符)
HtmlData = Replace(HtmlData, Chr(10), "")'换行
HtmlData = Replace(HtmlData, Chr(11), "")'tab(垂直制表符)
HtmlData = Replace(HtmlData, Chr(12), "")'换页
HtmlData = Replace(HtmlData, Chr(13), "")'回车 chr(13)&chr(10) 回车和换行的组合
HtmlData = Replace(HtmlData, Chr(22), "")
'HtmlData = Replace(HtmlData, " ", "")
End Function
%>
网页源代码无换行优点很多,但是同样也有不足之处,就是出来后的前台格式很乱,程序员看起来很吃力。
以下是用ASP代码实现代码精减的函数:
<%
Public Function aspzip
HtmlData = Replace(HtmlData, Chr(8), "")'回格
HtmlData = Replace(HtmlData, Chr(9), "")'tab(水平制表符)
HtmlData = Replace(HtmlData, Chr(10), "")'换行
HtmlData = Replace(HtmlData, Chr(11), "")'tab(垂直制表符)
HtmlData = Replace(HtmlData, Chr(12), "")'换页
HtmlData = Replace(HtmlData, Chr(13), "")'回车 chr(13)&chr(10) 回车和换行的组合
HtmlData = Replace(HtmlData, Chr(22), "")
'HtmlData = Replace(HtmlData, " ", "")
End Function
%>
网页源代码无换行优点很多,但是同样也有不足之处,就是出来后的前台格式很乱,程序员看起来很吃力。