2008年9月26日md5解密函数:加解密文本函数
Private Sub Comman1_Click() Dim str1, str2, str3 As String str1 = \"王宇虹\" str2 = Encrypt(str1, 188, 24) MsgBox str2 str3 = Encrypt(str2, 188, 24) MsgBox str3 End Sub Private Function Encrypt(ByVal strSource As String, ByVal Key1 As Byte, _ ByVal Key2 As Integer) As String Dim bLow...
[阅读全文] [PDF]
2008年9月25日fso文本文件读写:FSO操作文本的几个函数
使用FSO修改文件特定内容的函数function FSOchange(filename,Target,String)Dim objFSO,objCountFile,FiletempDataSet objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)FiletempData = objCountFile.ReadAllobjCountFile.Clos...
[阅读全文] [PDF]
1 共2条 分1页