複製代碼 代碼如下:allpages=ubound(contentarray) for dxy_ii=0 to allpages pagelist1="當前"&dxy_ii+1&"/"&(allpages+1)&"頁 " pagepre="" pagelast="" if dxy_ii>0 then cpage=cint(dxy_ii) if cpage<0 then cpage=0 if cpage=1 then
十種接近瘋狂的站長—— 阿江以下十種站長多數是失敗的站長,而傳授他們下面的方法的那群人可能成功了。這些本來是垃圾站長的特徵,卻被越來越多的非垃圾站長學去,他們在不經意間把自己的心血變成了垃圾。 很多很多人在得到了那些虛假的、短暫的流量之後,才發現自己丟失了最最珍貴的東西,而一個站長在網站上付出的心血也都前功盡棄。 1、瘋狂作弊搜尋引擎 這其中最嚴重的幾項是: ① 瘋狂堆砌關鍵詞; ② 使用反向連結機向互連網上能點“提交”按鈕的地方大量輸送重複的、連串的、無關的網址串連 ③
<script language="JavaScript1.2"> function changeto(highlightcolor){ source=event.srcElement if (source.tagName=="TR"||source.tagName=="TABLE") return while(source.tagName!="TD") source=source.parentElement if
從新浪看到的檢測廣告顯示判斷函數複製代碼 代碼如下:<script>pagepubtime = "2006-08-31"; //廣告顯示判斷 function checkPubTime(){ //分解年、月、日 DateTime = new Array(); DateTime = pagepubtime.split("-"); var year = DateTime[0]; var month = DateTime[1]; var
複製代碼 代碼如下:<% Rem ================================================================= Rem = 類:CacheCls Rem = 說明:緩衝的應用 Rem = Revision:1.01 Beta Rem = 作者:熊氏英雄(cexo255) Rem = Date:2005/05/6 18:38:10 Rem = QQ:30133499 Rem =
複製代碼 代碼如下:'//轉換中文為unicode function URLEncoding(vstrIn) dim i dim strReturn,ThisChr,innerCode,Hight8,Low8 strReturn = "" for i = 1 to Len(vstrIn) ThisChr = Mid(vStrIn,i,1) If Abs(Asc(ThisChr)) < &HFF then
文章作者:千寂孤城 資訊來源:邪惡八進位資訊安全團隊 朋友要刷票,我幫他寫了個刷票的指令碼。但是指令碼只能單線程的運行,太慢了,於是我用wmi配合寫了個類比多線程的指令碼。(其實是多進程的,呵呵) 複製代碼 代碼如下:'Created by 千寂孤城 set shell=createobject("wscript.shell") set http=createobject("Microsoft.XMLHTTP") '獲得“wscript.exe”進程的數量 a=0 for each ps in