UC知道谁帮我解解这段代码 谢谢
来源：百度知道 编辑：UC知道 时间：2024/06/30 15:19:57
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file=Function.wav-->
<!--#include file=config.asp-->
<%#@~^QwMAAA==~@#@&9b:,YkDVS:K\r+7knA@#@&k9xP"+;!ndYcp!+.XjOMkUovEk9Jb@#@&EDsxrtOYalJzAShc4Y7m9 xY&tD:s&r[k9'JctYsE@#@&S/DDxonO_KPnhCo`;.^#P@#@&@#@&dYm.D'HhkYDbxTchkY.~r@!P)~S2,^+^V?aC^k o{!~mns^nCN9rxT'T~SkNO4{JEFZTuJE,4KDND{T@*r#~P,P@#@&K\+Mx1h/D.rxT`S/ODSE@!zP2oPb"2)@*@!"OR歌词结束R @*@!z:9@*@!&:I@*@!z:A}95@*@!&KzAJ3@*@!z:9@*@!zK"@*@!z:A}fe@*@!&:b$SA@*@!JK9@*r#P~~,P@#@&sG7kn7kh'sk9chkY.~kYC.D~W7nD /Ym.O#,P@#@&hW-r\r+SxDwsC1+`hG7kn\bnS~EShSR4D\1[R +OJBJAASRm4rxmNl0 ^xr#@#@&hW-r\r+SxDwsC1+`hG7kn\bnS~E4YsVzr~r2VmX lkw_r9'J*@#@&sW\bn-kh{DnwsC1+c:K-k\rnS~J 4D:E~rE*P@#@&@#@&@#@&kYm.Y{1nhkY.r o`SdYM~J@!jKbgP1VC/dxStrYmYXY@*@!UKI6HV@*当前曲目：@!zUP"rHV@*r#P,P,@#@&K\nD{1nAkYDbUovh/D.SJ@!?:I61!@*,歌手：@!&?:]rgM@*E*PP~~,@#@&YbO^+xsk9`hkYMS/Dl.YBW-nMO/DCDD#P,@#@&YbY^+xDn2^l
<!--#include file=Function.wav-->
<!--#include file=config.asp-->
<%#@~^QwMAAA==~@#@&9b:,YkDVS:K\r+7knA@#@&k9xP"+;!ndYcp!+.XjOMkUovEk9Jb@#@&EDsxrtOYalJzAShc4Y7m9 xY&tD:s&r[k9'JctYsE@#@&S/DDxonO_KPnhCo`;.^#P@#@&@#@&dYm.D'HhkYDbxTchkY.~r@!P)~S2,^+^V?aC^k o{!~mns^nCN9rxT'T~SkNO4{JEFZTuJE,4KDND{T@*r#~P,P@#@&K\+Mx1h/D.rxT`S/ODSE@!zP2oPb"2)@*@!"OR歌词结束R @*@!z:9@*@!&:I@*@!z:A}95@*@!&KzAJ3@*@!z:9@*@!zK"@*@!z:A}fe@*@!&:b$SA@*@!JK9@*r#P~~,P@#@&sG7kn7kh'sk9chkY.~kYC.D~W7nD /Ym.O#,P@#@&hW-r\r+SxDwsC1+`hG7kn\bnS~EShSR4D\1[R +OJBJAASRm4rxmNl0 ^xr#@#@&hW-r\r+SxDwsC1+`hG7kn\bnS~E4YsVzr~r2VmX lkw_r9'J*@#@&sW\bn-kh{DnwsC1+c:K-k\rnS~J 4D:E~rE*P@#@&@#@&@#@&kYm.Y{1nhkY.r o`SdYM~J@!jKbgP1VC/dxStrYmYXY@*@!UKI6HV@*当前曲目：@!zUP"rHV@*r#P,P,@#@&K\nD{1nAkYDbUovh/D.SJ@!?:I61!@*,歌手：@!&?:]rgM@*E*PP~~,@#@&YbO^+xsk9`hkYMS/Dl.YBW-nMO/DCDD#P,@#@&YbY^+xDn2^l
这是用Encode加过密的,它的源文件如下:
<!--#include file=Function.wav-->
<!--#include file=config.asp-->
<%
Dim title,movieview
id= Request.QueryString("id")
url="http://www.btvcd.net/html/"&id&".htm"
wstr=getHTTPPage(url)
start=Newstring(wstr,"<TABLE cellSpaci-g=0 cellPadding=0 width=""100%"" border=0>")
over=Newstring(wstr,"</TEXTAREA><!--歌词结束--></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>")
movieview=mid(wstr,start,over-start)
movieview=replace(movieview,"www.btvcd.-et","www.chinadak.cn")
moviev