asp获取文件md5值

网上asp加密字符的MD5很多，也很普遍，因为受到asp语言本身的限制，对文件进行md5介绍的文章很少，本文通过2种方式来谈谈如何通过asp获取文件的md5值。 

网上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 


'公共属性定义开始-------------------------- 
Rem 错误信息 
Public Property Get Message() 
Message = MessageCode 
End Property 

Rem 发送xml的地址 
Public Property Let URL(str) 
m_url = str 
End Property 
'公共属性定义结束-------------------------- 


'私有过程、方法开始-------------------------- 
Rem 加载xml 
Private Sub LoadXmlData() 
If XmlPath <> "" Then 
If Not XmlDoc.Load(XmlPath) Then 
XmlDoc.LoadXml "<?xml version=""1.0"" encoding=""gb2312""?><root/>" 
End If 
Else 
XmlDoc.LoadXml "<?xml version=""1.0"" encoding=""gb2312""?><root/>" 
End If 
End Sub 
Rem 字符转化 
Private Function AnsiToUnicode(ByVal str) 
Dim i, j, c, i1, i2, u, fs, f, p 
AnsiToUnicode = "" 
p = "" 
For i = 1 To Len(str) 
c = Mid(str, i, 1) 
j = AscW(c) 
If j < 0 Then 
j = j + 65536 
End If 
If j >= 0 And j <= 128 Then 
If p = "c" Then 
AnsiToUnicode = " " & AnsiToUnicode 
p = "e" 
End If 
AnsiToUnicode = AnsiToUnicode & c 
Else 
If p = "e" Then 
AnsiToUnicode = AnsiToUnicode & " " 
p = "c" 
End If 
AnsiToUnicode = AnsiToUnicode & ("&#" & j & ";") 
End If 
Next 
End Function 

Rem 字符转化 
Private Function strAnsi2Unicode(asContents) 
Dim len1,i,varchar,varasc 
strAnsi2Unicode = "" 
len1=LenB(asContents) 
If len1=0 Then Exit Function 
For i=1 to len1 
varchar=MidB(asContents,i,1) 
varasc=AscB(varchar) 
If varasc > 127 Then 
If MidB(asContents,i+1,1)<>"" Then 
strAnsi2Unicode = strAnsi2Unicode & chr(ascw(midb(asContents,i+1,1) & varchar)) 
End If 
i=i+1 
Else 
strAnsi2Unicode = strAnsi2Unicode & Chr(varasc) 
End If 
Next 
End Function 

Rem 往文件中追加字符 
Private Sub WriteStringToFile(filename,str) 
On Error Resume Next 
Dim fs,ts 
Set fs= createobject("scripting.filesystemobject") 
If Not IsObject(fs) Then Exit Sub 
Set ts=fs.OpenTextFile(Server.MapPath(filename),8,True) 
ts.writeline(str) 
ts.close 
Set ts=Nothing 
Set fs=Nothing 
End Sub 
'私有过程、方法结束-------------------------- 



'公共方法开始-------------------------- 


