用asp获取文件md5值

用asp获取文件md5值2010-09-11walkman网上asp加密字符的MD5很多，也很普遍，但是对文件进行md5的确很少，因为受到asp语言本身的限制。我们知道字符串的md5可以对明文进行不可逆的加密，从而保证数据储存或者传送的安全性。同样的，对文件进行md5加密也是为了保证在网络传送时不被修改和校验，另外还有一个用途就是在个人站点里面的应用:可以保证上传的图片或文件具有唯一性。原理是,上传到服务器之后,同时在数据库中记录该上传文件的md5值，这样在下次传同样文件的时候，可以通过查询数据库是否是相同的文件，md5值相同，我们就认为它是相同的文件，md5值就是文件的“身份证”，其实百度也有这方面的应用，在百度搜索图片，点开图片后，有时候会出现“您还可以点击以下链接查看到这张图片：XXX网址”，原理也是一样，对文件进行md5。

废话少说，开始正文。

一、asp通过xml交互方式调用.Net程序实现文件md5

asp由于本身语言的限制，无法实现文件的md5，但是.net确可以，那是不是可以通过.net对文件进行md5,然后发送信息给asp接收，这样就可以做到asp的md5了呢，答案是肯定的。这里涉及到asp与.net程序间的交互，我以前写过一个asp的类：《asp处理xml数据的发送、接收类》，可以上我的百度空间看：http://hi.baidu.com/manbutianmi/blog/item/dec182fc6db36587b801a0f6.html，讲的是asp处理xml数据的发送与接收，可用于各种异构系统之间API接口间通讯。本文正好是这个类的一个应用。代码如下：

asp端代码

xmlcls.asp

Rem 处理xml数据的发送、接收类

"--------------------------------------------------

"转载的时候必须保留此版权信息

"作者:walkman

"网址:手机主题网:http://www.shouji138.com

"版本:ver1.0

"--------------------------------------------------

Class XmlClass

Rem 变量定义

Private XmlDoc,XmlHttp
Private MessageCode,SysKey,XmlPath
Private m_GetXmlDoc,m_url
Private m_XmlDocAccept

Rem 初始化

Private Sub Class_Initialize（）
 On Error Resume Next
 MessageCode = ""
 XmlPath = ""
 Set XmlDoc = Server.CreateObject（"msxml2.FreeThreadedDOMDocument.3.0"）
 XmlDoc.ASYNC = False
End Sub

Rem 销毁对象

Private Sub Class_Terminate（）
 If IsObject（XmlDoc） Then Set XmlDoc = Nothing
 If IsObject（m_XmlDocAccept） Then Set m_XmlDocAccept = Nothing
 If IsObject（m_GetXmlDoc） Then Set m_GetXmlDoc = Nothing 
End Sub