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
客户 要求 就加了这个功能 来自