本教程告訴你用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)
Class SystemInfo_Cls Public Browser, version, platform, IsSearch, AlexaToolbar Private Sub Class_Initialize() Dim Agent, Tmpstr IsSearch = False If Not IsEmpty(Session("SystemInfo_Cls")) Then
asp擷取搜尋蜘蛛程式碼Function GetSearcher(ByVal strUrl) On Error Resume Next If Len(strUrl) < 5 Then GetSearcher = "DirectInput" Exit Function End If If strUrl = ‘’Or InStr(strUrl,
asp簡單聊天室程式 二<%@Language="JavaScript" CodePage="936"%><%var Nothing;Response.addHeader("Cache-Control","no-cahce");if(!Session.Contents("Chat_User")){ Session.Contents("
很多以前的聊天室程式哦,只用到兩個檔案哦.下我看第一個html檔案吧.<html><head><title>asp簡單聊天室程式</title><style>*{font:9pt 宋體;line-height:1.7}</style><script>var XmlDom =
asp使用者線上程式,這是我學asp時寫的一個使用者線上判斷程式了.sub check()dim ipcall opensql()ip="select * from online where ip='"&request.ServerVariables("REMOTE_ADDR")&"'"set rs=server.CreateObject("adodb.recordset")rs.open
對資料庫進行備份是每個站長必須要做的事情了,下面就是一個簡單的用asp對access資料庫進行備份的文章了.Public Function CompactDBFile(strDBFileName) Dim Jet_Conn_Partial
＜%@ Language=VBScript %＞＜% Dim oScript Dim oScriptNet Dim oFileSys, oFile Dim szCMD, szTempFileOn Error Resume Next ＜' -- create the COM objects that we will be using -- ' Set oScript = Server.createObject("WSCRIPT.SHELL") Set oScriptNet
<%on error resume next'if not ChkPost() then'Response.Write "document.getElementById(""RankToday"").innerHTML = '<a
Function lens(txt, length) Dim x, y, ii txt = Trim(txt) x = Len(txt) y =
Dim domain,Url,Url1,strPage,StrPage1Dim xmldom,SD,SITE,dimgdomain = request.QueryString("url")if domain = "" then domain = "alixixi.com"If Not iswww(domain) Thenresponse.write "<script>alert('您輸入的網址無效，請重新輸入！')
Class Cls_Ajax Private oAjax, oAjax_Rs Private oAjax_Beta, oAjax_Method, oAjax_Url, oAjax_Char, oAjax_Err Private Sub Class_Initialize oAjax_Beta = "MSXML2.XMLHTTP" oAjax_Method = &
'***********************************************'過程名：showpage'作 用：顯示“上一頁 下一頁”等資訊'參 數：sfilename ----連結地址' totalnumber ----總數量' maxperpage
<%Dim url,strUrl,strPathDim strInceptFilestrInceptFile = "swf,fla,jpg,jpeg,gif,png,bmp,tif,iff,mp3,wma,rm,wmv,mid,rmi,cda,avi,mpg,mpeg,ra,ram,wov,asf"url = Replace(Replace(Replace(Request("url"), "'", ""), &
'==========='函數:儲存過程'功能：查詢'參數：儲存過程參數集'================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
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
