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

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

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

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

Function GoRed(Str,keyword)
’***************************************
’GoRed函數(shù) Str,搜索出來(lái)的內(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 會(huì)顯示 Fditffdsdads

設(shè)置過(guò)期策略

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

驗(yàn)證第一個(gè)字符是否為字母
’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對(duì)象
一、屬性 1、SessionID SessionID屬性返回用戶的會(huì)話標(biāo)識(shí)。在創(chuàng)建會(huì)話時(shí)，服務(wù)器會(huì)為每一個(gè)會(huì)話生成一個(gè)單獨(dú)的標(biāo)識(shí)。會(huì)話標(biāo)識(shí)以長(zhǎng)整形數(shù)據(jù)類型返回。在很多情況下SessionID可以用于WEB頁(yè)面注冊(cè)統(tǒng)計(jì)。 2、TimeOut Timeout屬性以分鐘為單位為該應(yīng)用程序的Sessi