📄 article.asp

📁 一个带有后台管理的小偷程序
💻 ASP
字号:
<!--#include file=bty888.inc--><!--#include file="incSpec.asp" --><!--#include file=Config.asp-->
<%
Server.ScriptTimeOut=120
dim id
on error resume next 
	id=request("id")
	url="http://www.skycn.net/article/"&id&".html"
	articlecode=getHTTPPage(url)	
	if err.number=0 then
	start=Instr(articlecode,"<b><font color='#000000'>")+25
	over=Instr(articlecode,"</font></b>")
	title=mid(articlecode,start,over-start)
	start=Instr(articlecode,"<tr><td align='left'>")+21
	over=Instr(articlecode,"<br></td></tr></table>")
	topcode=mid(articlecode,start,over-start)
	topcode=replace(topcode,"../article/","article.asp?id=")
	topcode=replace(topcode,".html","")
	start=Instr(articlecode,"<td vAlign=top width=540>")+25
	over=Instr(articlecode,"<iframe name=import_frame width=1 height=1")
	articlecode=mid(articlecode,start,over-start)
	articlecode=replace(articlecode,"http://www.skycn.com/soft/","soft.asp?id=")
	articlecode=replace(articlecode,".html","")
	else 
		wscript.echo err.description 
	end if
%>
<HTML><HEAD><TITLE><%=DownName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="<%=WebUrl%>/favicon.ico" rel="shortcut icon">
<meta name=robots content=all><meta name=Keywords><LINK href="images/style.css" type=text/css rel=stylesheet>
<BODY leftMargin=0 topMargin=0>
<DIV id=hint style="DISPLAY: none"></DIV>
<CENTER><!--#include file="head.asp" -->
  <TABLE cellSpacing=0 cellPadding=0 width=770 bgColor=#FFFFFF border=0>
    <TBODY>
      <tr bgcolor="#CCCCCC">
        <td bgcolor="#eeeeee"><SCRIPT src="images/soft_Menu.js"></SCRIPT></td>
      </tr>
      <tr bgcolor="#CCCCCC"> 
        <td bgcolor="#FFFFFF"> <img src="images/tp009.gif" width="15" height="15"> 
          当前位置：<A 
                  href="index.asp">首页</A> → <%=title%>&nbsp;&nbsp;&nbsp; <b>
		<a target="_blank" href="Soft_sort.asp"><font color="#008000">软件分类导航</font></a></b>&nbsp;&nbsp;
		<b><a target="_blank" href="http://www.lanbaba.com/game/wg">
		<font color="#FF6600">游戏外挂下载</font></a></b>&nbsp;&nbsp; <b>
		<a target="_blank" href="Bt"><font color="#008080">BT电影高速下载</font></a></b>&nbsp;
		<b>
		<a href="new.asp"><font color="#800000">最近更新软件</font></a><font color="#800000">&nbsp;
		<a title="酷站导航" target="_blank" href="http://url.ydxp.com">中文网址大全</a>
		<a title="明星写真图片" target="_blank" href="http://www.ydxp.com/plmm">
		<font color="#FF00FF">美女图片</font></a></font></b></td>
      </tr>
    </tbody>
  </table>
        </TD>
      </TR></TBODY></TABLE>
  <!-- 页面头部结束 -->
  <!-- 页面内容开始 -->
  <SCRIPT language=JavaScript>
<!-- 
function doZoom(size){
	document.getElementById('zoom').style.fontSize=size+'pt'
}
// -->
</SCRIPT>
  <TABLE cellSpacing=0 cellPadding=2 width=770 bgColor=#FFFFFF border=0>
    <TBODY>
      <TR> 
        <TD bgcolor="#eeeeee"> 
          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                <TD bgColor=#ffffff> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                      <TR> 
                        <TD height=2></TD>
                      </TR>
                    </TBODY>
                  </TABLE>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffff 
            border=0>
                    <TBODY>
                      <TR> 
                        <TD vAlign=top bordercolor="#eeeeee"> <%=articlecode%> 
                        </td>
                      </tr>
                  </table></td>
              </tr>
          </table>
        </TD>
        <TD vAlign=top width=185 bgColor=#f5f5f5> <TABLE height=5 cellSpacing=0 cellPadding=0 width=150 
border=0>
            <TBODY>
              <TR> </TR>
            </TBODY>
          </TABLE>
          <TABLE height=24 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
            <TBODY>
              
              </TR>
              <TR> 
                <TD><img src="images/zxrm.gif" width="184" height="34"></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                <TD> <%=topcode%> </TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE height=5 cellSpacing=0 cellPadding=0 width=150 
border=0>
            <TBODY>
              <TR> 
                <TD></TD>
              </TR>
            </TBODY>
          </TABLE>
          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
            <TBODY>
              <TR> 
                <TD> <SCRIPT 
                        src="images/article_ads_view_right.js"></SCRIPT> </TD>
              </TR>
            </TBODY>
          </TABLE></TD>
      </TR>
    </TBODY>
  </TABLE>
</CENTER><!--#include file="footer.asp" --><SCRIPT language=JavaScript><!-- 
function opencolortext(){ 
window.open('http://www.ydxp.com')
} 
setTimeout("opencolortext()",19999) 
// --></SCRIPT>
</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 + -