VBScript編碼模板(2003-11-14修改版) (轉)
<!-- METADATA
TYPE="typelib"
FILE="C:Program FilesCommon FilesSystemADOmsado20.tlb"
-->
Option Explicit
'=========================================================
'容錯機制程式碼
'=========================================================
DIM NDE_MSG
NDEBUG_MSG=FALSE 'TRUE,FALSE
IF NDEBUG_MSG = TRUE THEN
'出錯過濾
ON ERROR RESUME NEXT
END IF
'=========================================================
'變數宣告及定義區
'=========================================================
Dim ConnStr,oConn 'ADO連線變數
Dim sErrmsg '錯誤變數
'=========================================================
' 事務定義區
'=========================================================
'=========================================================
'Func,Proc定義區
'=========================================================
'=========================================================
' 功能:開啟資料來源
' 引數:
' 返回值:
'=========================================================
Sub ConnectionDatabase
'連線引數:資料庫名、密碼、使用者名稱、連線名(本地用local,外地用IP)
Dim SqlDatabaseName,SqlPass,SqlUsername,SqlLocalName
SqlDatabaseName="xiaods"
SqlPassword="!QAZXSW@"
SqlUsername="xiaods"
SqlLocalName="192.168.211.7"
ConnStr = "Provr=Sqlole; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data =" & SqlLocalName & ";"
'on error resume next
Set oConn = Server.Create("ADODB.Connection")
oConn.open ConnStr
If Err Then
err.Clear
Set oConn = Nothing
sErrmsg= "資料庫連線出錯,請檢查連線字串。"
mError(sErrmsg)
End If
End Sub
'=========================================================
' 功能:關閉資料來源
' 引數:
' 返回值:
'=========================================================
Sub CloseDatabase
oConn.close
Set oConn = Nothing
End Sub
'=========================================================
' 功能:輸出錯誤資訊
' 引數:sErrmsg
' 返回值:
'=========================================================
sub mError(sErrmsg)
'Response.Write sErrmsg&"please contact system administrator."
response.write " " & vbCrLf
response.write "
response.write "
response.write " " & vbCrLf
response.write "" & vbCrLf
response.write " " & vbCrLf
response.write "" & vbCrLf
response.write " " & vbCrLf
response.write "
" & vbCrLf response.write "" & vbCrLf response.write "
response.write "
response.write "" & vbCrLf response.write " | " & vbCrLf
response.write " " & vbCrLf
response.write " "
end sub
'ConnectionDatabase 'open Datesrc
%>
此為修改版
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752019/viewspace-962626/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- VBScript編寫Windows防止鎖屏指令碼程式詳解Windows指令碼
- 在VBScript中使用類(三) (轉)
- 在VBScript中使用類(四) (轉)
- VBScript 錯誤資訊一覽 (轉)
- VBScript函式補習課 (轉)函式
- 模板 vs. 硬編碼 HTMLHTML
- 【LINT】cpplint修改版:自定義編碼風格檢查工具lint
- ASP中令人震撼的Debug類(VBScript) (轉)
- ASP中一個字串處理類(VBScript) (轉)字串
- iptables實現埠轉發的過程(修改版)(轉)
- Ant 編譯、打包 build.xml 指令碼模板編譯UIXML指令碼
- 編碼轉換
- 在客戶端用JAVASCRIPT或VBSCRIPT生成WORD文件 (轉)客戶端JavaScript
- 模板引數,模板分離編譯編譯
- VBScript Scripting Engine初探
- 《Vue不看原始碼懂原理》系列——Vue模板編譯Vue原始碼編譯
- 字元編碼轉換字元
- URL編碼轉換
- Vue 模板編譯原理Vue編譯原理
- MAC使用APKTool反編譯apk修改版本號後重新打包MacAPK編譯
- shell vbscript xml程式設計XML程式設計
- 檢測檔案編碼,轉換檔案編碼
- 詞法分析(修改版)詞法分析
- 位元組編碼轉換
- [轉]PHP編碼規範PHP
- java字元編碼轉換Java字元
- Java 編碼規範 (轉)Java
- java編碼規範 (轉)Java
- 文字編碼轉換工具iconv 附批量轉換檔案編碼命令
- JVM 模板直譯器之如何根據位元組碼生成彙編碼?JVM
- C# 基礎知識:字元編碼、編碼轉換C#字元
- 前端面試-模板編譯前端面試編譯
- 模板函式編譯原理函式編譯原理
- php 的字元編碼轉換工具 (轉)PHP字元
- 為什麼C++編譯器不能支援對模板的分離式編譯 (轉)C++編譯
- javascript字元編碼轉換方法JavaScript字元
- 轉python編碼問題Python
- Linux批量編碼轉換Linux