以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  使用自定义函数出错了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190721)
--  作者：sysckj
--  发布时间：2024/2/29 15:36:00
--  使用自定义函数出错了
更新密码：

For Each dr As DataRow In DataTables("userinfo").DataRows
 If dr("username") <> "admin" Then 
   dr("psw") = Functions.Execute("atob", dr("card").SubString(11, 6))
End If
Next

atob内部函数代码如下：
Dim a As String = args(0)
Dim tp As String = args(1)
Dim b As String
If tp = "" Then
    b = EncryptText(a,"#g1101#","#n0526#")
Else
    Dim bb As Byte() = System.Text.Encoding.Default.GetBytes(urlencode(a))
    b = Convert.ToBase64String(bb)
End If
Return b


[此贴子已经被作者于2024/2/29 15:37:05编辑过]
--  作者：有点蓝
--  发布时间：2024/2/29 16:20:00
--  
函数定义了2个参数，但是调用的时候只传入了一个参数

dr("psw") = Functions.Execute("atob", dr("card").SubString(11, 6),"")