?? conn.asp
字號:
<%
dim db
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP
const BjxshopVersion=2 '伴江行購物管理系統的版本,1為免費版,2為個人版,3為企業版
const BjxshopDatabaseType="ACCESS" '系統數據庫類型,"SQL"為MS SQL2000數據庫,"ACCESS"為MS ACCESS 2000數據庫
'如果是ACCESS數據庫,請認真修改好下面的數據庫的文件名
db="..\data\#bjxshop.mdb" 'ACCESS數據庫的文件名,請使用相對于網站根目錄的的絕對路徑
'如果是SQL數據庫,請認真修改好以下數據庫選項
SqlUsername = "bjxshop" 'SQL數據庫用戶名
SqlPassword = "bjxshop888" 'SQL數據庫用戶密碼
SqlDatabaseName = "bjxshop" 'SQL數據庫名
SqlHostIP = "127.0.0.1" 'SQL主機IP地址(本地可用“127.0.0.1”或“(local)”,非本機請用真實IP)
On Error Resume Next
dim ConnStr
dim conn
if BjxshopDatabaseType="SQL" then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "數據庫連接出錯,請檢查Conn.asp文件中的數據庫參數設置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -