各位高手大哥好.小弟请教一个关于WAP网站的ASP小偷程序的问题Http.SetRequestHeader "USER-AGENT","SymbianOS"首先请教上面的这句语句的意思是什么来的？我在一个网站上看到有人说将这句话用到小偷程序里就能偷取一些限制仅限手机访问的网页，但是我不知放在那个地方。下面是小偷程序的源码。请教各位高手上面的语句是放在那个地方或者将那个地方改成这个语句。万分感谢!
7 y+ K2 x8 c M
<%
! S% x ^& ]* t. C1 ]; E9 b4 O4 kfunction getHTTPPage(url)
& w4 Y3 \8 O* m5 n! G5 a. Edim Http
8 w. C' q# m/ {! ^! o2 B
set Http=server.createobject("MSXML2.XMLHTTP")
5 {; u# q4 f0 K' l o1 LHttp.open "GET",url,false
i: R- E# m: J/ sHttp.send()
4 c0 q3 O$ B( j# v" n O- Y8 N' qif Http.readystate<>4 then
# C$ n2 |: H! m/ j# N4 {& Kexit function
( X$ C y' u% d1 p3 K! r; Fend if
. x6 s0 w# G9 e* T
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
% x0 \+ _8 A; |
set http=nothing
! E! Q; U, j1 u, `- h) Wif err.number<>0 then err.Clear
% R$ M( t5 z4 J( u" vend function
8 V: A2 Z( |/ N& m1 Z7 u O; s5 E! W( r% v9 E& H' N) e8 s
Function BytesToBstr(body,Cset)
+ Q# w$ s( h6 d" k2 g
dim objstream
" ^- u. h9 W8 c* x S' F! v6 J4 j
set objstream = Server.CreateObject("adodb.stream")
w9 A C% ~* F; w( }- oobjstream.Type = 1
* k9 ?7 C/ S9 @1 z& }
objstream.Mode =3
0 Y& _* J8 d) V) A% n3 S1 {
objstream.Open
/ D3 `+ n5 |) r. C5 G, y# ^2 uobjstream.Write body
+ |# q( W3 V* G0 k/ {
objstream.Position = 0
W5 T; d$ n. H3 q' [( E$ U, }
objstream.Type = 2
) a( X! Y- }1 j1 f+ N0 |/ s) c0 Zobjstream.Charset = Cset
: ]- { n& M- K/ W6 o8 a
BytesToBstr = objstream.ReadText
4 ~( j: l$ P' }2 z, [! [
objstream.Close
* M% X! I8 c5 X2 j' g \set objstream = nothing
! z( a! `$ @0 j
End Function
* e' x) b0 q* `9 n& a: q
Function dellink(strContent)
8 `1 z" D" k8 F9 ?$ x \# G0 f
for i = 1 to 1000
+ `1 e, {7 U, k4 R# S
If Instr(strContent,"<")>0 and Instr(strContent,">")>0 then
9 A& Y" K& e' p# ~
strContent = Left(strContent,Instr(strContent,"<")-1)&Right(strContent,Len(strContent)-Instr(strContent,">"))
7 u! Y$ G3 S; Q8 X2 Welse
5 Q2 U$ q A; x* j/ Hexit for
6 w5 [! K9 F' a% U! O6 t) [
End if
9 \) A* l' c: M& p8 mnext
6 o* e D9 P+ {5 ]; Y0 m, BstrContent = Replace(strContent,chr(10),"")
# X4 |$ @% v; a/ i
strContent = Replace(strContent,chr(13),"")
* T" @% m8 N1 s5 J$ T1 E- P) \1 ~
strContent = Replace(strContent," ","")
( F+ i+ u8 H, t; `/ @strContent = Replace(strContent," ","")
. ]7 |6 F, o% i
strContent = Replace(strContent," ","")
" j3 Z0 D* Q- w! Y2 q$ W- Sdellink=strContent
. b; R+ f0 ?- i) Q* V$ Z
end Function
: g# R. W3 J7 l4 U( @! N7 qDim Url,Html,start,over,body
4 E# K8 B( G( [* O W8 [content=getHTTPPage("
http://jq.lxyes.com/index.aspx")
% I3 x+ M2 w7 x8 m/ C9 \; C
numstart=InStr(content,"<card")
1 Z7 S( o+ y( }! o9 lnumstart1=InStr(content,"</p>")
5 [& x( Z7 r/ A" @; O8 U$ y
numstarts=numstart1-numstart
& e+ J/ Y# M' x+ e, s' T! C$ q1 _content=MID(content,numstart,numstarts)
8 p# A- ?0 I# T* q5 J- w'取新闻结束
) U( c% ?# X; F8 D7 a6 Pcontent=replace(content,"","")
, H( x& s! w" i, P% g* i3 ^
content=replace(content,"","")
2 }) s3 S" n7 D
content=replace(content,"","")
& ^. v% I- Q7 S) Pcontent=replace(content,"","")
$ A; x# a) I0 r" h; Q6 j. fcontent=replace(content,"","")
8 G: }' X/ U% f3 B. l0 w
content=replace(content,"","")
3 `9 M6 {! J' B" `
content=replace(content,"","")
( }* `) J) l' P) V8 S/ z' Vcontent=replace(content,"","")
' W5 ?* f- e4 g
& j9 H( u. n2 }1 }8 hresponse.write content
1 n* N1 c3 Y# \If page=0 then
* s! m8 I" j7 q8 ]2 X6 |! A0 u
Response.Write ""
- Z/ y$ r, h9 Y# DEnd if
( i$ y; ~+ x0 c2 J% n8 @0 O- `( q%>
