ASP网站制作之主动往除字符中含有html代码的几个ASP函...
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。函数FunctionstripHTML(strHTML)StripstheHTMLtagsfromstrHTML
DimobjRegExp,strOutput
SetobjRegExp=NewRegexp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern="<.+?>"
ReplaceallHTMLtagmatcheswiththeemptystring
strOutput=objRegExp.Replace(strHTML,"")
Replaceall<and>with<and>
strOutput=Replace(strOutput,"<","<")
strOutput=Replace(strOutput,">",">")
stripHTML=strOutputReturnthevalueofstrOutput
SetobjRegExp=Nothing
EndFunction
PublicFunctionReplacehtml(Textstr)
DimStr,re
Str=Textstr
Setre=newRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str,"")
SetRe=Nothing
Replacehtml=Str
EndFunction
functionnohtml(str)
dimre
Setre=newRegExp
re.IgnoreCase=true
re.Global=True
re.Pattern="(<.[^<]*>)"
str=re.replace(str,"")
re.Pattern="(</[^<]*>)"
str=re.replace(str,"")
nohtml=str
setre=nothing
endfunction
FunctionstripHTML(strHTML)
StripstheHTMLtagsfromstrHTML
DimobjRegExp,strOutput
SetobjRegExp=NewRegexp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern="<.+?>"
ReplaceallHTMLtagmatcheswiththeemptystring
strOutput=objRegExp.Replace(strHTML,"")
Replaceall<and>with<and>
strOutput=Replace(strOutput,"<","<")
strOutput=Replace(strOutput,">",">")
stripHTML=strOutputReturnthevalueofstrOutput
SetobjRegExp=Nothing
EndFunctionASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失; 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。 那么,ASP.Net有哪些改进呢? 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
页:
[1]