以下是代码: <% on error resume next Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml", False xml.Send tmpstr= xml.responseText ep=clng(instr(1,tmpstr,"meta_data2"))+18 tmpstr=replace(tmpstr,vbcrlf,"") tmpstr=re...[ 查看全文 ]
用asp写个简单的加密和解密的类,在这个类中简单的实现了一个加密和解密。目的是和大家分享一下。这个类的破解非常简单。看看我的注释就知道是怎么回事了。下次编写一个java的加密和解密的类。 class Base64Class rem Const dim sBASE_64_CHARACTERS转化码 dim lenString 计算字符串的长度 dim iCount 计数器 dim returnValue 返回值 dim tempChar缓存字符 dim ...[ 查看全文 ]