ASP函数 多值返回 如何在ASP中编写一个函数以同时返回多个值

🎉【ASP函数多值返回全攻略】让你的代码像变魔术一样同时吐出N个结果！🎩

💻 场景还原：
假设你正在开发一个用户注册系统，需要同时验证用户名是否重复、密码强度是否达标、邮箱格式是否正确，如果用传统ASP函数只能返回一个值,你可能会写出这样的代码：

Function CheckRegister(username)
  Dim errCode
  If IsUsernameExist(username) Then errCode = errCode + 1
  If IsPasswordWeak(password) Then errCode = errCode + 10
  If Not IsEmailValid(email) Then errCode = errCode + 100
  CheckRegister = errCode
End Function

然后通过二进制位运算解析错误码……（头秃预警⚠️）
这时候就需要多值返回的魔法来拯救你的代码可读性啦！

🚀 方法一：ByRef参数传送门（时空跳跃术）

Sub CheckRegister(username, ByRef isExist, ByRef strength, ByRef isValid)
  isExist = CheckUsername(username)  ' 返回布尔值
  strength = GetPasswordLevel(password) ' 返回1-5级强度
  isValid = ValidateEmail(email)      ' 返回详细错误码
End Sub
' 调用时这样用 ↓
Dim usernameExists, pwdLevel, emailCode
CheckRegister "newbie", usernameExists, pwdLevel, emailCode

✨ 优点：直接修改传入变量，性能开销≈0
⚠️ 注意：默认就是ByRef,但显式声明更规范哦！

🎯 方法二：Class对象魔法盒（结构化大师）

Class ValidationResult
  Public UserExist
  Public PasswordLevel
  Public EmailError
End Class
Function AdvancedCheck() As ValidationResult
  Dim res
  Set res = New ValidationResult
  res.UserExist = CheckUsername(username)
  res.PasswordLevel = GetPasswordLevel(password)
  res.EmailError = ValidateEmail(email)
  Set AdvancedCheck = res
End Function
' 使用时这样玩 ↓
Dim checkResult
Set checkResult = AdvancedCheck()
Response.Write "密码强度：" & checkResult.PasswordLevel

💡 高级技巧：可以给类添加方法！

Class ValidationResult
  ' ...属性...
  Public Function GetAllErrors()
    Dim errors
    If UserExist Then errors = errors & "用户名已存在<br>"
    If EmailError Then errors = errors & "邮箱格式错误<br>"
    GetAllErrors = errors
  End Function
End Class

📦 方法三：Dictionary字典（键值对侠）

Function DictCheck()
  Dim dict, errors
  Set dict = Server.CreateObject("Scripting.Dictionary")
  dict.Add "Username", CheckUsername(username)
  dict.Add "PasswordLevel", GetPasswordLevel(password)
  dict.Add "EmailError", ValidateEmail(email)
  Set DictCheck = dict
End Function
' 调用时这样操作 ↓
Dim resultDict
Set resultDict = DictCheck()
If resultDict.Item("EmailError") <> "" Then ...

🔍 对比选择指南： | 方法 | 适用场景 | 性能开销 | 代码简洁度 | |------------|----------------------------|----------|------------| | ByRef | 简单参数修改 | ⭐⭐⭐⭐⭐ | ⭐⭐⭐ | | Class | 复杂业务对象 | ⭐⭐⭐ | ⭐⭐⭐⭐⭐ | | Dictionary | 动态键值对需求 | ⭐⭐ | ⭐⭐⭐⭐ |

⚡ 性能黑科技：数组大法（慎用！）

Function ArrayCheck()
  ArrayCheck = Array( _
    CheckUsername(username), _
    GetPasswordLevel(password), _
    ValidateEmail(email) _
  )
End Function
' 使用时这样写 ↓
Dim results = ArrayCheck()
Response.Write "密码强度：" & results(1)

⚠️ 警告：数组索引容易错位,建议配合常量使用：

Const IDX_USER = 0
Const IDX_PWD = 1
results(IDX_PWD) ' 这样就安全多啦！

🛠️ 最佳实践建议：

1. 简单场景用ByRef，性能最好
2. 需要封装方法时选Class对象
3. 动态键值需求用Dictionary
4. 绝对不要用Session传值替代返回值！
5. 返回前记得清理对象：

   Set MyClass = Nothing
   Set MyDict = Nothing

🎁 彩蛋：同时返回错误码和消息的终极写法

Class ApiResponse
  Public Code
  Public Message
  Public Data
End Class
Function GetUserInfo(id) As ApiResponse
  Dim res
  Set res = New ApiResponse
  If Not IsNumeric(id) Then
    res.Code = 400
    res.Message = "ID必须是数字"
    Exit Function
  End If
  ' ...正常查询逻辑...
  res.Code = 200
  res.Data = userInfo
  Set GetUserInfo = res
End Function

现在你可以像现代语言一样优雅地处理多返回值啦！再也不用面对魔数错误码抓狂，也不用写密密麻麻的注释说明每个返回值含义，让你的ASP代码焕发新生吧！🚀