?? conn.asp
字號:
<%
'==================以下為個性設置部分==================
Dim NoteJiaMi,username,pass,servername,fromemail,sysName,isSQL
'------------------系統全局設置------------------
sysName = "《私密信息系統-PrivNote.Net System》"'系統自定義名稱
sysURL = "http://PrivNote.Net/"'系統網址(如果是下層目錄請一同加入,如:http://PrivNote.Net/sys/)
ICPNO = "閩ICP備********號"'網站ICP備案號
NoteJiaMi = "0"'(等于0不加密信息內容;等于1加密信息內容)
isSQL = "0"'是否使用MSSQL2000數據庫(0使用Access,1使用MSSQL2000)
'------------------系統郵件設置------------------
username = "test@test.cn" '登錄郵件服務器的用戶名
pass = "********" '登錄郵件服務器的密碼
servername = "smtp.test.cn" '郵件服務器地址
fromemail = "test@test.cn" '發件人地址
'------------------SQL數據庫信息設置------------------
SQLuser = "sqlusername"'SQL數據庫用戶名
SQLpsw = "********"'SQL數據庫密碼
SQLname = "PrivNote"'SQL數據庫名
SQLadd = "127.0.0.1"'SQL數據庫服務器地址(本機可使用"127.0.0.1")
'------------------Access數據庫路徑設置------------------
AccessADD = "DATA\Global.asa"'(默認Access數據庫文件名Global.asa可防止被http下載因此建議不要改名,DATA數據庫目錄名建議要修改。)
'==================以上為個性設置部分==================
'==================以下是數據庫連接字符串 請勿隨意修改==================
Dim MM_CONN_STRING
if isSQL = "1" Then
MM_CONN_STRING = "Provider = Sqloledb; User ID = "&SQLuser&"; Password = "&SQLpsw&"; Initial Catalog = "&SQLname&"; Data Source = "&SQLadd&";"
Elseif isSQL = "0" Then
MM_conn_STRING = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.Mappath(AccessADD)
End if
'==================以上是數據庫連接字符串 請勿隨意修改==================
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -