这段程序的原理是什么啊？（在线等待）

swj888 2004-04-05 02:55:02

我从网上下了一个电影小偷的程序，它的原理是什么啊


<%
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">

</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></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
%>

...全文