asp伪静态，利用404错误转向来实现（转载）(页 1) - 站长工具软件 - 草根站长论坛 --我们用心打造中国一流的站长论坛!

wzxy888 发表于 2008-7-8 00:02

asp伪静态，利用404错误转向来实现（转载）

asp伪静态，利用404错误转向来实现（原创）zX$g,U7lx
很多网站用的是虚拟主机  服务商不一定提供伪静态功能。。。5}9tS_6[b
但大部分服务商都提供404错误转向。7Wy8V'v:B)S
利用404错误可以实现伪静态功能。
广告下、。本人网站：连云港信息网 [url=http://www.lyg28.com]http://www.lyg28.com[/url]$Vhz5_E1EB!o'P
可以倒小站来交流下，论坛地址 [url=http://www.lyg28.com/bbs/index.asp?boardid=35]http://www.lyg28.com/bbs/index.asp?boardid=35[/url]h2i]|0K1c@
下面说下原理w#p;V f-CW
比如网站首页 [url=http://www.lyg28.com/index.asp]http://www.lyg28.com/index.asp[/url]
上面的信息地址都为  [url=http://www.lyg28.com/Class/Show.asp?ID=27870]http://www.lyg28.com/Class/Show.asp?ID=27870[/url]xcH[:?2A
写程序时候只要故意把 [url=http://www.lyg28.com/Class/Show.asp?ID=27870]http://www.lyg28.com/Class/Show.asp?ID=27870[/url] 写成
[url=http://www.lyg28.com/show/27870.html]http://www.lyg28.com/show/27870.html[/url]
其实并不存在 [url=http://www.lyg28.com/show/27870.html]http://www.lyg28.com/show/27870.html[/url]这个页面。用户要点击这个超连接的话，就会自
动调用404错误页面
只要报404错误页面定义为asp页面就可以了。)l e? hq,XO4K;Au
其中加入获得 Show.asp?ID=27870 页面的Id 27870 然后利用小偷程序获取改页面的内容w5Ds8]%\5I}
显示在 [url=http://www.lyg28.com/show/27870.html]http://www.lyg28.com/show/27870.html[/url] 页面上。[Y+aH9B!i9n
其中最加了截取带有/show/和.html的页面如果不少就转倒正常的err.html错误页面 \pS {#oMd
测试地址 [url=http://www.lyg28.com/show/27870.html]http://www.lyg28.com/show/27870.html[/url] [url=http://www.lyg28.com/Class/Show.asp?ID=27870]http://www.lyg28.com/Class/Show.asp?ID=27870[/url]`v!xk,K}7K)E:GX
两个页面是一样的。p0G!n$iT#Q~$mp$f
下面是 404错误页面的代码
<% p:hhs%?
Dim webUrl,start,over,reurl,Url,Html
weburl=GetUrl()
start= instr(weburl, "/show/")9cC9hRb&pX)X%I
over =instr(weburl,".html")
if start<>0 and over<>0 then,Kkk%f6LJv8O0T}&T
reurl = mid(weburl,start+6,over-7)'JA(BwH
reurl = replace(reurl,".html=","")!}!HD.a#hR LmjI
else  reurl=""
end if
if reurl<>"" then
url="[url=http://www.lyg28.com/Class/Show.asp?ID=]http://www.lyg28.com/Class/Show.asp?ID="&reurl[/url]
else
url="[url=http://www.lyg28.com/err.html]http://www.lyg28.com/err.html[/url]"
end if
Html = getHTTPPage(Url)
Response.write HtmlLyg_.S;Rx8{

'常用函数 a9D+d S0`,g;h
'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码@5N'lq k1M8_q
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")X(|)[4H!dK!x*q
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
      exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")-GwTQ&@5S
set http=nothing
if err.number<>0 then err.Clear nT+B;X0W&zF
end functioni2l gv9nX8i(y q{
'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行
转换
Function BytesToBstr(body,Cset)
      dim objstream
      set objstream = Server.CreateObject("adodb.stream")
      objstream.Type = 1
      objstream.Mode =3
      objstream.Openp-\*Y%V2o;s^+k
      objstream.Write bodyjm%M3X*\ k[+c@6q}'q
      objstream.Position = 04s-LL o*RB"bq
      objstream.Type = 2)?@:B6S|i1d,b~
      objstream.Charset = CsetnB7g#W7|c^
      BytesToBstr = objstream.ReadText r+X)},?+[}
      objstream.CloseZ*{A D heu
      set objstream = nothingW#wq.r~n
End Function
iB ?c2]1Qv
Dim ScriptAddress, M_ItemUrl, M_item  6]7rCO,V"jW
Function GetUrl()4NK1G;iWG+x qn^
  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址8a9\)oE2m |.p*R:T
  M_ItemUrl = ""6d"Ix!MI6z~#Rf
  If (Request.QueryString <> "") Then
  ScriptAddress =  ScriptAddress & "?"b1\(QL*FUe `
  For Each M_item In Request.QueryString
If InStr(page,M_Item)=0 Then&v&bDFdwu| h%d%cRd0s
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString
(""&M_Item&""))
End IfdtUkE*P{
  Next["t)^5U i_0?D
  end if
  GetUrl = ScriptAddress & M_ItemUrl#r1M;K ?,DP
End Function
%>
GX~,| H6CYL
本思路原创。。google好像能收录。baidu没有测试过。。。大家愿意试一试，就自己写、、 Yqfp$D
转载请注明出自中国站长与广告论坛 [url=http://www.cnwebmasters.com/]http://www.cnwebmasters.com/[/url],本贴地址:[url]http://www.cnwebmasters.com/viewthread.php?tid=12946[/url]

页: [1]

草根站长论坛's Archiver

asp伪静态，利用404错误转向来实现（转载）