ASP函數庫
<%
'''' 函數目錄 ''''
''''-----------------------------------------------''''
'''' 函數ID：0001[截字符串] ''''
'''' 函數ID：0002[過濾html] ''''
'''' 函數ID：0003[打開任意數據表並顯示表結構及內容]''''
'''' 函數ID：0004[讀取兩種路徑] ''''
'''' 函數ID：0005[測試某個文件存在否] ''''
'''' 函數ID：0006[刪除某個文件] ''''
'''' 函數ID：0007[判斷目錄是否存在] ''''
'''' 函數ID：0008[創建目錄] ''''
'''' 函數ID：0009[刪除目錄] ''''
'''' 函數ID：0010[指定目錄的文件列表] ''''
'''' 函數ID：0011[指定目錄的目錄列表] ''''
'''' 函數ID：0012[創建文本文件] ''''
'''' 函數ID：0013[讀取文本文件] ''''
'''' 函數ID：0014[檢測ID是否為數字類型] ''''
'''' 函數ID：0015[正則表達式測試] ''''
'''' 函數ID：0016[獲得執行程序的名稱] ''''
'''' 函數ID：0017[讀取用戶IP地址信息] ''''
'''' 函數ID：0018[上傳文件到指定目錄並改文件名稱] ''''
'''' 函數ID：0019[過濾HTML腳本] ''''
'''' 函數ID：0020[創建MsAccess數據庫] ''''
'''' 函數ID：0021[創建MsSQLServer數據庫] ''''
'''' 函數ID：0022[通過JMAIL發信] ''''
'''' 函數ID：0023[測試組件是否安裝] ''''
'''' 函數ID：0024[上傳文件的窗口] ''''
'''' 函數ID：0025[取得數據庫鏈接字串] ''''
'''' 函數ID：0026[取得multipart/form-data形式上傳文件]
'''' 函數ID：0027[保存或查看上傳到數據庫中的數據，帶調用上傳窗口]
'''' 函數ID：0028[取得圖像的類型|寬|高] ''''
'''' 函數ID：0029[將本地文件進行二進制分析，並保存到服務器的指定目錄下]
'''' 函數ID：0030[將本地數據表或庫上傳並導入到服務器數據庫的表中]
'''' 函數ID：0031[返回服務器信息] ''''
'''' 函數ID：0032[產生20位長度的唯一標識ID] ''''
'''' 函數ID：0033[用於左填充指定數量的字符] ''''
'''' 函數ID：0034[用於右填充指定數量的字符] ''''
'''' 函數ID：0035[格式化時間(顯示)] ''''
'''' 函數ID：0036[測試數據庫是否存在] ''''
'''' 函數ID：0037[測試數據庫中的表是否存在] ''''
'''' 函數ID：0038[在線HTML編輯器] ''''
'''' 函數ID：0039[判斷是否奇數] ''''
'''' 函數ID：0040[生成驗證碼圖像BMP] ''''
'''' 函數ID：0041[生成隨機密碼] ''''
'''' 函數ID：0042[字符加解密] ''''
'''' 函數ID：0043[解密字符加解密] ''''
'''' 函數ID：0044[創建數據表] ''''
'''' 函數ID：0045[在數據庫中插入字段值] ''''
'''' 函數ID：0046[Cookie防亂碼寫入時用] ''''
'''' 函數ID：0047[Cookie防亂碼讀出時用] ''''
'''' 函數ID：0048[檢測用戶名和密碼是否正確] ''''
'''' 函數ID：0049[生成時間的整數] ''''
'''' 函數ID：0050[獲得欄目的所有子欄目字符串並用","隔開]
'''' ''''
'''' ''''
'''' ''''
'**************************************************''''
'函數ID：0001[截字符串]
'函數名：SubstZFC
'作 用：截字符串，漢字一個算兩個字符，英文算一個字符
'參 數：str ----原字符串
' strlen ----截取長度
'返回值：截取後的字符串
'**************************************************
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
當前1/8頁
12345678下一頁閱讀全文
