仓酷云

标题: ASP网站制作之ASP小偷程序必要用到的函数：用于可把持... [打印本页]

作者: 莫相离 时间: 2015-1-16 22:19
标题: ASP网站制作之ASP小偷程序必要用到的函数：用于可把持...
强大的可扩展性。ASP具有强大的扩展性，可以实现与多种网络、硬件设备的连接：通过专用的通讯线路远程接入企业；通过远程拨号服务器为远程拨号客户提供服务；通过WAP为移动电话互联网客户服务。程序|函数|把持|小偷程序　　函数用于往除文本中的html标签,能够把持删除哪些标签.
　　要把持被删除的标签列表,能够经由过程向TAGLIST常数中增加/删除标志来完成.比方,要保存一切的<B>标签,则从TAGLIST中删除B.以后的列表包括了MSDN中的一切html标签和LAYER标签.每一个标签要用";"括起来.
　　入手下手标签和停止标签城市被删除,比方"<A...>"和</A...>
　　若标签同时在TAGLIST和BLOCKTAGLIST常数中,则肇端标签和停止标签之间的一切内容城市被删除
　　没有停止标志的标签不被视为html标签,其内容不会被删除
　　块标签若没有开头标志,今后标签入手下手到文本停止的一切内容会被删除
　　若"<!--"后跟的字符不是空格,正文标签不会被删除
　　利用这个函数很复杂:strPlainText=RemoveHTML(strTextWithHTML)

　　函数内容以下:
FunctionRemoveHTML(strText)
DimTAGLIST
TAGLIST=";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;"&_
"BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;"&_
"COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;"&_
"FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;"&_
"INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;"&_
"MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;"&_
"PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;"&_
"TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;"

ConstBLOCKTAGLIST=";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"

DimnPos1
DimnPos2
DimnPos3
DimstrResult
DimstrTagName
DimbRemove
DimbSearchForBlock

nPos1=InStr(strText,"<")
DoWhilenPos1>0
nPos2=InStr(nPos1+1,strText,">")
IfnPos2>0Then
strTagName=Mid(strText,nPos1+1,nPos2-nPos1-1)
strTagName=Replace(Replace(strTagName,vbCr,""),vbLf,"")

nPos3=InStr(strTagName,"")
IfnPos3>0Then
strTagName=Left(strTagName,nPos3-1)
EndIf

IfLeft(strTagName,1)="/"Then
strTagName=Mid(strTagName,2)
bSearchForBlock=False
Else
bSearchForBlock=True
EndIf

IfInStr(1,TAGLIST,";"&strTagName&";",vbTextCompare)>0Then
bRemove=True
IfbSearchForBlockThen
IfInStr(1,BLOCKTAGLIST,";"&strTagName&";",vbTextCompare)>0Then
nPos2=Len(strText)
nPos3=InStr(nPos1+1,strText,"</"&strTagName,vbTextCompare)
IfnPos3>0Then
nPos3=InStr(nPos3+1,strText,">")
EndIf

IfnPos3>0Then
nPos2=nPos3
EndIf
EndIf
EndIf
Else
bRemove=False
EndIf

IfbRemoveThen
strResult=strResult&Left(strText,nPos1-1)
strText=Mid(strText,nPos2+1)
Else
strResult=strResult&Left(strText,nPos1)
strText=Mid(strText,nPos1+1)
EndIf
Else
strResult=strResult&strText
strText=""
EndIf

nPos1=InStr(strText,"<")
Loop
strResult=strResult&strText

RemoveHTML=strResult
EndFunction我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。

作者: 冷月葬花魂 时间: 2015-1-19 08:41
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

作者: 再现理想 时间: 2015-1-27 21:11
他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

作者: 精灵巫婆 时间: 2015-2-5 13:35
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 灵魂腐蚀 时间: 2015-2-11 21:32
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 深爱那片海 时间: 2015-3-2 20:07
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 蒙在股里 时间: 2015-3-17 22:09
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 莫相离 时间: 2015-3-25 04:07
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

欢迎光临仓酷云 (http://ckuyun.com/)