ASP

1。建立資料庫表 表名為online 設如下欄位 id '用來記錄每一個訪問都的session.sessionid name '如果是訪客，則記錄為訪客。 online '如果是訪各為0 如果是會員1 datetime '最近啟用時間 username '會員的登入使用者名稱,訪客為空白。 ip '記錄訪問都的登入IP head.asp '向資料庫表寫入線上人數，該頁面必須搜入到每一個用於瀏覽ASP頁面中。 <% set

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

abs(number) 返回絕對值。 array(arglist) 建立一個數組。 asc(string) 返回字串第一個字元的ansi碼。 atn(number) 返回反正弦值。 cbool (expression) 轉換成boolean資料類型變數。 cbyte (expression) 轉換成byte資料類型變數。 ccur (expression) 轉換成currency資料類型變數。 cdate (expression) 轉換成date資料類型變數。 cdbl (expression)

<% '#######以下是一個類檔案，下面的註解是調用類的方法################################################ '# 注意：如果系統不支援建立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>

說明：本函數作用是截取指定英漢混合字串，並保持顯示長度一至。就是將一個漢字當兩英文來截取。 用途：一般會用在標題顯示列表，可以避免截取的字串參插不齊的現象。 程式碼 複製代碼 代碼如下:'//A_strString要處理的字串 '//A_intLen以英文字元數為準 '//A_strAddString如果A_strString有截取字元時添中的尾碼，如：...，可以為空白 function CutString(byval A_strString,byval A_intLen,byval

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

最好的方法： 先說一下基本的東西： <%@ codepage=65001%>UTF-8 <%@ codepage=936%>簡體中文 <%@ codepage=950%>繁體中文 <%@ codepage=437 %>美國/加拿大英語 <%@ codepage=932 %>日文 <%@ codepage=949 %>韓文 <%@ codepage=866 %>俄文

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

前幾天，為了增強本站的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

問題： 1.購物車中的資料是否應該儲存在資料庫中？

<% 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("