Function set_encode(str)
Dim m_len As Integer
Dim m_char As Long
Dim m_str As String
Dim i As Integer
i = 0
m_str = ""
m_char = 0
m_len = Len(str)
If m_len > 0 Then
' For i = 0 To m_len
m_char = Asc(Mid$(str, i, 1))
m_char = m_char + 3 - i * 5
m_str = m_str + Chr$(m_char)
' Next i
set_encode = m_str
Else
set_encode = " Your are not input string value! please in a value!"
End If
End Function
老出现问题:
Microsoft VBScript 编译器错误 错误 '800a03f6'