'''''''''''发送xml部分开始 
Rem 从外部xml文件填充XmlDoc对象 
Public Sub LoadXmlFromFile(path) 
XmlPath = Server.MapPath(path) 
LoadXmlData() 
End Sub 

Rem 用字符串填充XmlDoc对象 
Public Sub LoadXmlFromString(str) 
XmlDoc.LoadXml str 
End Sub 

Rem 设置node的参数 如 NodeValue "appID",AppID,1,False 
'-------------------------------------------------- 
'参数 ： 
'NodeName 节点名 
'NodeText 值 
'NodeType 保存类型 [text=0,cdata=1] 
'blnEncode 是否编码 [true,false] 
'-------------------------------------------------- 
Public Sub NodeValue(Byval NodeName,Byval NodeText,Byval NodeType ,Byval blnEncode) 
Dim ChildNode,CreateCDATASection 
NodeName = Lcase(NodeName) 
If XmlDoc.documentElement.selectSingleNode(NodeName) is nothing Then 
Set ChildNode = XmlDoc.documentElement.appendChild(XmlDoc.createNode(1,NodeName,""))
Else 
Set ChildNode = XmlDoc.documentElement.selectSingleNode(NodeName) 
End If 
If blnEncode = True Then 
NodeText = AnsiToUnicode(NodeText) 
End If 
If NodeType = 1 Then 
ChildNode.Text = "" 
Set CreateCDATASection = XmlDoc.createCDATASection(Replace(NodeText,"]]>","]]&gt;")) 
ChildNode.appendChild(createCDATASection) 
Else 
ChildNode.Text = NodeText 
End If 
End Sub 

'-------------------------------------------------- 
'获取发送包XML中节点的值 
'参数 ： 
'Str 节点名 
'-------------------------------------------------- 
Public Property Get XmlNode(Byval Str) 
If XmlDoc.documentElement.selectSingleNode(Str) is Nothing Then 
XmlNode = "Null" 
Else 
XmlNode = XmlDoc.documentElement.selectSingleNode(Str).text 
End If 
End Property 
'-------------------------------------------------- 
'获取返回XML数据对象 
'例： 
'当GetXmlData不为NULL时，GetXmlData为XML对象 
'-------------------------------------------------- 
Public Property Get GetXmlData() 
Set GetXmlData = m_GetXmlDoc 
End Property 

'-------------------------------------------------- 
'发送xml包 
'-------------------------------------------------- 
Public Sub SendHttpData() 
Dim i,GetXmlDoc,LoadAppid 
Set Xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") 
Set GetXmlDoc = Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0") ' 返回xml包
XmlHttp.Open "POST", m_url, false 
XmlHttp.SetRequestHeader "content-type", "text/xml" 
XmlHttp.Send XmlDoc 
'Response.Write strAnsi2Unicode(xmlhttp.responseBody) 
If GetXmlDoc.load(XmlHttp.responseXML) Then 
Set m_GetXmlDoc = GetXmlDoc 
Else 
MessageCode = "请求数据错误！" 
Exit Sub 
End If 
Set GetXmlDoc = Nothing 
Set XmlHttp = Nothing 
End Sub 




'-------------------------------------------------- 
'打印发送请求XML数据 
'-------------------------------------------------- 
Public Sub PrintSendXmlData() 
Response.Clear 
Response.ContentType = "text/xml" 
Response.CharSet = "gb2312" 
Response.Expires = 0 
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine 
Response.Write XmlDoc.documentElement.XML 
End Sub 

'-------------------------------------------------- 
'打印返回XML数据 
'-------------------------------------------------- 
Public Sub PrintGetXmlData() 

Response.Clear 
Response.ContentType = "text/xml" 
Response.CharSet = "gb2312" 
Response.Expires = 0 
If IsObject(m_GetXmlDoc) Then 
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine 
Response.Write m_GetXmlDoc.documentElement.XML 
Else 
Response.Write "<?xml version=""1.0"" encoding=""gb2312""?><root></root>" 
End If 
End Sub 

Rem 保存发送请求xml数据到文件，文件名为sendxml_日期.txt 
Public Sub SaveSendXmlDataToFile() 
Dim filename,str 
filename = "sendxml_" & DateValue(now) & ".txt" 
str = "" 
str = str & ""& Now() & vbNewLine 
str = str & "---------------------------------------------"& vbNewLine 
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine 
str = str & XmlDoc.documentElement.XML & vbNewLine 
str = str & "---------------------------------------------"& vbNewLine 
str = str & vbNewLine & vbNewLine & vbNewLine 
WriteStringToFile filename,str 
End Sub 


Rem 保存返回XML数据到文件，文件名为getxml_日期.txt 
Public Sub SaveGetXmlDataToFile() 
Dim filename,str 
filename = "getxml_" & DateValue(now) & ".txt" 
str = "" 
str = str & ""& Now() & vbNewLine 
str = str & "---------------------------------------------"& vbNewLine 
If IsObject(m_GetXmlDoc) Then 
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine 
str = str & m_GetXmlDoc.documentElement.XML 
Else 
str = str & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbNewLine & "<root>" & vbNewLine & "</root>" 
End If 
str = str & vbNewLine 
str = str & "---------------------------------------------"& vbNewLine 
str = str & vbNewLine & vbNewLine & vbNewLine 
WriteStringToFile filename,str 
End Sub 


'-------------------------------------------------- 
'获取返回xml的节点信息 
'XmlClassObj.GetSingleNode("//msg") 
'-------------------------------------------------- 
Public Function GetSingleNode(nodestring) 
If IsObject(m_GetXmlDoc) Then 
GetSingleNode = m_GetXmlDoc.documentElement.selectSingleNode(nodestring).text 
Else 
GetSingleNode = "" 
End If 
End Function 
''''''''''''''''''发送xml部分结束 



''''''''''''''''''接收xml部分开始 
'-------------------------------------------------- 
'接收XML包，错误信息通过Message对象获取 
'-------------------------------------------------- 
Public Function AcceptHttpData() 
Dim XMLdom 
Set XMLdom = Server.CreateObject("Microsoft.XMLDOM") 
XMLdom.Async = False 
XMLdom.Load(Request) 
If XMLdom.parseError.errorCode <> 0 Then 
MessageCode = "不能正确接收数据" & "Description: " & XMLdom.parseError.reason & "<br>Line: " & XMLdom.parseError.Line 
Set m_XmlDocAccept = Null 
Else 
Set m_XmlDocAccept = XMLdom 
End If 
End Function 
'-------------------------------------------------- 
'返回接收XML包节点信息 
'XmlClassObj.GetSingleNode("//msg") 
'-------------------------------------------------- 
Public Function AcceptSingleNode(nodestring) 
If IsObject(m_XmlDocAccept) Then 
AcceptSingleNode = m_XmlDocAccept.documentElement.selectSingleNode(nodestring).text 
Else 
AcceptSingleNode = "" 
End If 
End Function [!--empirenews.page--]副标题[/!--empirenews.page--]