ASP

asp 檔案採集代碼我們用到xmlhttp來抓取遠程伺服器檔案的內容再把它轉換成相關編碼<%Function getHTTPPage(Path)        t = GetBody(Path)        getHTTPPage=BytesToBstr(t,"UTF-8")End functionFunction

asp 友情連結檢查工具源碼下載<%If not isEmpty(Request.Querystring("d")) Then  dm = Request.Querystring("d") Set obj = Server.CreateObject("liuganExt.friendLink") arr = obj.getLinks(dm) linkArr =

asp 抓取baidu收錄網頁數代碼<%response.expires = -1response.addheader "cache-control","no-cache"Response.AddHeader "Pragma","no-cache"wd=Request("d")If Request("s")="baidus" ThenBaiduUrl=

asp抓取bing收錄與反連代碼<%response.expires = -1response.addheader "cache-control","no-cache"Response.AddHeader "Pragma","no-cache"wd=Request("d")If Request("s")="bings"

asp sogou收錄抓取程式<%response.expires = -1response.addheader "cache-control","no-cache"Response.AddHeader "Pragma","no-cache"wd=Request("d")If Request("s")="sogous" Then 

asp yahoo收錄與反鏈查詢抓取代碼<%response.expires = -1response.addheader "cache-control","no-cache"Response.AddHeader "Pragma","no-cache"wd=Request("d")If Request("s")="yahoos"

asp youdao收錄抓取代碼<%response.expires = -1response.addheader "cache-control","no-cache"Response.AddHeader "Pragma","no-cache"wd=Request("d")If Request("s")="youdaos" ThenYoudaoUrl=

<%response.expires = -1response.addheader "cache-control","no-cache"Response.AddHeader "Pragma","no-cache"wd=Request("d")If Request("s")="sosos"

1. 建立多個COMMAND對象DIM MYCOMMSET MYCOMM = SERVER.CREATEOBJECT("ADODB.COMMAND")'調用儲存進程一......SET MYCOMM = NOTHINGSET MYCOMM = SERVER.CREATEOBJECT("ADODB.COMMAND")'調用儲存進程二......SET MYCOMM = NOTHING......2.

返回多個記錄集的儲存進程本文最先介紹的是返回記錄集的儲存進程。有時候，需要一個儲存進程返回多個記錄集，在ASP中，如何同時取得這些記錄集呢？為了說明這一問題，在USERINFO表中增加兩個欄位：USERTEL及USERMAIL，並設定只有登入使用者可以查看這兩項內容。/*SP7*/CREATE PROCEDURE DBO.GETUSERINFO@USERID INT,@CHECKLOGIN BITASSET NOCOUNT ONBEGINIF @USERID IS NULL OR

同時返回參數和記錄集的儲存進程有時候，我們需要儲存進程同時返回參數和記錄集，比如在利用儲存進程分頁時，要同時返回記錄集以及資料總量等參數。以下給出一個進行分頁處理的儲存進程：/*SP6*/CREATE PROCEDURE DBO.GETUSERLIST@IPAGECOUNT INT OUTPUT, --總頁數@IPAGE INT, --當前頁號@IPAGESIZE INT --每頁記錄數ASSET NOCOUNT ONBEGIN--建立暫存資料表 CREATE TABLE #T (ID INT

有輸入參數和輸出參數的儲存進程傳回值其實是一種特殊的輸出參數。在大多數情況下，我們用到的是同時有輸入及輸出參數的儲存進程，比如我們想取得使用者資訊表中，某ID使用者的使用者名稱，這時候，有一個輸入參數----使用者ID，和一個輸出參數----使用者名稱。實現這一功能的儲存進程如下：/*SP4*/CREATE PROCEDURE DBO.GETUSERNAME@USERID INT,@USERNAME VARCHAR(40) OUTPUTASSET NOCOUNT ONBEGINIF

有傳回值的儲存進程在進行類似SP2的操作時，應充分利用SQL SERVER強大的交易處理功能，以維護資料的一致性。並且，我們可能需要儲存進程返回執行情況，為此，將SP2修改如下：/*SP3*/CREATE PROCEDURE DBO.DELUSERALLASSET NOCOUNT ONBEGINBEGIN TRANSACTIONDELETE FROM DBO.[USERINFO]IF @@ERROR=0 BEGINCOMMIT TRANSACTIONRETURN

只返回單一記錄集的儲存進程假設有以下儲存進程(本文的目的不在於講述T-SQL文法，所以儲存進程只給出代碼，不作說明)：/*SP1*/CREATE PROCEDURE DBO.GETUSERLISTASSET NOCOUNT ONBEGINSELECT * FROM DBO.[USERINFO]ENDGO以上儲存進程取得USERINFO表中的所有記錄，返回一個記錄集。通過COMMAND對象調用該儲存進程的ASP代碼如下:'**通過COMMAND對象調用儲存進程**DIM

採集是現在站長們常用的快速建站的方式了，我們可以用專業的採集軟體來實現快速採集，這個網站可以快速建起來，但是對被採的站長來說這是一個痛苦啊，因為頻寬問題會讓網站無法正常訪問哦。下面我們來看一個asp防採集方法吧。<% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒內要求節流10次 AppealCount=Request.Cookies("AppealCount") If AppealCount=""

<% Rem 初始化ExcelApplication的工作環境 Dim ExcelApp,eBook,eSheet Set ExcelApp = CreateObject(”Excel.Application”) ‘建立Excel對象 ExcelApp.DisplayAlerts=false ‘不顯示警告 ExcelApp.Application.Visible=false ‘不顯示介面 Rem 初始化Excel資料

 一種方法直接生產的ASP頁面，而不是顯示在標準瀏覽器中，為了做到這一點你必須改變伺服器的響應的內容類型為Word文檔的HTML。把對您的ASP頁的頂部以下行：<%Response.ContentType =

Google對PR查詢加密後，ASP版的PR查詢代碼就很少見了，今天找到一個，給需要的站長，完整的代碼如下：<%@LANGUAGE="JAVASCRIPT"%><form name="zzsky" method="get" action=""> <input type="text" name="site"><input

以下是原始碼:<% Set d = CreateObject("Scripting.Dictionary") d.add "a",-20319 d.add "ai",-20317 d.add "an",-20304 d.add "ang",-20295 d.add "ao",-20292 d.add "ba",-20283 d.add

<%'定義xmlhttpfunction GetXmlText(Url)dim GetXmlHttpset GetXmlHttp=server.Createobject("Microsoft.XMLHTTP")GetXmlHttp.open