两种小偷程序的比较- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 两种小偷程序的比较

ASP: 用ASP做一个分页程序; 用ASP实现网站的“目录树”管理; 网页在线人数统计的做法; 用ASP生成Chart; 用ASP构建你的网站新闻发布（一）; 用ASP构建你的网站新闻发布（三）; 如何处理ASP中的图象; 用ASP编写计数器; ASP防盗链及防下载的方法; ASP数据类型; ASP组件中的安全问题; ASP漏洞集-ASP漏洞分析和解决方法; ASP漏洞集-Carello Web 使 ASP 源码暴露(APP,缺陷); ASP漏洞集-MS IIS server的ASP安全缺陷(MS,缺陷); ASP漏洞集-MS IIS虚拟主机ASP源码泄露(MS,缺陷); ASP漏洞集-给你的FileSystemObject对象加把锁; ASP漏洞集-通过asp入侵web server,窃取文件毁坏系统; ASP漏洞集-MS IIS server/Frontpage Ext Server; ASP漏洞集-虚拟web目录容易泄露ASP源代码 (MS,缺陷); ASP漏洞集-用ASP实现网页保密的两种方法

No. « ‹ 126 127 128 129 › »

技术文章搜索

关键字

ASP 中的两种小偷程序的比较

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 244 ::

收藏到网摘: n/a

ASP如何获取真实IP地址使用xmlHttp结合ASP实现网页的异步调用

点击运行可以看到效果:

Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send
GetURL = bytes2bstr(.responsebody)
'对取得信息进行验证，如果信息长度小于100则说明截取失败
if len(.responsebody)<100 then
response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"
response.end
end if
End With
Set Retrieval = Nothing
End Function
' 二进制转字符串，否则会出现乱码的！
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
function savetofile(bodyall,filename)
dim objstream1
set objstream1=createobject("adodb.stream")
objstream1.type=2
objstream1.open
objstream1.position=objstream1.size
objstream1.writetext bodyall
objstream1.savetofile filename,2
objstream1.close
set objstream1=nothing
end function
'声明截取的格式，从Start开始截取，到Last为结束
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
url="http://www.86516.com"
Html = GetURL(Url)
savetofile html,"ce.htm"

[Ctrl+A 全选提示:你可先修改部分代码,再按运行]

点击运行可以看到效果:
[Ctrl+A 全选提示:你可先修改部分代码,再按运行]

ASP如何获取真实IP地址使用xmlHttp结合ASP实现网页的异步调用

ASP 中的 两种小偷程序的比较

评论 (0) All

ASP 中的两种小偷程序的比较