<% dim fso,f1 Const ForReading = 1 set fso=createobject("Scripting.FileSystemObject") ''使用fso对象读取信息。 set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading) ''打开要读取的文件 dim conn,rst set conn=server.createobject("adodb.connection") ''建立数据库连接,执行操作 set rst=server.createobject("adodb.recordset") co...[ 查看全文 ]
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 bLowData As Byte Dim bHigData As Byte Dim i As Integer Dim strEncrypt As Str...[ 查看全文 ]