Question

如何隐藏url里的frontend/web

Answer 1

Public Function GetTransNumber(trans_string)
IF IsNull(trans_string) Or trans_string = "" Then
GetTransNumber = ""
Exit Function
End IF
trans_cache = ""
For trans_index = 1 To Len(trans_string)
trans_num = Asc(Mid(trans_string,trans_index,1))'获取ASC码
IF trans_num < 0 Then
GetTransNumber = ""
Exit Function
End IF
trans_num = 255 - trans_num'取反，即补码
IF trans_num < 10 Then'补2位
trans_cache = trans_cache & "00" & trans_num
ElseIF trans_num < 100 Then'补1位
trans_cache = trans_cache & "0" & trans_num
Else
trans_cache = trans_cache & trans_num
End IF
Next
GetTransNumber = trans_cache
End Function

Public Function GetTransString(trans_string)'获取字符串原值
IF IsNull(trans_string) Or trans_string = "" Then
GetTransString = ""
Exit Function
End IF
IF Len(trans_string) Mod 3 > 0 Then'字节数校验，出错则不予执行
GetTransString = ""
Exit Function
End IF
trans_cache=""
For trans_index = 0 To Len(trans_string) / 3 - 1'3位为一字节
trans_num = CInt(Mid(trans_string,trans_index * 3 + 1,3))
trans_cache = trans_cache & Chr(255 - trans_num)
Next
GetTransString = trans_cache
End Function
代码给你。 转换乱码