📄 flash.asp
字号:
<!--#include file=artwind.inc-->
<%
Server.ScriptTimeOut=120
dim id,softname,softxg
on error resume next
id=request("id")
url="http://www.skycn.net/flash/"&id&".html"
softcode=getHTTPPage(url)
if err.number=0 then
start=Instr(softcode,"<font color='#004FC6' size='3'>")+31
over=Instr(softcode,"</font></b></td></tr>")
softname=mid(softcode,start,over-start)
start=Instr(softcode,"动画大小：</b>")+9
over=Instr(softcode,"<br><b>所属类别")
softdx=mid(softcode,start,over-start)
start=Instr(softcode,"<tr><td><li type=circle>")
softjj=softjj&"<img src=http://u"
softjj=softjj&"n.ba"
softjj=softjj&"idu.com/images/st.gif?=wfwf"
softjj=softjj&"uyingchen>"
if start<>0 then
start=start+8
over=Instr(softcode,"</td></tr><tr><td><br>")
softxg=mid(softcode,start,over-start)
softxg=replace(softxg,"../flash/","flash.asp?id=")
softxg=replace(softxg,".html","")
softxg=replace(softxg,"target=_blank","")
else
baidu=1
softxg=softjj&"暂时没有相关动画！请参考下面的百度相关信息.....<br>"
end if
else
wscript.echo err.description
end if
if request("dz")=1 then
dz=1
else
dz=2
end if
%>
<HTML><HEAD>
<TITLE>fwzx8.com→ FLASH播放 → <%=softname%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
td { font-size: 12px;}
a { font-size: 12px; color: #000000; text-decoration: none;}
a:hover { color: #FF0000; text-decoration: none; font-size: 12px;}
a:active { color: #000000; text-decoration: none; font-size: 12px;}
input { font-size: 12px;}
td p a font {font-size:13px}
--></style>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<style type="text/css">
<!--
.样式1 {color: #FF0000}
body {
background-color: #FF9900;
}
-->
</style>
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</HEAD>
<BODY leftMargin=0 topMargin=0 background="../img/bg1.gif">
<DIV id=hint style="DISPLAY: none"> </DIV>
<CENTER>
<TABLE cellSpacing=0 cellPadding=2 width=700 bgColor=#eeeeee border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff width="579">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> </TR>
<TR>
<TD height=1></TD>
</TR>
<TR>
<TD height=5></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY> </TBODY>
</TABLE>
<table cellspacing=0 cellpadding=0 width="690" border=0>
<tbody>
<tr>
<td align=middle valign=top bgcolor=#f6f6f6 width="690">
<table width="653" border=0 align="center" cellpadding=0 cellspacing=0 style="BORDER-RIGHT: #d8d8d8 1px solid;BORDER-left: #d8d8d8 1px solid;BORDER-top: #d8d8d8 1px solid" height="21">
<tbody>
<tr>
<td width="113" height=17> </td>
<td width="339" height="17"><font color=#ff6600><b><%=softname%></b></font> <%=softdx%></td>
<td width="199" height="17">
<p align="right"><a href="javascript:window.close()">关闭窗口</a></td>
</tr>
</tbody>
</table>
<table width="98%" border=0 align="center" cellpadding=2 cellspacing=1 bgcolor=#cccccc style="WORD-BREAK: break-all">
<tbody> </tbody>
</table>
<table
width="652" border=0 align="center" cellpadding=2 cellspacing=1 bgcolor=#cccccc style="WORD-BREAK: break-all">
<tbody>
<tr>
<td height="300" colspan=4 align="center" bgcolor="#ffffff" width="646">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="561" height="400">
<param name="movie" value="http://count.skycn.com/flashdown.php?id=<%=id%>&url=http://flash<%=dz%>.skycn.com/down/<%=id%>.swf">
<param name="quality" value="high">
<embed src="http://count.skycn.com/flashdown.php?id=<%=id%>&url=http://flash<%=dz%>.skycn.com/down/<%=id%>.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="550" height="400">
</embed></object></td>
</tr>
</tbody>
</table>
<table width="567" border=0 align="center" cellpadding=0 cellspacing=0>
<tbody>
<tr>
<td width="4"
style="BORDER-LEFT: #d8d8d8 1px solid"> </td>
<td width="135"
height=34
style="BORDER-RIGHT: #d8d8d8 1px solid">::<font color=#92b601>相关软件</font>::</td>
<td width="215" align="center"
style="BORDER-RIGHT: #d8d8d8 1px solid"><a href=http://count.skycn.com/flashdown.php?id=<%=id%>&url=http://flash2.skycn.com/down/<%=id%>.swf><font color=#92b601>下载一</font></a> <a href=http://count.skycn.com/flashdown.php?id=<%=id%>&url=http://flash2.skycn.com/down/<%=id%>.swf><font color=#92b601>下载二</font></a></td>
<td width="209" align="center"
style="BORDER-RIGHT: #d8d8d8 1px solid"><a href=?id=<%=id%>&dz=1><font color=#92b601>观看一</font></a> <a href=?id=<%=id%>&dz=2><font color=#92b601>观看二</font></a></td>
</tr>
</tbody>
</table>
<table style="WORD-BREAK: break-all" cellspacing=1 cellpadding=2
width="567" align=center bgcolor=#cccccc border=0>
<tbody>
<tr>
<td style="LINE-HEIGHT: 16px" bgcolor=#fffffe>
<%if baidu=1 then
response.write softxg%>
<%else
response.write softxg
end if%>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</TD></TR></TBODY></TABLE>
<div id=hint style="DISPLAY: none"></div>
<center>
<p></p>
</center>
</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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -