马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
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系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失; |