这段程序的原理是什么啊?(在线等待)

swj888 2004-04-05 02:55:02
我从网上下了一个电影小偷的程序,它的原理是什么啊
<!--#include file=artwind.inc-->
<!--#include file=head.asp-->
<%
Server.ScriptTimeOut=90
dim id,zt_top,zt_body
'欢迎使用-紫色烈焰(QQ8963017)-系列电影小偷,使用或转载请保留此段文字,谢谢,函数变量里的zt是本人名字,呵呵。
on error resume next
id=request("pageid")
if id="" then response.redirect"index.asp"
url="http://topdy.com/film.asp?pageid="&id&""
zt_code=getHTTPPage(url)
if err.number=0 then
start=Instr(zt_code,"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" bgcolor=""#F5FEE7""")+138
over=Instr(zt_code,"http://www.onlinedown.net/soft/3336.htm")
zt_top=mid(zt_code,start,over-start)
zt_top=replace(zt_top,"topdy","ubb_cn")
else
wscript.echo err.description
end if
%><Script Language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</SCRIPT>
<CENTER>
<table border="1" width="770" cellspacing="0" cellpadding="0" bordercolorlight="#F1F1F1" bordercolordark="#FFFFFF"><%=zt_top%></TD></TR></TBODY></TABLE>
<table border="1" width="770" cellspacing="0" cellpadding="0" bordercolorlight="#F1F1F1" bordercolordark="#FFFFFF"></TD></TR></TBODY></TABLE>
</CENTER><!--#include file=bottom.asp--></BODY></HTML>
<%
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i1,ThisCharCode,NextCharCode
strReturn = ""
For i1 = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i1,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i1+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i1 = i1 + 1
End If
Next
bytes2BSTR = strReturn
End Function
%>
...全文
8 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
yjshm 2004-04-05
uping
回复
GageCSDN 2004-04-05
首先分析一个电影发布页面的文件,然后用xmlhttp从服务器端下载这个页面,并根据原来的分析结果取回其中有用的部分,写到自己的网页中,发送给客户端.

其中关键是要先看到要偷的那个页面,找到有用的部分在什么地方;
然后要熟悉字符串操作...
其实很简单........
回复
qiangtian 2004-04-05
搜索XMLHTTP的资料
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告