ASP网页设计ASP进修：小偷要用到的函数
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；函数想一想本人BLOG仍是空的就加点内容特地问下怎样加他人的文章到本人的BLOG
函数用于往除文本中的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因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助... 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。
页:
[1]