仓酷云

标题: ASP教程之asp往除HTML标志的三个有用函数 [打印本页]

作者: 谁可相欹 时间: 2015-1-16 22:48
标题: ASP教程之asp往除HTML标志的三个有用函数
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。html标志|函数<%
FunctionRemoveHTML_A(strText)
DimnPos1
DimnPos2

nPos1=InStr(strText,"<")
DoWhilenPos1>0
nPos2=InStr(nPos1+1,strText,">")
IfnPos2>0Then
strText=Left(strText,nPos1-1)&Mid(strText,nPos2+1)
Else
ExitDo
EndIf
nPos1=InStr(strText,"<")
Loop

RemoveHTML_A=strText
EndFunction
FunctionRemoveHTML_B(strText)
DimRegEx
SetRegEx=NewRegExp
RegEx.Pattern="<[^>]*>"
RegEx.Global=True
RemoveHTML_B=RegEx.Replace(strText,"")
EndFunction
FunctionRemoveHTML_C(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_C=strResult
EndFunction
%>
SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。

作者: 老尸 时间: 2015-1-20 05:02
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 变相怪杰 时间: 2015-1-25 10:00
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 小魔女 时间: 2015-2-2 21:00
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 乐观 时间: 2015-2-8 05:34
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 山那边是海 时间: 2015-2-24 09:23
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 飘飘悠悠 时间: 2015-3-7 11:57
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: 简单生活 时间: 2015-3-15 03:42
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

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