توربەتچىلەرگە ئاددىHTML ھاسىل قىلىش كودى

بىجىرىم

تور بەت قۇرۇپ باققانلار ياكى ئۆگىنىۋاتقانلار بىلىدۇ HTML  بولسا ساندان كەتمەيدىغان ، ئىزدەش ماتورلىرى مەزمۇنىنى تېز تاپالايدىغان، ساندان كەتمىگەچكە ساندانغا بېسىم ئەكەلمەيدىغان ئېچىلىشى بىر قەدەر تېز تور بەت ھۆججىتى . ئەمما بۇ تىنىچ بەت بولغاچقا تا بىر تەھرىرلىگۈچ ئارقىلىق تەھرىرلىمسە ئۆزگەرتكىلى بولمايدۇ. ئەمدى بۇنى چۈشەندۈرۈپ يۈرمەي . ئەمدى نەق گەپكە كەلسەك.
' w2 Q9 M4 Q4 |4 A, Qئەڭ ئاددى كود بولغان بۇ كودنى ، كۆرسىتىپ بېرىلگەن بەتنى بىر كۇنۇپكا بىلەن HTML ھاسىل قىلالايدىغان asp كودىنى تېپىپ ئازراق ئۆزگەرتىپ چىقتىم.
نۆۋەتتە  http://bijirim.com/index.html  مانا مۇشۇنداق ھالەتتە ھاسىل قىلالايدۇ يەنى ئەسلىدىكى http://bijirim.com/index.asp نى. ھازىرچە مۇشۇ كودتىن پايدىلىنىپ باش بەت index.asp ھۆججىتىنى تىنىچ بەت ھاسىل قىلىدىغان قىلدىم .
بۇ كود ئارقىلىق دائىم سانداندىن ئۇچۇر قوشۇلۇپ id بويىچە قىلىدىغانغا بولمايدۇ . پەقەت http://bijirim.com/index.asp  http://bijirim.com/kino.asp    http://bijirim.com/mtv.asp... لارغا ئوخشاش مۇقىم asp ھۆججىتىنىلا قىلالايدۇ.  يەنى كودتىكى http://bijirim.com/ نىڭ ئورنىغا تور ئادىرسىڭىز ۋە شۇasp   ھۆججىتىىنىڭ ئادىرىسىنى يېزىپ بېرىسىز.
) K& y" G% o  ]2 jكودى:

1. 
   
2. 
   , I& n2 ?+ T) \9 z/ x
3. 
   2 ]- a+ b; G- y' `
4. ITle>bax bat html hasil kilix Bijirim.com
   
5. 
   3 t. @: R7 y: Z7 Q; ~
6. 
   
7. <%
   / E1 t/ D( x6 w
8. call CreateHtml("http://bijirim.com/","/index.html")
   % O( G4 K) u2 ^8 s& b
9. Function CreateHtml(RemoteFileUrl,LocalFileName)
   
10. dim objXmlHttp
    : M+ i6 t6 R/ I/ ?# V  b2 a  ]8 j% s
11. set objXmlHttp = Server.CreateObject("Micr"&"oso"&"ft.XM"&"LHT"&"TP")
    ( U/ M  Z" S" }* F- Z& f' F
12. 
    " K8 v' l9 V4 \$ D6 F1 `
13. '后台目录url
    / M. v: V$ |- v; w+ m. s, L
14. http=request.ServerVariables("HTTP_REFERER")
    / s' q: P8 P; ?" B9 {* u
15. http=Mid(http,1,InStrRev(http,"/"))
    
16. if InStr(lcase(RemoteFileUrl),"http://")<=0 then
    % |7 X/ W; w" u) v7 ]9 a4 [4 @
17. RemoteFileUrl=http&RemoteFileUrl
    
18. end if
    
19. 
    
20. if instr(RemoteFileUrl,"?")>0 then
    % p2 L3 U! f8 b  w. ?' D  G7 b3 s
21. RemoteFileUrl2=RemoteFileUrl&"&getkey_n="&getkey_n(6)
    
22. else
    
23. RemoteFileUrl2=RemoteFileUrl&"?getkey_n="&getkey_n(6)
    $ R: ^1 M* O( {* P' \" X* j( C
24. end if
    
25. 
    0 V4 }- c8 D: M% I- g$ C8 B
26. objXmlHttp.open "GET",RemoteFileUrl2,false
    ; \) `3 ?7 _" ?, v# d% `- @
27. objXmlHttp.send()
    
28. Dim binFileData
    
29. binFileData = objXmlHttp.responseBody
    # M0 U9 v! i& {! ?! g5 v, w1 E
30. Dim objAdoStream
    
31. set objAdoStream = Server.CreateObject("ADO"&"DB.Str"&"eam")
    
32. objAdoStream.Type = 1
    
33. objAdoStream.Open()
    
34. objAdoStream.Write(binFileData)
    & M& n- s. l; H3 c! K; N9 N
35. objAdoStream.SaveToFile server.MapPath(LocalFileName),2
    ( w' R5 u1 a% f1 a. i2 x' O2 J( p
36. objAdoStream.Close()
    6 x! }  x9 b) C8 ^6 D2 x
37. response.write("ھاسىل قىلىنغان بەت"&LocalFileName&" ئوڭۇشلۇق بولدى
    "&vbcrlf)
    # F* d5 Y( K8 ]8 e! T5 s
38. response.Flush()
    
39. End Function
    9 p7 r  o( g1 ~( l, J# j9 A
40. 
    
41. '随机数字
    
42. Function getkey_n(digits)
    
43. dim char_array(50),output,num
      w" T5 \, M' ?& N8 W! T
44. output=""
    . S4 X! @7 x4 J* T
45. char_array(0) = "0"
    
46. char_array(1) = "1"
    " N: u' t) [8 w' t/ N. j
47. char_array(2) = "2"
    + N8 E0 l9 A  c! J
48. char_array(3) = "3"
    9 o' }6 n9 k  I. m9 Z& Y
49. char_array(4) = "4"
    + \* w) g( Q3 `! f) K4 {
50. char_array(5) = "5"
    
51. char_array(6) = "6"
    # q: y+ q3 P1 b/ c
52. char_array(7) = "7"
    
53. char_array(8) = "8"
    ( W/ V" j+ l) Q( _$ v! Z) e
54. char_array(9) = "9"
    
55. randomize
    
56. do while len(output) < digits
    
57. num = char_array(Int((9 - 0 + 1) * Rnd + 0))
    - ~  h1 n5 w% b5 k9 ~
58. output = output + num
    
59. loop
    
60. getkey_n = output
    9 {8 X$ ~- M1 x6 w
61. End Function
    
62. %>
    $ K9 s1 j8 a: p1 @
63. 
    
64. 
    , ?! b8 M2 H8 h/ A' i

مەزمۇننى كۆچۈرۈۋېلىش

كودىنى ئايرىم بىر ئۆزىڭىز بىلىدىغان خالىغان نامدا asp  ھۆججەت قىلىپ ساقلاپ بوشلۇقتا ئىجرا قىلسىڭىزلا بولىدۇ .مەسىلەن : http://bijirim.com/hasil.asp بۇ دەل باش بەتنى تىنىچ بەت ھاسىل قىلىش كودى.

Tursunniyaz

; N' Q7 C/ C9 R2 Z" u: F% S0 W5 B
/ b, V; y) B, ~1 x3 Sبىجىرىم تورنىڭ ئاتامانى مەردان ئەختەم يەنى روھلان تور بېكىتىنىڭ ئاتامانى ئادىلجاننىڭ ئىنىسى شۇدۇ؟