談asp非常實用的代碼(4)_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：如何提高asp程序訪問速度
用asp程序進行網(wǎng)頁設(shè)計，大多因為需要訪問數(shù)據(jù)庫，然后再將數(shù)據(jù)顯示到頁面，如果數(shù)據(jù)很多的話，頁面的訪問速度也就變慢了，為了解決這個問題，可以用以下技巧來提高頁面訪問速度。技巧之一：提高使用Request集合的效率訪問一個ASP集合來提取一個值是費時的

搜索出的內(nèi)容替換關(guān)鍵字

Function GoRed(Str,keyword)
’***************************************
’GoRed函數(shù) Str,搜索出來的內(nèi)容,keyword 要替換的關(guān)鍵字
’***************************************
    Dim RegObj
    Set RegObj= New RegExp ’定義新的正則表達(dá)式
  With RegObj
  .Global = True
  .IgnoreCase = True
  .Pattern="([.\n]*)("&Keyword&")([.\n]*)"
  GoRed=.Replace(Str,"$1 <font color=’red’>$2 </font>$3")
  End With
  Set RegObj=Nothing
End Function

示例：title=GoRed("Fditffdsdads","f")

輸出title 會顯示 Fditffdsdads

設(shè)置過期策略

Response.buffer=true
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"

驗證第一個字符是否為字母
’false ：不是；true ：是

function IsFirstStr(str)
IsFirstStr = true
str=LCase(str)
strSource ="abcdefghijklmnopqrstuvwxyz"
if InStr(strSource,mid(str,1,1)) <=0 then
IsFirstStr = false
else
IsFirstStr = true
end if
end function

分享：詳解ASP的Session對象
一、屬性 1、SessionID SessionID屬性返回用戶的會話標(biāo)識。在創(chuàng)建會話時，服務(wù)器會為每一個會話生成一個單獨的標(biāo)識。會話標(biāo)識以長整形數(shù)據(jù)類型返回。在很多情況下SessionID可以用于WEB頁面注冊統(tǒng)計。 2、TimeOut Timeout屬性以分鐘為單位為該應(yīng)用程序的Sessi