Question

我是VBScript编程的新手。刚刚开始使用ASP进行编程。问题是我有60个选项作为按钮，并且必须相应地显示页面。以前我们有60个功能相同的功能。现在我想用select case语句将它转换为单个函数。所以我将不同的数字作为参数传递给函数以获取要显示的页面。但是当我检查参数值时，我得到溢出。是因为类型转换错误吗？我有2个hierachies。我正在传递2位数字，如11，首先使用11/10，使用11 mod 10作为第二级选择器我有一些图像和Onclicking代码如下。

<html>
<head>
<script>
function CallFun(a)
select case int(a/10)
case 1
do something
end select
end Function
</script></head><body><img src="Source.gif" onclick = CallFun(11)></body>

Answer 1

这样的事情应该有效：

function test(param)
    dim lvl1 : lvl1 = param\10
    dim lvl2 : lvl2 = param MOD 10
    Select Case lvl1
        Case 1
            if lvl2 = 1 then 
                'some code
            end if
        Case 2
            ' some code
        Case 3
            ' some code
        Case Else
            ' some code
    End Select
End function

Call test(23)     'for example

ASP VBScript Server端编程

1 个答案: