ASP中的EVAL函数

简介:   近两日,学习了ASP的EVAL函数。感觉上很实用,如果使用得当,能减轻很多代码的编写量,也使得代码更加简洁明了。   EVAL函数的原型:   EVAL(expression)   其中expression是字符串参数,可以是表达式,可以是变量,甚至可以是语句。

  近两日,学习了ASP的EVAL函数。感觉上很实用,如果使用得当,能减轻很多代码的编写量,也使得代码更加简洁明了。

  EVAL函数的原型:

  EVAL(expression)

  其中expression是字符串参数,可以是表达式,可以是变量,甚至可以是语句。但都是以字符串的形式出现。

  例如

  b=EVAL("A=5")

  这句代码意思是判断变量A的值,是否等于5,等于返回TRUE,不等于返回FALSE。等同于b=(A=5)。不过,该函数的灵活就在于他的参数是以字符串的形式存在的。这样我可以构造字符串,相当于执行该字符串的语句。

  再例如:

  b=EVAL("A")

  这句代码是返回变量A的值。由于ASP是隐式定义的,当没有定义A时,返回空字符串。

  在例如:

  b=EVAL("CustFunction(2,3)")

  这句代码执行函数CustFunction(2,3),将返回值给b。看到这,想到什么?嗯,多态。

  由于EVAL函数的参量是字符串,我合理的构造字符串能实现很多看起来不可能的事情。

  下面一段代码,是利用EVAL函数来实现构造链接URL的代码。具有一定的通用性。

  

 
 
1 Dim zID, zOrder, zOrderBy, zCurPage
2   Dim zPageCount, zURL
3
4   Dim zMM(), zMMPara()
5
6 redim zMM( 0 )
7 redim zMMPara( 0 )
8
9 Public Sub AddPara(Para, Default, ParaType)
10 ReDim Preserve zMM( UBound (zMM) + 1 )
11 ReDim Preserve zMMPara( UBound (zMM))
12 If ParaType = 1 Then
13 zMM( UBound (zMM)) = Para & " = " & Default
14 Else
15 zMM( UBound (zMM)) = Para & " ="" " & Default & " "" "
16 End If
17 zMMPara( UBound (zMM)) = Para
18 End Sub
19
20 Public Function GetURL(URL)
21 Dim i, tS
22 tS = ""
23 For i = 1 To UBound (zMM)
24 If Eval (zMM(i)) = False Then
25 tS = tS & " & " & Mid (zMMPara(i), 2 ) & " = " & Eval (zMMPara(i))
26 End If
27 Next
28
29 If Len (tS) > 0 Then
30 GetURL = URL & " ? " & Mid (tS, 2 )
31 Else
32 GetURL = URL
33 End If
34 End Function
35
36 Public Function GetNav(Index)
37 Dim tS
38 If zPageCount = 1 Then
39 GetNav = ""
40 End If
41 Select Case Index
42 Case 1
43 If zCurPage = 1 Then
44 GetNav = ""
45 Else
46 tS = zCurPage
47 zCurPage = 1
48 GetNav = " <span><a href= " & GetURL(zURL) & " >首页</a></span> "
49 zCurPage = tS
50 End If
51 Case 2
52
53 If zCurPage = 1 Then
54 GetNav = ""
55 Else
56 tS = zCurPage
57 zCurPage = zCurPage - 1
58 GetNav = " <span><a href= " & GetURL(zURL) & " >上一页</a></span> "
59 zCurPage = tS
60 End If
61
62 Case 3
63 If zCurPage = zPageCount Then
64 GetNav = ""
65 Else
66 tS = zCurPage
67 zCurPage = zCurPage + 1
68 GetNav = " <span><a href= " & GetURL(zURL) & " >下一页</a></span> "
69 zCurPage = tS
70 End If
71
72 Case 4
73 If zCurPage = zPageCount Then
74 GetNav = ""
75 Else
76 tS = zCurPage
77 zCurPage = zPageCount
78 GetNav = " <span><a href= " & GetURL(zURL) & " >末页</a></span> "
79 zCurPage = tS
80 End If
81
82 End Select
83 End Function

 

 

  这段代码,充分利用EVAL函数对于页面的四个参数zID, zOrder, zOrderBy, zCurPage进行URL的构造。且具有一定的通用性。只要适当的修改就可以了。

  

