摘要： 引用三个单元，分别是：IdHashMessageDigest,IdGlobal, IdHash; 1 uses IdHashMessageDigest,IdGlobal, IdHash; 2 3 vars:string; 4 MyMD5: TIdHashMessageDigest5; 5 Digest: T4x4LongWordRecord; 6 begin 7 s:='123456'; 8 MyMD5 := TIdHashMessageDigest5.Create; 9 Digest := MyMD5.HashValue(s);10 s:=MyMD5.AsHex(Digest 阅读全文

摘要： 测试环境：VS2008+VB.net 1 Public Shared Function GetWebContent(ByVal sURL As String) As String 2 Try 3 Dim request As Net.WebRequest 4 Dim response As Net.WebResponse 5 request = Net.WebRequest.Create(sURL) 6 response = request.GetResponse() 7 ... 阅读全文

摘要： Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Title = "try" Dim keywords As New HtmlMeta Dim des As New HtmlMeta keywords.Name = "keywords" keywords.Content = "try-1" des.Name = "description" des.C... 阅读全文