如何在aSP中使用类

最新推荐文章于 2022-08-24 22:49:41 发布
最新推荐文章于 2022-08-24 22:49:41 发布
阅读量378 收藏
点赞数
文章标签： asp regex vbscript 正则表达式 input function

如何在aSP中使用类

VBScript5中增加了许多新功能，最振奋人心的当属类和正则表达式的出现。以下是本人写的一个解析html代码的类。我是学php的，语法有不习惯的地方，请大家多包含。 <% Class HTMLParse     ' 设置 Initialize 事件。     Private Sub Class_Initialize         myGlobal = True         myIgnoreCase = True     End Sub     Property Let Global(g)     Dim regEx            ' 建立变量。   Set regEx = New RegExp         ' 建立正则表达式。   regEx.Pattern = "True|False|1|0"         ' 设置模式。   regEx.IgnoreCase = True         ' 设置是否区分大小写。   If regEx.Test(CStr(g)) Then         myGlobal = g     Else         Call Halt("无效Global参数配置")     End If         End Property     Property Get Global()         Global = myGlobal     End Property     Property Let IgnoreCase(c)     Dim regEx   Set regEx = New RegExp   regEx.Pattern = "True|False|1|0"   regEx.IgnoreCase = True     If regEx.Test(CStr(c)) Then         myIgnoreCase = c     Else         Call Halt("无效IgnoreCase参数配置")     End If     End Property     Property Get IgnoreCase()         IgnoreCase = myIgnoreCase     End Property     '解析所有HTML标记的函数     Public Function Parse(input)         Parse = "<table border=1 width=50% align=center>" & vbCrLf         Dim regEx , regVal , match , i                  Set regEx = New RegExp         regEx.Pattern = "<([a-z]/w*)(?:.*?)>(.*)<///1>"         regEx.Global = myGlobal         regEx.IgnoreCase = myIgnoreCase                  Set regVal = regEx.Execute(Trim(input))         If regVal.Count > 0 Then '如果发现匹配元素             Parse = Parse & "<caption>发现" & regVal.Count & "个HTML标记</caption>" & vbCrLf             Parse = Parse & "<tr align=center><th>编号</th><th>匹配标记<th>匹配显示</th></tr>" & vbCrLf         For i=0 To regVal.Count-1             Set match = regVal(i)             Parse = Parse & "<tr align=center>" & vbCrLf             Parse = Parse & "<td>" & i+1 & "</td><td>" & match.SubMatches(0) & "</td><td>" & match & "</td>" & vbCrLf             Parse = Parse & "</tr>" & vbCrLf         Next         Else Parse = Parse & "<caption>没有发现HTML标记</caption>" & vbCrLf         End If         Parse = Parse & "</table>" & vbCrLf     End Function     '解析指定HTML标记的函数     Public Function ParseTag(input,tag)         ParseTag = "<table border=1 width=50% align=center>" & vbCrLf         Dim regEx , regVal , match , i                  Set regEx = New RegExp         regEx.Pattern = "<(" & tag & ")(?:.*?)>(.*?)<///1>"         regEx.Global = myGlobal         regEx.IgnoreCase = myIgnoreCase                  Set regVal = regEx.Execute(Trim(input))         If regVal.Count > 0 Then '如果发现匹配元素             ParseTag = ParseTag & "<caption>发现" & regVal.Count & "个" & UCase(tag) & "标记</caption>" & vbCrLf             ParseTag = ParseTag & "<tr align=center><th>编号</th><th>发现位置<th>包含内容</th></tr>" & vbCrLf         For i=0 To regVal.Count-1             Set match = regVal(i)             ParseTag = ParseTag & "<tr align=center>" & vbCrLf             ParseTag = ParseTag & "<td>" & i+1 & "</td><td>" & match.FirstIndex & "</td><td>" & match.SubMatches(1) & "</td>" & vbCrLf             ParseTag = ParseTag & "</tr>" & vbCrLf         Next         Else ParseTag = ParseTag & "<caption>没有发现" & UCase(tag) & "标记</caption>" & vbCrLf         End If         ParseTag = ParseTag & "</table>" & vbCrLf     End Function     '打印错误     Private Sub Halt(errstr)         Response.Write("<font color=red size=3>" & errstr & "</font>" & vbCrLf)         Call Class_Terminate     End Sub          Private Sub Class_Terminate   ' 设置 Terminate 事件。     End Sub          '定义两个内部变量     Private myGlobal     Private myIgnoreCase End Class %> <html> <body> <div align=center><h2>范例1</h2></div> <% '范例1 Dim input , result input = "<i>这是</i>一个<font color=green>VBScript</font>的<b>正则<i>表达式</i>范例</b>。" Set hp = New HTMLParse hp.Global = 1 hp.IgnoreCase = False result = hp.Parse(input) Response.Write(result) %> <br> <div align=center><h2>范例2</h2></div> <% '范例2 'hp.Global = 1 'hp.IgnoreCase = False result2 = hp.ParseTag(input,"i") Response.Write(result2) Set hp = Nothing %> </body> </html> 大家应该注意到了，VBScript的正则表达式和Jscript的解析是一样的，只是语法不同。关于最新的VBScript的文档，大家可以到微软中国的脚本技术主页去下载

