ASP函數(shù)庫(kù) 
  <% 
  '''' 函數(shù)目錄 '''' 
  ''''-----------------------------------------------'''' 
  '''' 函數(shù)ID：0001[截字符串] '''' 
  '''' 函數(shù)ID：0002[過(guò)濾html] '''' 
  '''' 函數(shù)ID：0003[打開任意數(shù)據(jù)表并顯示表結(jié)構(gòu)及內(nèi)容]'''' 
  '''' 函數(shù)ID：0004[讀取兩種路徑] '''' 
  '''' 函數(shù)ID：0005[測(cè)試某個(gè)文件存在否] '''' 
  '''' 函數(shù)ID：0006[刪除某個(gè)文件] '''' 
  '''' 函數(shù)ID：0007[判斷目錄是否存在] '''' 
  '''' 函數(shù)ID：0008[創(chuàng)建目錄](méi) '''' 
  '''' 函數(shù)ID：0009[刪除目錄](méi) '''' 
  '''' 函數(shù)ID：0010[指定目錄的文件列表] '''' 
  '''' 函數(shù)ID：0011[指定目錄的目錄列表] '''' 
  '''' 函數(shù)ID：0012[創(chuàng)建文本文件] '''' 
  '''' 函數(shù)ID：0013[讀取文本文件] '''' 
  '''' 函數(shù)ID：0014[檢測(cè)ID是否為數(shù)字類型] '''' 
  '''' 函數(shù)ID：0015[正則表達(dá)式測(cè)試] '''' 
  '''' 函數(shù)ID：0016[獲得執(zhí)行程序的名稱] '''' 
  '''' 函數(shù)ID：0017[讀取用戶IP地址信息] '''' 
  '''' 函數(shù)ID：0018[上傳文件到指定目錄并改文件名稱] '''' 
  '''' 函數(shù)ID：0019[過(guò)濾HTML腳本] '''' 
  '''' 函數(shù)ID：0020[創(chuàng)建MsAccess數(shù)據(jù)庫(kù)] '''' 
  '''' 函數(shù)ID：0021[創(chuàng)建MsSQLServer數(shù)據(jù)庫(kù)] '''' 
  '''' 函數(shù)ID：0022[通過(guò)JMAIL發(fā)信] '''' 
  '''' 函數(shù)ID：0023[測(cè)試組件是否安裝] '''' 
  '''' 函數(shù)ID：0024[上傳文件的窗口] '''' 
  '''' 函數(shù)ID：0025[取得數(shù)據(jù)庫(kù)鏈接字串] '''' 
  '''' 函數(shù)ID：0026[取得multipart/form-data形式上傳文件] 
  '''' 函數(shù)ID：0027[保存或查看上傳到數(shù)據(jù)庫(kù)中的數(shù)據(jù)，帶調(diào)用上傳窗口] 
  '''' 函數(shù)ID：0028[取得圖像的類型|寬|高] '''' 
  '''' 函數(shù)ID：0029[將本地文件進(jìn)行二進(jìn)制分析，并保存到服務(wù)器的指定目錄下] 
  '''' 函數(shù)ID：0030[將本地?cái)?shù)據(jù)表或庫(kù)上傳并導(dǎo)入到服務(wù)器數(shù)據(jù)庫(kù)的表中] 
  '''' 函數(shù)ID：0031[返回服務(wù)器信息] '''' 
  '''' 函數(shù)ID：0032[產(chǎn)生20位長(zhǎng)度的唯一標(biāo)識(shí)ID] '''' 
  '''' 函數(shù)ID：0033[用于左填充指定數(shù)量的字符] '''' 
  '''' 函數(shù)ID：0034[用于右填充指定數(shù)量的字符] '''' 
  '''' 函數(shù)ID：0035[格式化時(shí)間(顯示)] '''' 
  '''' 函數(shù)ID：0036[測(cè)試數(shù)據(jù)庫(kù)是否存在] '''' 
  '''' 函數(shù)ID：0037[測(cè)試數(shù)據(jù)庫(kù)中的表是否存在] '''' 
  '''' 函數(shù)ID：0038[在線HTML編輯器] '''' 
  '''' 函數(shù)ID：0039[判斷是否奇數(shù)] '''' 
  '''' 函數(shù)ID：0040[生成驗(yàn)證碼圖像BMP] '''' 
  '''' 函數(shù)ID：0041[生成隨機(jī)密碼] '''' 
  '''' 函數(shù)ID：0042[字符加解密] '''' 
  '''' 函數(shù)ID：0043[解密字符加解密] '''' 
  '''' 函數(shù)ID：0044[創(chuàng)建數(shù)據(jù)表] '''' 
  '''' 函數(shù)ID：0045[在數(shù)據(jù)庫(kù)中插入字段值] '''' 
  '''' 函數(shù)ID：0046[Cookie防亂碼寫入時(shí)用] '''' 
  '''' 函數(shù)ID：0047[Cookie防亂碼讀出時(shí)用] '''' 
  '''' 函數(shù)ID：0048[檢測(cè)用戶名和密碼是否正確] '''' 
  '''' 函數(shù)ID：0049[生成時(shí)間的整數(shù)] '''' 
  '''' 函數(shù)ID：0050[獲得欄目的所有子欄目字符串并用","隔開] 
  '''' '''' 
  '''' '''' 
  '''' '''' 
  '**************************************************'''' 
  '函數(shù)ID：0001[截字符串] 
  '函數(shù)名：SubstZFC 
  '作 用：截字符串，漢字一個(gè)算兩個(gè)字符，英文算一個(gè)字符 
  '參 數(shù)：str ----原字符串 
  ' strlen ----截取長(zhǎng)度 
  '返回值：截取后的字符串 
  '************************************************** 
  Public Function SubstZFC(ByVal str, ByVal strlen) 
   If str = "" Then 
   SubstZFC = "" 
   Exit Function 
   End If 
   Dim l, t, c, i, strTemp 
   str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<") 
   l = Len(str) 
   t = 0 
   strTemp = str 
   strlen = CLng(strlen) 
   For i = 1 To l 
   c = Abs(Asc(Mid(str, i, 1))) 
   If c > 255 Then 
   t = t + 2 
   Else 
   t = t + 1 
   End If 
   If t >= strlen Then 
   strTemp = Left(str, i) 
   Exit For 
   End If 
   Next 
   SubstZFC = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "<", "<") 
  End Function 

最新評(píng)論