ASP

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

<% '****************************** '函數：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是內容，

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二級聯動菜單(有示範和附來源程式打包下載)前些天在搞背景時候要用到二級聯動的菜單,到網上去找了半天也沒找到滿意的,不是這錯就是那錯,在選擇的時候有時候不能返回.真是鬱悶. 

產生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) 

看到很多人需要，就放出來，好東西大家一起分享。  複製代碼 代碼如下:Function content_Code(Str)    dim ary_String,i,n,n_pos    ary_String=split(Str,"[ code ]")    n=ubound(ary_String) 

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

cookies跨不了域很麻煩,有了這個指令碼就方便多了. <% ip=Request.ServerVariables("REMOTE_ADDR") set Fso=CreateObject("Scripting.FileSystemObject") Set Files=Fso.OpenTextFile(server.mappath("./ip.txt"),1,false) data=files.readall files.close

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

方法一：createtextfile組建檔案方法 function WriteToFile(FileName,FileContent)     set fso=server.createobject("scripting.filesystemobject")     set fp=fso.createtextfile(server.mappath(FileName),,True)

ASP亂碼確實棘手，這個說明比較權威。有待研究。哪的資料都不如官方資料權威。今天總算從MSDN中擇出了ASP編碼問題的解決方案。... ASP亂碼確實棘手，這個說明比較權威。有待研究。哪的資料都不如官方資料權威。今天總算從MSDN中擇出了ASP編碼問題的解決方案。下面是MSDN中的一段話。Setting @CODEPAGE explicitly affects literal strings in a single response. Response.CodePage affects