asp实现文件md5

作者佚名技术来源 ASP编程浏览发布时间 2012-03-12

p; ""& Now() & vbNewLine
str = str & "---------------------------------------------"& vbNewLine
str = str & debugstr & vbNewLine
str = str & "---------------------------------------------"
str = str & vbNewLine & vbNewLine & vbNewLine
WriteStringToFile filename,str
End Sub
''公共方法结束--------------------------

End Class
%>
filemd5fun.asp

<%
Rem 取得文件的md5，参数为文件名
Function GetFileMD5(filename)
Const Apisysno = "k8n6g2b0m1a6b0f6e8" ''接口的Key值，防止被非法适用接口应该保持一致
Dim XmlClassObj
Set XmlClassObj = new XmlClass ''创建对象
XmlClassObj.LoadXmlFromString("<?xml version=""1.0"" encoding=""gb2312""?><root/>") ''用xml字符填充XMLDOC对象，用来发送xml
XmlClassObj.URL = "http://www.shouji138.com/aspnet2/FileMD5.aspx" ''设置响应的url，这里应该改成你的网址

Rem xml格式
Rem "<?xml version="1.0" encoding="gb2312"?>
Rem    <root>
Rem       <sysno></sysno>
Rem       <apiaction></apiaction>
Rem        <filename></filename>
Rem   </root>

XmlClassObj.NodeValue "sysno",Apisysno,0,False     ''接口的Key值，防止被非法适用
XmlClassObj.NodeValue "apiaction","createfilemd5",0,False ''接口的响应动作，用于定义一个接口用于多种用途
XmlClassObj.NodeValue "filename",filename,0,False    ''文件路径和文件名，用相对路径
''XmlClassObj.SaveSendXmlDataToFile()      ''将发送的xml数据库包存入txt文件，用于调试之用
XmlClas

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 下一页

分享到：更多

你可能对下面的文章感兴趣

上一篇: 配置IIS蜜罐与黑客攻击下一篇: WEB共享与IIS相结合快速建立本地网站

关于 asp实现文件md5 的所有评论

随机推荐