ASP中的EVAL函数使用教程
来源: 阅读:3714 次 日期:2015-02-27 10:41:26
温馨提示: 小编为您整理了“ASP中的EVAL函数使用教程”,方便广大网友查阅!

近两日,学习了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的代码。具有一定的通用性。

Dim zID, zOrder, zOrderBy, zCurPage

Dim zPageCount, zURL

Dim zMM(), zMMPara()

redim zMM(0)

redim zMMPara(0)

Public Sub AddPara(Para, Default, ParaType)

ReDim Preserve zMM(UBound(zMM) + 1)

ReDim Preserve zMMPara(UBound(zMM))

If ParaType = 1 Then

zMM(UBound(zMM)) = Para & "=" & Default

Else

zMM(UBound(zMM)) = Para & "=""" & Default & """"

End If

zMMPara(UBound(zMM)) = Para

End Sub

Public Function GetURL(URL)

Dim i, tS

tS = ""

For i = 1 To UBound(zMM)

If Eval(zMM(i)) = False Then

tS = tS & "&" & Mid(zMMPara(i), 2) & "=" & Eval(zMMPara(i))

End If

Next

If Len(tS) > 0 Then

GetURL = URL & "?" & Mid(tS, 2)

Else

GetURL = URL

End If

End Function

Public Function GetNav(Index)

Dim tS

If zPageCount = 1 Then

GetNav = ""

End If

Select Case Index

Case 1

If zCurPage = 1 Then

GetNav = ""

Else

tS = zCurPage

zCurPage = 1

GetNav = "<span><a href=" & GetURL(zURL) & ">首页</a></span>"

zCurPage = tS

End If

Case 2

If zCurPage = 1 Then

GetNav = ""

Else

tS = zCurPage

zCurPage = zCurPage - 1

GetNav = "<span><a href=" & GetURL(zURL) & ">上一页</a></span>"

zCurPage = tS

End If

Case 3

If zCurPage = zPageCount Then

GetNav = ""

Else

tS = zCurPage

zCurPage = zCurPage + 1

GetNav = "<span><a href=" & GetURL(zURL) & ">下一页</a></span>"

zCurPage = tS

End If

Case 4

If zCurPage = zPageCount Then

GetNav = ""

Else

tS = zCurPage

zCurPage = zPageCount

GetNav = "<span><a href=" & GetURL(zURL) & ">末页</a></span>"

zCurPage = tS

End If

End Select

End Function

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

更多信息请查看IT技术专栏

更多信息请查看网络编程
手机网站地址:ASP中的EVAL函数使用教程
由于各方面情况的不断调整与变化, 提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 云南省教育厅备案号:云教ICP备0901021 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:
咨询QQ:526150442(9:00—18:00)版权所有:
云南网警报警专用图标
Baidu
map