ASP

其實這裡的靜態頁面並不是真正意義上的靜態，但可以達到了靜態頁面的解析效率，還未經項目測試，拿來分享。複製代碼 代碼如下:<% Const DEVJS_INDEX="index.html" Const INDEX_DEFAULT_INTERVAL=300 Dim sLastUpdate '用Application儲存最後更新的時間，而在頁面裡做判斷，每隔300秒(5分鐘)就產生一次頁面 sLastUpdate=Application("INDEX_LAST_Update") If

<% '#######以下是一個類檔案，下面的註解是調用類的方法################################################ '# 注意：如果系統不支援建立Scripting.FileSystemObject對象，那麼資料庫壓縮功能將無法使用 '# Access 資料庫類 '# CreateDbFile 建立一個Access 資料庫檔案 '# CompactDatabase 壓縮一個Access 資料庫檔案 '# 建立對象方法: '# Set a =

現在有一個xml，格式如下： 複製代碼 代碼如下:<date> <item> <id> 1 </id> <name> ABC </name> </item> <item> <id> 2 </id> <name> cde </name> </item> <item> <id> 3 </id>

什麼是RSS？ RSS是網站用來和其他網站之間共用內容的一種簡易方式（也叫彙總內容），通常被用於新聞和其他按順序排列的網站，例如Blog。一段項目的介紹可能包含新聞的全部介紹等。或者僅僅是額外的內容或者簡短的介紹。這些項目的連結通常都能連結到全部的內容。網路使用者可以在用戶端藉助於支援RSS的新聞彙總軟體（如FeedDemon、SharpReader,NewzCrawler），在不開啟網站內容頁面的情況下閱讀支援RSS輸出的網站內容。網站提供RSS輸出，有利於讓使用者發現網站內容的更新。

登入頁面能訪問得到，但當執行下級目錄的檔案就不行了，瀏覽器直接跳出以下錯誤頁面：     除些以外沒有任何其它有價值的資訊，因為此網站在我的電腦上執行是正常的，猜想應該是IIS配置上的問題（早就聽說IIS的安全性提高了，是否是有做過限制），但My

當地址欄沒有參數＂id＂時： 複製代碼 代碼如下:Request.QueryString["ID"] == null Convert.ToString(Request.QueryString["ID"]) == null 　　注意這樣會出錯： 　　Request.QueryString["ID"].ToString(); 　　當地址欄有參數＂id＂，但沒有賦值的時候： 複製代碼 代碼如下:Request.QueryString["ID"] == ""

當然這應該屬於正常過濾手法，而還有一種過濾HTML標籤的最終極手法，則是將一對角括弧及角括弧中的所有字元均替換不顯示，該方法對於內容中必須描述有關角括弧內容過濾過頭了。 　　不過，總歸是有需要將所有角括弧中內容全部替換的時候，很顯然是需要進行正則的，有兩種代碼，第一種如下： 複製代碼 代碼如下:Function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^

複製代碼 代碼如下:<% Rem xml緩衝類 '-------------------------------------------------------------------- '轉載的時候請保留著作權資訊 '作者:╰⑥月の雨╮ '版本:ver1.0 '本類部分借鑒 walkmanxml資料緩衝類，使用更為方便 歡迎各位交流進步 '-------------------------------------------------------------------- Class

預存程序採用的是select top 加 not in的方式完成，速度也算是相當快了 我測試過了百萬級資料量一般查詢在1秒一下，貼出來大家交流下，看有沒有什麼好的建議。 簡單幾句話就可以實現分頁功能,請看代碼： 最簡單使用方法（適用於任何資料表）： test.asp 複製代碼 代碼如下:<!--#include file="conn.asp"--> <!--#include file="Page.asp"--> <% Set My = New Page With

複製代碼 代碼如下:<%@ Language=VBScript %> <% Dim strIP strIP = request("IP") %> <FORM action=? method=post> 輸入IP：<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name="IP"> <input type="submit"

由於代碼比較短，這裡就不進行注釋了 複製代碼 代碼如下:<% '當目標頁面的包含檔案即#include的頁面裡邊存在response.End()的時候本程式有問題 '注意：本檔案一定要放在20041227111723.htm指向的檔案的同一目錄下 dim hughchiu_rtcode Function get_exe_code(20041227111723.htm) dim execode dim tmp_str Dim

1.首先，我們需要過濾所有用戶端提交的內容,其中包括?id=N一類,另外還有提交的html代碼中的操作資料庫的select及asp檔案操作文法,大家可以把提交的字元轉義,然後再存入資料庫。 2.然後需要對訪問Access資料庫的頁面進行授權,針對顯示資料頁面只能使用select語句,過濾其他的update,asp檔案則分為許可訪問資料庫頁面和限制訪問頁。 3.修改數庫據串連檔案名稱conn.asp為類似123ljuvo345l3kj34534v.asp檔案。 4.修改資料庫名為類似q397d03

如果在session級儲存一個dictionary對象會降低系統的效能，而在application級儲存一個dictionary對象會導致web伺服器崩潰，關於這個就不在多說了。 現在我們要考慮的是dictionary對象在單頁的時候，有哪些設計時的缺陷： 大家可以這麼試試 set rs=server.createobject("adodb.recordset") sql="select * from table" rs.open sql,conn,1,3 set

程式碼： 以下為引用的內容： 複製代碼 代碼如下:'關鍵字的搜尋 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)<>"" then redim preserve keystrArr(t)

星期五寫了個分類資訊的小東東!在資料庫裡只有ip地址,一般訪客不太清楚IP地址來源於哪個城市.如果在表裡多一個列儲存城市又沒有真實性可言.如果能把IP地址變成城市多好呀.當然可以去down下資料庫.可就為這個需求覺得有點浪費.還好了有好多網站提供查詢.如果能把它的結果變成我的.問題解決. 需要一個js函數.當每出來一條記錄時,就把ip替換為城市: 複製代碼 代碼如下:<script type="text/javascript"> function

<% set conn=server.createobject("adodb.connection") connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("cou.mdb") //cou是資料庫名 conn.open connstr if session("visited")<>"yes" then application.Lock() conn.execute("update

複製代碼 代碼如下:<% str = request("str") reg = request("reg") set regex = new RegExp With regex .Pattern = reg .IgnoreCase = False .Global = True End With Set match = regex.Execute(str) If match.Count > 0 Then For Each matched in match Response.Write

為什麼我寫ASP分頁教程要提到AJAX呢,因為我們要多練習一下編程過程中,結構化的重要性. 再加上很多朋友對分頁感到很高深,所以一直都不敢去碰他,要麼就用別人寫好的組件,要麼就是改改別人的東西.特別是.net,我深有感觸,假如要快速開發一個項目,我想.net是一個非常優秀的平台.但是,因為他的嚴重控制項化,反而是新手接觸不到編程的思想,完全找不到編程的感覺,彷彿就象在搭積木.有時候還是要練習一下底層一點的東西,這樣個人的技術能力才會得到提高.我可不想做只會用.NET的組裝工人.

這個分頁使用的是0遊標，也就是Rs.Open Sql,Conn,0,1。但是感覺也快不了多少，10萬條資料的分頁時間300多豪秒之間。複製代碼 代碼如下:<% '****************************** '名稱：分頁類 '日期：2005/12/3 '作者：西樓冷月 '網址：www.xilou.net | www.chinaCMS.org '描述：無 '著作權：轉載請注名出處，作者 '****************************** Class Page

'定義變數 Dim cn,rs,Sql Sql = "select CustomerID from Orders" '記錄總數 Dim TotalNumbe Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;" Set rs = Server.CreateObject("