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要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。 完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。 Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名") 代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
页:
[1]