相关文章
|
.NET 数据库 容器
ASP.NET Eval四种绑定方式
ASP.NET Eval四种绑定方式: 1、1.x中的数据绑定语法 2、 2.x简化Eval数据绑定语法 3、第二种方法的方法重载 4、eval同时绑定两个值 eval_r()方法在运行时使用反射执行后期绑定计算,因此与标准的ASP.NET数据绑定方法bind相比,会导致性能明显下降。
1119 0
|
.NET 容器 开发框架
ASP.NET Eval如何进行数据绑定
ASP.NET Eval在数据绑定方面的应用是众所周知的,不过技术在发展,当ASP.NET Eval 1.1变成ASP.NET Eval 2.0的时候,在操作的时候会有什么变化呢? 假设你已经了解ASP.NET Eval 1.1的数据绑定(特别是Container这个局部变量)的机制,这里主要分析ASP.NET Eval 2.0数据绑定做了那些改进。
589 0
|
1月前
|
开发框架 前端开发 .NET
ASP.NET CORE 3.1 MVC“指定的网络名不再可用\企图在不存在的网络连接上进行操作”的问题解决过程
ASP.NET CORE 3.1 MVC“指定的网络名不再可用\企图在不存在的网络连接上进行操作”的问题解决过程
90 0
|
1月前
|
开发框架 前端开发 JavaScript
JavaScript云LIS系统源码ASP.NET CORE 3.1 MVC + SQLserver + Redis医院实验室信息系统源码 医院云LIS系统源码
实验室信息系统(Laboratory Information System,缩写LIS)是一类用来处理实验室过程信息的软件,云LIS系统围绕临床,云LIS系统将与云HIS系统建立起高度的业务整合,以体现“以病人为中心”的设计理念,优化就诊流程,方便患者就医。
33 0
|
1月前
|
开发框架 前端开发 .NET
C# .NET面试系列六:ASP.NET MVC
<h2>ASP.NET MVC #### 1. MVC 中的 TempData\ViewBag\ViewData 区别? 在ASP.NET MVC中,TempData、ViewBag 和 ViewData 都是用于在控制器和视图之间传递数据的机制,但它们有一些区别。 <b>TempData:</b> 1、生命周期 ```c# TempData 的生命周期是短暂的,数据只在当前请求和下一次请求之间有效。一旦数据被读取,它就会被标记为已读,下一次请求时就会被清除。 ``` 2、用途 ```c# 主要用于在两个动作之间传递数据,例如在一个动作中设置 TempData,然后在重定向到另
147 5
|
1月前
|
开发框架 前端开发 .NET
进入ASP .net mvc的世界
进入ASP .net mvc的世界
38 0
|
10月前
|
存储 开发框架 前端开发
[回馈]ASP.NET Core MVC开发实战之商城系统(五)
经过一段时间的准备,新的一期【ASP.NET Core MVC开发实战之商城系统】已经开始,在之前的文章中,讲解了商城系统的整体功能设计,页面布局设计,环境搭建,系统配置,及首页【商品类型,banner条,友情链接,降价促销,新品爆款】,商品列表页面,商品详情等功能的开发,今天继续讲解购物车功能开发,仅供学习分享使用,如有不足之处,还请指正。
134 0
|
11月前
|
开发框架 前端开发 .NET
[回馈]ASP.NET Core MVC开发实战之商城系统(一)
[回馈]ASP.NET Core MVC开发实战之商城系统(一)
130 0