前幾天，為了增強本站的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> /// 去除字串最後一個','號 ///
在 ASP（VBScript 為語言）中，Asc 函數的傳回值小於 0 的，可以被判斷為中文字元。Asc 函數返回與字串的第一個字母對應的 ANSI 字元代碼。複製代碼 代碼如下:'判斷字串中是否有中文字元 '有－返回 true '無－返回 false '這裡的中文字元可能還包括日文、韓文等東方文字 function HasChinese(str) HasChinese = false dim i for i=1 to Len(str) if Asc(Mid(str,i,1)) < 0
<% '****************************** '函數：MakePassword(byval maxlen) '參數：maxlen，要產生的密碼位元長度 '作者：阿里西西 '日期：2007/7/12 '描述：產生任意位元隨機密碼 '樣本：<%=MakePassword(8)%> '******************************
<% '****************************** '函數：FormatDate(DateAndTime, para) '參數：DateAndTime,要格式化的日期時間；para,樣式。 '作者：阿里西西 '日期：2007/7/12 '描述：將日期格式化為需要的格式 '樣本：<%=FormatDate(now(), 3)%> '******************************
<% '****************************** '函數：GetMax(str) '參數：str，待處理的數字數組，以,分隔多了數字 '作者：阿里西西 '日期：2007/7/12 '描述：取得數組中的最大值 '樣本：<%=GetMax("360,120,5,600,32")%> '****************************** function GetMax(str) num=split(str,",") max=num(0)
<% '****************************** '函數：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是內容，
最近實在是太流行採集了，本人是不喜歡採集的，但對採集的原理我卻很有興趣進行研究，拿到了網上採集常用函數，對其進行了一番研究，並實戰，結果成功，撇開效率問題，採集原理並不複雜，大家可以在搜尋吧輸入“採集”查看其原理。下面是一個採集的例子： 複製代碼 代碼如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001%>
RegExp對象的用法： RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立變數。 Set regEx = New RegExp ' 建立Regex。
函數過程： 複製代碼 代碼如下:<% '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")
一個強健 實用的ajax二級聯動菜單(有示範和附來源程式打包下載)前些天在搞背景時候要用到二級聯動的菜單,到網上去找了半天也沒找到滿意的,不是這錯就是那錯,在選擇的時候有時候不能返回.真是鬱悶.
<% '================== '飛雲防CC攻擊ASP程式外掛程式 '建議除必須修改的參數內容外不要修改其他內容 '如果需要反饋錯誤或提交意見,可以到落伍(IM286.COM)聯絡 “正版飛雲” '================== dim FYCC_19,FYCC_20,FYCC_21,FYCC_05 dim FYCC_18 FYCC_05="" 'CCLog.txt存放的路徑檔案夾!需要手動建立!建議留空 '如果輸入,請在前面加上符號"/"
產生HTML方法主要步驟只有兩個： 一、擷取要產生的html檔案的內容 二、將擷取的html檔案內容儲存為html檔案 我在這裡主要說明的只是第一步：如何擷取要產生的html檔案的內容： 目前常用擷取html檔案的內容的方法有以下幾種： 1、 str="<html標記>內容</html標記>"
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
