ASP

在本教程，我們將使用微軟的XMLHTTP請求對象的網頁遠程地址從我們的伺服器。這個對象包含在微軟的XML的DOM組成部分，這可能是安裝在您的伺服器。 傳統使用的微軟的XMLHTTP對象是訪問遠程XML檔案。在此基礎教程，我們將用它來擷取文字代碼從一台遠程伺服器。這將是相同的資訊我們的瀏覽器會在訪問該網頁。 例如在波紋管，我們已成立一個變數命名GotothisURL其中包含的網頁的網址，我們將要求我們的伺服器訪問。應對這次訪問將儲存到變數ResponsePage

本教程告訴你用asp來判斷當前瀏覽使用者來自那裡,如果來自那個搜尋引擎之類的,下面我們就來看看寫法吧.  function getSearchKeyword(sRefererUrl){  //取搜尋引擎中的關鍵字   var p = "("      + "google.+?q=([^&]*)" + "|sina.+?word=([^&]*)

<% oConn.Open();  var bIsLogined = chkLogin(true);  var iDaySum = 0; var iPageDaySum = 0; var iDayMax = 0; var iPageDayMax = 0; var aDay = new Array(); var aPageNowHour = new Array(); var

ASP Browser 組件執行個體教程瀏覽器功能的ASP組件 該瀏覽器功能的ASP組件建立一個BrowserType對象確定的類型，功能和版本號碼每個瀏覽器訪問您的網站。 當瀏覽器串連到一個伺服器，一個HTTP使用者代理程式頭也發送到伺服器。這頭包含有關瀏覽器（如瀏覽器類型和版本號碼） 。該BrowserType對象然後比較中的資訊與資訊標題在一個檔案中的伺服器上所謂的“ Browscap.ini ” 。

asp 檢測網域名稱是否註冊代碼<%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path)        t = GetBody(Path)  getHTTPPage=BytesToBstr(t,"GB2312")End functionFunction GetBody(url)

dim oUpFileStreamClass upload_file  dim Form,File,Version  Private Sub Class_Initialize    '定義變數  dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo  dim

'***********************************************'過程名：showpage'作  用：顯示“上一頁 下一頁”等資訊'參  數：sfilename  ----連結地址'       totalnumber ----總數量'       maxperpage 

<%'*************************************************'函數名：gotTopic'作  用：截字串，漢字一個算兩個字元，英文算一個字元'參  數：str   ----原字串'       strlen

<%Dim Query_Badword,Form_Badword,i,Err_Message,Err_Web,name Err_Message = 1  '處理方式：1=提示資訊,2=轉向頁面,3=先提示再轉向Err_Web =

<%@LANGUAGE = "VBScript" CODEPAGE="936"%><%Option Explicit%><!--#include file="Cls_PageView.asp"-->Class Cls_PageView Private sbooInitState Private sstrPageUrl Private

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%On Error Resume Nextdim startime,endtimestartime=timer()'串連資料庫dim db,conn,rsdb = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("./db.mdb"

<%@language="vbscript" codepage="936"%><%'定義資料連線option expliciton error resume nextdim startime,endtimestartime=timer()dim db,conn,rsdb = "provider=microsoft.jet.oledb.4.0;data source=" &

<% '================================================' By Kangk.L'Date    2006-04-07'Program Name  Kangk PageAc'Class Name   Cls_PageAc'''---------Property

<%const iis3onchsys=falsefunction htmlencode2(str)    dim result    dim l    if isNULL(str) then        htmlencode2=""       exit

<%function DelectImageFile(NewsID,i)set DelectFile=server.CreateObject("scripting.filesystemobject")CurrentPath=server.MapPath("images/news/")FileName=CurrentPath  & "" & NewsID & "-" &

Function UBBEnCode(Content)fString=ContentfString=replace(fString,"<","&lt;")fString=replace(fString,">","&gt;")fString=replace(fString,chr(13),"<BR>")fString = doCode(fString,

On Error Resume NextFy_Url=Request.ServerVariables("QUERY_STRING")Fy_a=split(Fy_Url,"&")redim Fy_Cs(ubound(Fy_a))On Error Resume Nextfor Fy_x=0 to ubound(Fy_a) Fy_Cs(Fy_x) = left(Fy_a(Fy_x),instr(Fy_a(Fy_x),"=")

'==========='函數:儲存過程'功能：查詢'參數：儲存過程參數集'================function dbstroce(query_sign,table,outerfield,condition,orderfield,strInsert,isorder) set cmd = server.CreateObject("ADODB.Command") cmd.commandText="p_Agents_query"&

function get_substring(str,length) dim result result = str if len(str)>length then  result = left(str,length-1)&"..." end if get_substring = resultend functionfunction getpage(page) dim result&

'================================================='過程名：RemoveHTML( strText )'作  用：去處HTML'參  數：strText:操作對象'=================================================Public Function RemoveHTML( strText )        Dim