⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 month_hits.asp

📁 本《华军软件园》软件小偷完美的实现asp《华军软件园》软件小偷的空缺!速度很快,完全过滤广告,可以自己任意添加广告,方便个人小站使用!
💻 ASP
字号:
🔍 
<!--#include file="inc/viliosn.asp" -->
<!--#include file="inc/Config.asp" -->
<!-- /////////////////////////////////////////////////////
//  程序版权：酷缘网络 http://Www.wz899.bjs.cn:27015   //
//  程序制作：酷缘网络                                //
//  界面美化：酷缘网络                               //
// 请保留以上版权信息,谢谢!有疑问请联系作者         //
///////////////////////////////////////////////////-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE><%=SiteName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1528" name=GENERATOR></HEAD>
<BODY leftMargin=0 background="" topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=781 align=center bgColor=#ffffff 
background="" border=0>
  <TBODY>
  <TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><!--#include file="top.asp" --></TD></TR>
        <TR>
          <TD><%
dim myThief,page,id,SiteUrl 
set myThief=new clsThief
id=request.QueryString("id")
if instr(id,"?")<>0 then
s=instr(id,"?")
e=len(id)-s
filterword=mid(id,s,e+1)
id=replace(id,filterword,"")
id=mythief.ReplaceBadChar(id)
else
id=mythief.ReplaceBadChar(id)
end if
set myThief=new clsThief 
myThief.src=SiteUrl&"hits/month_"&id&".htm" 
myThief.steal 
myThief.change "#D2F0FF","ffe4e1" 
myThief.change "#000080","a52a00"
myThief.Change "华军软件园","酷缘网络www.wz899.008.net"
myThief.change "#DFEBF4","ffc0cb"
myThief.change ".htm",""
myThief.change "<a href=/hits/all_1>","<a href=hits.asp?id=1>"
myThief.change "<a href=/hits/week_1>","<a href=week_hits.asp?id=1>"

myThief.change "<a href =/hits/year_1>","<a href=year_hits.asp?id=1>"

myThief.Change "soft/","down/soft.asp?id="

myThief.Change "../new/","new.asp?id="
myThief.change "华军软件","酷缘网络"

mythief.change "../images/","images/"
mythief.change "<script language=javascript src=../newtop.js></script>",""
mythief.change "<script language=javascript src=../inc_copy.js></script>",""
myThief.change "<a href=month_","<a href=month_hits.asp?id="
myThief.change "<script language=javascript src=../newhuagg/newsort.js></script>",""
myThief.change "<script src=../newhuagg/google.js></script>",""
myThief.change "<a href=/hits/month_1>","<a href=month_hits.asp?id=1>"
body=myThief.value
response.write body
response.Flush
set myThief=nothing 
page=""
response.write(page) 
%></TD></TR>
        <TR>
          <TD><!--#include file="down.asp" --></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -