ASP

所謂緩衝其實就是在記憶體中開闢一個用來儲存資料的空間，使用緩衝你就不用頻繁的訪問你儲存在硬碟上的資料了，因為這些資料我們希望每個使用者都能看到效果一 樣,考慮使用的是application對象,因為它是所有訪問者的共用的對象,儲存的資訊和定義的事件能夠為所有者訪問者使用,這裡要使用asp內建對 象APPLICATION了,關於application,有2個方法[lock和unlock],2個集合[content和 staticobjects],2個事件[開始的app

<!--開啟兩個表--> <%     set rs1=server.CreateObject("adodb.recordset")     sql1="select * from type1"     rs1.open sql1,conn,1,3

ASP遞迴無限級分類函數 複製代碼 代碼如下: <% '函數：getCatagory '功能：獲得分類列表 '參數：cat_arr -> 分類數組(Rscordset:id:分類編號,pid:上級分類,classname:分類名稱,childs:子分類) ' 按此輸出些sql語句，用getRows擷取得到的資料 ' cat_pid -> 上級分類編號 ' cat_childs -> 下級分類編號 ' cat_select -> 選擇的分類 ' cat_dir

本程式由 飛飛Asp樂園 ffasp.com 開發本程式官方下載網址http://www.ffasp.com/content.asp?newsid=945飛飛As!p技術樂園***能說明： 基於AJAX樹狀目錄顯示  支援靈活的 目錄添加、刪除、修改、排序、欄目備忘、欄目移動[向上] 支援 欄目選擇 使用說明： 預設首頁: index.asp 可以進行 目錄添加、刪除、修改、排序、欄目備忘、欄目移動[向上]

<!--#include file="../Conn.asp"--> <% set rs=server.createobject("adodb.recordset") sql="select * from article where bigtypes='我愛你'order by id desc"   找出資料庫內類別為我愛你的所有資料

下面這個是比較不錯的一個複製代碼 代碼如下:Function FormatImg2(content)            dim re            Set re=new RegExp

複製代碼 代碼如下:function gfv(str)     gfv = request.form(str) end function sub executesql      dim content:content = gfv("content") 

現在感覺真麻煩，下面這樣夠簡單夠清楚了吧？ 複製代碼 代碼如下:<%  Dim i, j, iCols  i = 0 '//定義i進行迴圈  iCols = 3 '//一行有幾列(正整數)  Response.Write("<table width=""100%"" border=""1"" cellspacing=""2""

<%     '計算分頁的幾種方法     '// iRecordCount為要計算的頁面總數     '// iRecordCount為記錄集數     '// iPageSize為每頁記錄數     '// 一:   &

conn.begintrans '開啟事物功能 ...中間是一些添加修改刪除操作 如果出現錯誤就取消 conn.rollbacktrans '取消事物更改並結束事物 如果沒問題，就儲存 conn.CommitTrans '儲存事物並結束事物複製代碼 代碼如下:<%if not session("type")="3" then 

<% Response.Write(Server.HTMLEncode(FixImg("<img onclick=""if(this.width>screen.width-461) window.open('qq/20082181405371.jpg');"" alt="""" border=""0"" src=""qq/20082181405371.jpg"" />"))) %> <%

複製代碼 代碼如下:<%  '功能:在一個字串前後補全另一字串  '來源:http://jorkin.reallydo.com/article.asp?id=452  Public Function Fill(ByVal sString, ByVal sStr) 

防範跨網站指令碼攻擊的的方法 1.利用 空格 替換特殊字元 % < > { } ; & + - " ' ( ) 2.使用@,具體而言是將以下語句

asp利用fso實現檔案的移動function movefiles(sFolder,dFolder)     on error resume next     dim fso     set fso = server.createobject("scripting.filesystemobject"

1、使用adodb.stream實現的 一般虛擬機器主機都提供 複製代碼 代碼如下:function loadtempletfile(byval path)       on error resume next       dim objstream  

網上搜到的代碼，千篇一律是這個 Function Sort(ary) Dim KeepChecking,I,FirstValue,SecondValue  KeepChecking = TRUE  Do Until KeepChecking = FALSE   KeepChecking = FALSE   For I 

<% a="日本是中國的一個省|我們美麗中國的張家界！" b="中國,我們,張家界,日本,美國,蘋果" b=split(b,",") a=split(a,"|") for k=0 to ubound(a) s="" n=""  for i=0 to ubound(b)   if instr(a(k),b(i))>0 then

點擊提示“確定”與“取消”提示框 onclick='{if(confirm("您確定刪除嗎?此操作將不能恢複!")){return true;}return false;}' 刪除.LDB檔案 <% Application.Contents.Removeall() %> 將HTML格式轉換為純文字格式 <%   Function RemoveHTML(strHTML)  

在已有資料庫中建立表  <% set conn=server.CreateObject("adodb.connection")  sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb")  conn.open sql 

將全形的字元轉變成半形字元，將半形轉變成全形 <% Function DSConvert(vString,vFlag)      Rem vFlag為0時表示從全形轉為半形,為其他時表示從半形轉為全形      Dim i,tmpSingleCharaASC,TempResult,SAscString,DAscString    &