?? conn.asp
字號:
<%@CodePage = 936%>
<%
'Option Explicit 25175.com
Response.Buffer = True
Dim powerid
Dim Comeurl
dim conn
Dim SqlNowString
Dim nowtit,action
Dim rs,id,sql
Dim totalput,pagedw,CurrentPage,page,PurviewChecked
Dim strFileName,sql_tables,Sql_Conditions,Sql_Condition,Sql_Lists,Sql_Sortings,Sql_Orders,Sql_Additional
Dim rs_web,rs_edit,dels,user_check
Dim fun_cel,nos_i,fun_get
Dim types,keyword
Dim formaction
Dim i
Dim webtit,sitename
Dim HTMLother
Dim domain:domain=Request.ServerVariables("server_name")
'定義數據庫類別,1為SQL數據庫,0為Access數據庫
Const IsSqlDataBase = 0
'=====================================================================
If IsSqlDataBase = 1 Then
'SQL數據庫設置
'數據庫名(SqlDatabaseName)
Const SqlDatabaseName = "cj_2007"
'用戶密碼(SqlPassword)
Const SqlPassword = ""
'用戶名(SqlUsername)
Const SqlUsername = "sa"
'連接名(SqlLocalName)(本地用local,外地用IP)
Const SqlLocalName = "(local)"
'=====================================================================
Else
'Access數據庫設置
'用戶第一次使用請修改本處數據庫地址并相應修改data目錄中數據庫名稱
'相對當前目錄下絕對路徑
Const DataPath = "data/#123zh.mdb"
'===================================================================
End If
ConnectionDatabase
Sub ConnectionDatabase
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr(IsSqlDataBase)
If Err Then
err.Clear : Set Conn = Nothing
res "數據庫連接錯誤,請與網站管理員聯系!",1
Response.End
End If
End Sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -