ASP

前幾天，為了增強本站的SEO，著手把另一個網域名稱：www.kanshule.com下的所有頁面301轉向到www.jb51.net下。 　　由於本站目前只有一個部落格，於是從部落格上入手。 　　思路很簡單，擷取當前瀏覽頁面的網域名稱，如果是需要轉向的網域名稱，再替換網域名稱部分，做為新地址來301轉向。 　　代碼如下：複製代碼 代碼如下:<% Dim toDomain,fromDomain,curDomain,q,p,url toDomain=www.jb51.net

複製代碼 代碼如下: < % Set fso=Server.CreateObject("Scripting.FileSystemObject") str="<html><title>asp產生word檔案舉例</title><body><span style='color:#ff0000;font-size:36px;

<% Dim aData aData = Array(3,2,4,1,6,0) Call ResponseArray(aData, "原來順序") Call ResponseArray(SelectSort(aData), "選擇排序") Call ResponseArray(QuickSort(aData), "快速排序") Call ResponseArray(InsertSort(aData), "插入排序") Call ResponseArray(BubbleSort(aData)

/// <summary> /// 得到網站使用者IP /// </summary> /// <returns></returns> public static string getUserIP() { return HttpContext.Current.Request.ServerVariables["REMOTE_ADDR"].ToString(); } /// <summary> /// 去除字串最後一個','號 ///

<% '****************************** '函數：MakePassword(byval maxlen) '參數：maxlen，要產生的密碼位元長度 '作者：阿里西西 '日期：2007/7/12 '描述：產生任意位元隨機密碼 '樣本：<%=MakePassword(8)%>  '******************************

<% '****************************** '函數：Userip() '參數：無 '作者：阿里西西 '日期：2007/7/12 '描述：取得用戶端IP地址 '樣本：<%=Userip()%> '****************************** Function Userip() Dim GetClientIP '如果用戶端用了Proxy 伺服器，則應該用ServerVariables("HTTP_X_FORWARDED_

截取字串特定部分內容函數<% '****************************** '函數：GetKey(HTML,Start,Last) '參數：HTML,待截取的原字串；tart,截取開始標記；last,截取結束標記 '作者：阿里西西 '日期：2007/7/12 '描述：截取字串函數，從Start開始截取，到Last為結束 '樣本：<%=GetKey("阿里西西，國內最大的WEB開發資源","最大的","資源")%> '**********************

<% '****************************** '函數：RemoveHref_A(HTMLstr) '參數：HTMLstr，待去除連結的字串 '作者：阿里西西 '日期：2007/7/12 '描述：去除字串中所有的超級連結 '樣本：<%=RemoveHref_A("<a href=/abc/h.html>測試</a>")%> '******************************

本帖將收集和徵集最全面的ASP編程應用中通用功能函數，人人為我，我為人人：） 只要大家每人獻出一兩條自己收藏已久，精典的通用函數，我想本帖將會對許許多多的ASP編程愛好者、工作者有很大的協助，也將成為大家ASP編程的必備函數集。 趕快檢查您自己的函數庫吧，看一下你有的我們這裡都有了嗎？ 如果你發現了你的函數庫裡還有著那麼一兩條鮮為人知的函數，那快點以下面格式跟帖回複吧。 發表通用函數文章格式：複製代碼 代碼如下:<% '****************************** '函數：

今天才發現這個函數的作用，原來可以尋找特定的字元或者字串。 下面是我寫的簡單例子： <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001%>  <% Response.Charset="UTF-8" %>  <% dim content_text,searchword_text 'content是內容，

函數過程： 複製代碼 代碼如下:<%  'del.asp  dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles  set fso=server.CreateObject("Scripting.FileSystemObject")  sub delfolder(sPath) 

今天在對搜尋吧的程式進行utf-8修正時，發現產生的utf-8格式文檔存在著亂碼，原來檔案 create_html.asp代碼如下： 複製代碼 代碼如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  <%  set objrs=server.createObject("Scripting.FileSystemObject") 

產生HTML方法主要步驟只有兩個：  一、擷取要產生的html檔案的內容  二、將擷取的html檔案內容儲存為html檔案  我在這裡主要說明的只是第一步：如何擷取要產生的html檔案的內容：  目前常用擷取html檔案的內容的方法有以下幾種：  1、  str="<html標記>內容</html標記>" 

adodb.stream對象的方法/屬性 Cancel 方法      使用方法如下      Object.Cancel      說明：取消執行掛起的非同步 Execute 或 Open 方法的調用。 Close  方法

<%  A_Key=split("96,44,63,80",",") '定義密鑰  '*********加密的過程*********  Function EnCrypt(m)  Dim strChar,iKeyChar,iStringChar,I  k=0  for I = 1 to Len(m) 

要使用request對象的ServerVariables屬性，通過它來獲得環境變數的值。使用的文法為：Request.ServerVariables(variable)，“variable”表示環境變數的名稱，如伺服器主機名稱、Web伺服器軟體名等等，若“variable”為“REMOTE_ADDR”則表示訪問者的IP地址，通過它就可以實現IP地址的過濾。  　　來源程式如下：(檔案名稱：demo.ASP) 　　 <html>  　　 <

代碼可以最佳化，請根據自己需求進行最佳化  說明： 所先把所有分類讀取存放到JS數組中(如果資料量大可能就有點麻煩) 當選擇時候返回父分類ID 在從數組中找出符合的分類，然後顯示給使用者 資料庫設計(可以根據自己需求添加欄位，如此分類屬於什麼分類等等) 欄位            類型      &

作者： 孫立 Email: 17bizAT126.com 寫於:2006/3/5 著作權聲明：可以任意轉載，轉載時請務必以超連結形式標明文章原始出處和作者資訊及本聲明 http://sunli.cnblogs.com/archive/2006/03/05/343095.html 關鍵詞:ASP 模板

前言  　　常有人希望在某個特定時間，可以自動某支 ASP 程式，進行某項作業，比如：發電子信、資料庫整理等。  方法  一、你可以去找 aspexe 元件來使用  二、你可以使用 WSH的方式來處理。以下文章是轉載至某個大陸網站（我已經忘了出處了～）  WSH 基本上和 ASP 的寫法是一樣的除了 

By zkxp 2/15/2006 http://zkxp.cnblogs.com ‘受屏蔽IP地址(段)集合，星號為萬用字元，通常儲存於設定檔中。 <% Const BadIPGroup = "220.200.59.136|220.205.168.141" If IsForbidIP(BadIPGroup) = True Then