airweilai
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
c# asp.net 中使用token验证
weixin_30924239的博客
04-16 6930
基于token的鉴权机制类似于http协议也是无状态的，它不需要在服务端去保留用户的认证信息或者会话信息。这就意味着基于token认证机制的应用不需要去考虑用户在哪一台服务器登录了，这就为应用的扩展提供了便利。 流程上是这样的： 用户使用用户名密码来请求服务器 服务器进行验证用户的信息 服务器通过验证发送给用户一个token 客户端存储token，并在每...
ASP 使用三层架构 asp中使用类
10-29
类中包含了两个公共变量`A`和`B`，它们可以被外部访问，以及一个私有变量`intC`，它只能在类内部使用。此外，还有一个公共方法`Sum()`，它执行加法运算并将结果返回。 实例化类（如`set math = new Con_Math`）意味...
如何在ASP中使用类教程
每天努力点吧
09-06 832
面向对象的程序设计 　　随着程序的设计的复杂性增加，结构化程序设计方法又不够用了。不够用的根本原因是“代码重用”的时候不方便。面向对象的方法诞生了，它通过继承来实现比较完善的代码重用功能。很多学生在应聘工作，面试的时候，常被问及一个问题“你来谈谈什么是面向对象的程序设计”，学生无言，回来问我，这个问题应该怎么回答。我告诉他，你只要说一句话就够了“面向对象程序设计是对数据的封装；范式（模板）的程序设
【转】asp class类的使用方法
emituofo的专栏
08-24 220
asp class类的使用方法
ASP中类的调用(转)
weixin_34186950的博客
03-04 295
1，类文件c1.asp：主要是类存放的文件，方便其它页面调用。 &lt;% Class myclass'声明一个名为mycalss的类 Private myclass'初始化类 Private Sub Class_Initialize myclass="My Name is myclass." End Sub Public Function showit() '定义一个函...
在 ASP.NET WebForm中使用 Route
极客神殿
03-30 4496
使用过ASP.NET MVC的同学可能对Route已经有些接触，在ASP.NET WebForm中为实现类似的功能也许会使用URL Rewrite。本文将介绍在ASP.NET WebForm中使用Route。1.找到Global.asax文件，如果没有这个文件就新建一个。2.添加RegisterRoutes方法 Code highlighting produced by Actipro CodeHi
ASP.NET 中如何引用DbContext类
weixin_40662433的博客
05-16 3132
按照新手教程进行Code First 模式方式新建一个Movie类，继承Entity Framework的Context类 但是确无法引用DbContext，虽然using System.Data.Entity，仍无法引用DbContext。 但是查阅网上所有的教程，基本都是直接引用就可以了。对于小白来说，也许该放弃了 又试了很多方法，都没有什么用。。。 不过，功夫不负有心人，我查到一个普通到不能...
ASP.NET Core 使用 EF Core
Lzysnd的博客
11-26 4703
一、NuGet安装EF Core支持的程序包，使用sql server 数据库 右键单击“项目” > “管理NuGet程序包” 查找安装 sql server： Microsoft.EntityFrameworkCore.SqlServer：Sql Server数据库EF提供程序 Microsoft.EntityFrameworkCore.Design：设计时使用到的EF共享库 Microsoft.EntityFrameworkCore.Tools：EF的NuGet包管理器命令工具 .
ASP.NET MVC 在View(cshtml)中使用自定义帮助类
zhuyu19911016520
10-20 3970
1、在View中使用比如Html/Ajax/Model之类的帮助类，要在我们的帮助类中继承了一个类WebViewPage 2、新建自定义帮助类WebWorkContextWebViewPage类(继承WebViewPage) public abstract class WebWorkContextWebViewPage : System.Web.Mvc.WebViewPage {
在asp.NET中使用SMTP发送邮件的实现代码共8页.p
10-30
这8页的PDF文档可能包含了详细的步骤、示例代码以及可能遇到的问题和解决方案，对于学习和理解如何在ASP.NET中使用SMTP发送邮件是非常有价值的资源。为了进一步提升邮件功能，你还可以研究如何添加附件、设置邮件...
如何在asp.net中使用mysql
04-04
接下来，让我们深入了解一下在ASP.NET中使用MySQL的步骤： 1. **添加引用**： 在你的ASP.NET项目中，需要添加对MySQL Connector/Net的引用。打开解决方案资源管理器，右键点击“引用”文件夹，选择“管理NuGet程序...
一个ASP.NET中使用的MessageBox类
01-20
这个自定义的`MessageBox`类可以方便地在ASP.NET页面中使用，例如： ```csharp protected void Button_Click(object sender, EventArgs e) { MessageBox mb = new MessageBox(this); mb.Show("操作成功！"); } ``...
在ASP中使用类(Class)
ξσ Dicky's Blog σξ
06-05 3109
  1在ASP中使用类(class)  2在不入前的一天，当我为了解决一个语法问题来翻阅VBscript文档时，偶然间发现在了下面的一句话：  3  4Class Statement  5  6Declares the name of a class, as well as a definition of the variables, properties, and methods that co
asp类的定义方法和使用方法实例
form88的专栏
03-26 2449
<% 02 class myclass 03 '这里是定义类的局部变量，需要定义成private类型的变量，不可以直接对这些变量赋值 04 private str_title 05 private str_author 0607 '这是类初始化的时候自动运行下面代码 08 private sub class_in
在asp.net项目中使用opentk
最新发布
07-27
在ASP.NET项目中使用OpenTK相对较少见，因为ASP.NET通常用于构建基于Web的应用程序，而OpenTK主要用于桌面应用程序的图形渲染。不过，如果你希望在ASP.NET项目中使用OpenTK，你可以尝试以下方法： 1. 创建一个ASP...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值