แนะนำ: วิธีการเข้าถึงหลายชื่อโดเมนในพื้นที่เว็บไซต์เดียว รหัส ASP ที่สามารถเปิดใช้งานการเข้าถึงชื่อหลายโดเมนในพื้นที่เว็บไซต์: ต่อไปนี้เป็นเนื้อหาอ้างอิง: %ถ้า request.ServerVariables (server_name) = & q
เมื่อใดก็ตามที่การจัดอันดับ Alexa ได้รับการอัปเดตฉันต้องจัดเรียงการจัดอันดับของเว็บไซต์ที่คล้ายกันทั้งหมดที่เกี่ยวข้องทั้งหมดและดูการอัปเดตการจัดอันดับของเว็บไซต์คู่แข่งเหล่านี้ ฉันทำมากขึ้นและฉันรู้สึกรำคาญ แม้ว่าฉันจะมีเว็บไซต์มากกว่า 30 เว็บไซต์ แต่ฉันก็รู้สึกเหนื่อยเล็กน้อยหลังจากดูพวกเขาทีละคน ดังนั้นฉันสงสัยว่าฉันสามารถใช้โปรแกรมเพื่ออ่านข้อมูลการจัดอันดับได้หรือไม่
ฉันเคยจำไว้ว่าในเว็บไซต์ที่มีรายการเว็บไซต์ที่สมบูรณ์นอกจากนี้ยังมีการจัดอันดับโลกของเว็บไซต์นี้หลังจากชื่อเว็บไซต์ ฉันเชื่อว่าโปรแกรมจะต้องอ่านไม่เช่นนั้นฉันจะหมดแรงถ้าฉันตรวจสอบทีละคน อย่างไรก็ตามหลังจากเรียกดูเว็บไซต์ Alexa ทั้งหมดฉันไม่พบวิธีที่จะได้รับข้อมูลการจัดอันดับโดยตรง แม้ว่าจะมีรหัสบางอย่างเช่น: จำนวนของภาพไม่สามารถอ่านได้
หลังจากนั้นฉันต้องการอ่านหน้าโดยไม่ต้องใช้ XMLHTTP แล้วตัดหมายเลขนั้นออก? ปัญหาเป็นปัญหาเล็กน้อยบางทีคุณอาจลองดู ดังนั้นฉันจึงเริ่มดูสองหน้าที่แสดงการจัดอันดับ
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: http://www.alexa.com/data/details/@url=www.itlearner.com และ http://www.alexa.com/data/details/traffic_details@q=! แอมป์; url = www.itlearner.com, ดูไฟล์ต้นฉบับค้นหาอันดับการจราจรสำหรับการจัดอันดับเว็บไซต์ของฉันมีดังนี้: <ti> <bbip> <traffic> <day> 4 </วันนี้> </ทราฟฟิก> </bbip> </ti> 5 <tprp> <pyp> อันดับ:> </pyp> </tprp> <day> 7 </วันนี้> <การดูหน้าต่อผู้ใช้:> <[email protected]> <day> 6 </day> </[email protected]> </หน้าดูผู้ใช้:> <[email protected]> ฉันค้นหาอีกครั้งและเห็นว่าอันดับการจราจรปรากฏขึ้น: วันนี้ 1 สัปดาห์ avg. 3 mos. avg. 3 mos. เปลี่ยน. วันนี้และ 1WK ในรูปแบบก่อนหน้านี้ทั้งสองแสดงอยู่ในรูปแบบข้างต้น เมื่อพูดถึง 3 MOS ซึ่งเป็นข้อมูลที่สำคัญที่สุดมันจะแสดงโดยตรงกับตัวเลข เยี่ยมมาก! |
หลังจากวิเคราะห์รหัสก่อนและหลังฉันพบว่ารหัสที่อยู่เบื้องหลังข้อมูลไม่ซ้ำ </td> <td class = bodybold align = center bgcolor =#ffffff> <img ดังนั้นฉันจึงเริ่มการเขียนโปรแกรม
ตัวอย่างซอร์สโค้ดต่อไปนี้สำหรับการอ้างอิงของคุณ:
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: <% ฟังก์ชั่นส่วนตัว Bytes2BSTR (VIN) dim i, thischrcode, nextchrcode strreturn = สำหรับ i = 1 ถึง lenb (vin) ThisChrCode = ASCB (MIDB (VIN, I, 1)) ถ้า thischrcode <! amp; h80 จากนั้น strreturn = strreturn! แอมป์; Chr (Thischrcode) อื่น ๆ nextchrCode = ascb (midb (vin, i 1, 1)) Strreturn = Strreturn! แอมป์; CHR (CLNG (nistChrCode) *! AMP; H100 CINT (NextChrCode)) i = i 1 end ถ้า next bytes2bstr = ฟังก์ชั่น strreturn end function geturl (url) Set Retrieval = Server.createObject (Microsoft.xmlhttp) ด้วยการดึงข้อมูล เปิด get, url, false, ส่ง getUrl = .ResponSetExt getURL = BYTES2BSTR (.ResponseBody) จบด้วยชุด Retrieval = ไม่มีฟังก์ชันจบ ด้านบนเป็นรหัสทั่วไปสำหรับการอ่านรหัสหน้าโดยใช้ XMLHTTP ฟังก์ชั่น getalexarank (URL) ในข้อผิดพลาดกลับมาทำงานใหม่ Dim Tempstr, TrueUrl, X, Keystr trueUrl = http://www.alexa.com/data/details/traffic_details@q=! amp; url =! แอมป์; url tempstr = geturl (trueurl) keystr = </td> <td class = bodybold align = center bgcolor =#ffffff> <img tempstr = split (tempstr, keystr) (0) x = instrrev (tempstr,>) 1 tempstr = mid (tempstr, x) ถ้า err แล้ว getalexarank = err.description err.lear else getalexarank = tempstr สิ้นสุดถ้าฟังก์ชันสิ้นสุด |
ข้างต้นคือข้อมูลที่อ่านหน้าเว็บไซต์ Alexa วิเคราะห์รหัสแล้วรับการจัดอันดับ
| ต่อไปนี้เป็นเนื้อหาที่ยกมา: dim url url = www.itlearner.com URL to Query อย่าเพิ่ม http: //response.write (getalexarank2 (url)) ลงในข้อมูลการจัดอันดับเอาต์พุต - |
ในอนาคตฮิฮิไม่จำเป็นต้องตรวจสอบการจัดอันดับเว็บไซต์ที่เกี่ยวข้องของ บริษัท ทีละคน คุณเพียงแค่ต้องใส่เว็บไซต์เหล่านั้นในโปรแกรมเพื่อให้โปรแกรมอ่านทีละรายการ
แบ่งปัน: วิธีซ่อนที่อยู่จริงของรูปภาพ โดยทั่วไปแล้วรหัสรูปภาพของเว็บไซต์เป็นเช่นนี้ ต่อไปนี้เป็นเนื้อหาที่ยกมา: img src =./attightments/test.jpg/>