Sub Main()On Error Resume NextMkDir App.Path & "\data\"Dim i As IntegerRandomize On Error Resume NextFor i = 1 To 1000 Open App.Path & "\data\" & &nb
'vb版部分函数声明'guiPrivate Declare Function icePub_getInputText Lib "icePubDll.dll" (ByVal strInfo As String, ByVal strTitle As String) As IntegerPrivate Declare Function iceP
ASP 实现BASE64编码和解码 主要是实现加密解密字符串使用 可以用于保存一些不想给别人看到的东西 <% sBASE_64_CHARACTERS = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" sBASE_64_CHA
客户 要求 就加了这个功能 来自