<%@ Language=VBScript CODEPAGE=950%> <% Option Explicit %> <%' ============================================ ' 常用全局變量 ' ============================================ ' 數據庫對像 Dim oConn, oRs, sSql' ============================================ ' 初始數據處理 ' ============================================ ' 執行每天隻需處理一次的事件 'Call BrandNewDay()' 初始化數據庫連接 'Call DBConnBegin()' ******************************************** ' 以下為初始函數 ' ******************************************** ' ============================================ ' 執行每天隻需處理一次的事件 ' ============================================ Sub BrandNewDay()Dim sDate, y, m, d, wDim sDateChinesesDate = Date()If Application("date_today") = sDate Then Exit Suby = CStr(Year(sDate))m = CStr(Month(sDate))If Len(m) = 1 Then m = "0" & md = CStr(Day(sDate))If Len(d) = 1 Then d = "0" & dw = WeekdayName(Weekday(sDate))sDateChinese = y & "年" & m & "月" & d & "日&nbsp;" & wApplication.LockApplication("date_today") = sDateApplication("date_chinese") = sDateChinese '今天的中文樣式 Application.Unlock End Sub' ******************************************** ' 以下為數據庫相關函數 ' ******************************************** ' ============================================ ' 初始化數據庫連接對像 ' 使用原則：最遲調用，最早釋放 ' ============================================ Sub DBConnBegin()' 如果數據庫對像已打開，不要再打開If IsObject(oConn) = True Then Exit Sub' 你可以不需要打開數據庫連接對像而直接打開記錄集對像，但如果你需要打開多個記錄集對像的話，效率是很低的。' 如果你不創建一個數據庫連接對像，ADO會在每個記錄集打開時自動創建一個新的數據庫連接對像，就算你用的是相同的SQL語句。Set oConn = Server.CreateObject("ADODB.Connection")On Error Resume Next' Access數據庫oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/ewebeditor.mdb")' SQL Server 2000數據庫'oConn.Open "Provider=SQLOLEDB.1;Server=localhost;UID=ewebeditor;PWD=123456;Database=ewebeditor" If Err.Number > 0 Then' 顯示錯誤信息,並且發送郵件通知管理員'Call DBConnError(Err)' 完全地退出正在運行的腳本 Response.EndEnd If' 創建一個記錄集Set oRs = Server.CreateObject( "ADODB.Recordset" ) End Sub' ============================================ ' 釋放數據庫連接對像 ' ============================================ Sub DBConnEnd()On Error Resume NextoRs.CloseSet oRs = NothingoConn.CloseSet oConn = Nothing End Sub' ******************************************** ' 以下為常用函數 ' ******************************************** ' ============================================ ' 錯誤返回處理 ' ============================================ Sub Go_Error(str)Call DBConnEnd()Response.Write "<script language=javascript>alert('" & str & "\n\n系統將自動返回前一頁面');history.back();</script>"Response.End End Sub' ============================================ ' 格式化時間(顯示) ' 參數：n_Flag ' 1:"yyyy-mm-dd hh:mm:ss" ' 2:"yyyy-mm-dd" ' 3:"hh:mm:ss" ' 4:"yyyy年mm月dd日" ' 5:"yyyymmdd" ' ============================================ Function Format_Time(s_Time, n_Flag)Dim y, m, d, h, mi, sFormat_Time = ""If IsDate(s_Time) = False Then Exit Functiony = cstr(year(s_Time))m = cstr(month(s_Time))If len(m) = 1 Then m = "0" & md = cstr(day(s_Time))If len(d) = 1 Then d = "0" & dh = cstr(hour(s_Time))If len(h) = 1 Then h = "0" & hmi = cstr(minute(s_Time))If len(mi) = 1 Then mi = "0" & mis = cstr(second(s_Time))If len(s) = 1 Then s = "0" & sSelect Case n_FlagCase 1' yyyy-mm-dd hh:mm:ssFormat_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & sCase 2' yyyy-mm-ddFormat_Time = y & "-" & m & "-" & dCase 3' hh:mm:ssFormat_Time = h & ":" & mi & ":" & sCase 4' yyyy年mm月dd日Format_Time = y & "年" & m & "月" & d & "日"Case 5' yyyymmddFormat_Time = y & m & dEnd Select End Function' ============================================ ' 把字符串進行HTML解碼,替換server.htmlencode ' 去除Html格式，用於顯示輸出 ' ============================================ Function outHTML(str)Dim sTempsTemp = stroutHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd IfsTemp = Replace(sTemp, "&", "&amp;")sTemp = Replace(sTemp, "<", "&lt;")sTemp = Replace(sTemp, ">", "&gt;")sTemp = Replace(sTemp, Chr(34), "&quot;")sTemp = Replace(sTemp, Chr(10), "<br>")outHTML = sTemp End Function' ============================================ ' 去除Html格式，用於從數據庫中取出值填入輸入框時 ' 注意：value="?"這邊一定要用雙引號 ' ============================================ Function inHTML(str)Dim sTempsTemp = strinHTML = ""If IsNull(sTemp) = True ThenExit FunctionEnd IfsTemp = Replace(sTemp, "&", "&amp;")sTemp = Replace(sTemp, "<", "&lt;")sTemp = Replace(sTemp, ">", "&gt;")sTemp = Replace(sTemp, Chr(34), "&quot;")inHTML = sTemp End Function' ============================================ ' 檢測上頁是否從本站提交 ' 返回:True,False ' ============================================ Function IsSelfRefer()Dim sHttp_Referer, sServer_NamesHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name ThenIsSelfRefer = TrueElseIsSelfRefer = FalseEnd If End Function' ============================================ ' 得到安全字符串,在查詢中使用 ' ============================================ Function Get_SafeStr(str)Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "") End Function' ============================================ ' 取實際字符長度 ' ============================================ Function Get_TrueLen(str)Dim l, t, c, il = Len(str)t = lFor i = 1 To lc = Asc(Mid(str, i, 1))If c < 0 Then c = c + 65536If c > 255 Then t = t + 1NextGet_TrueLen = t End Function' ============================================ ' 判斷是否安全字符串,在注冊登錄等特殊字段中使用 ' ============================================ Function IsSafeStr(str)Dim s_BadStr, n, is_BadStr = "' &<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)n = Len(s_BadStr)IsSafeStr = TrueFor i = 1 To nIf Instr(str, Mid(s_BadStr, i, 1)) > 0 ThenIsSafeStr = FalseExit FunctionEnd IfNext End Function%> 創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的几个有用的ASP Function的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。