www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\ask\conn.asp
<%@ LANGUAGE = VBScript CodePage = 936%> <% Option Explicit Response.Buffer = True Response.charset="GB2312" Dim startime,Conn,db startime = Timer() '--定义数据库类别,1为SQL数据库,0为Access数据库 Const isSqlDataBase = 0 Dim NowString, NewAsp, MyAppPath MyAppPath = "" '-- 是否开启伪静态功能(False=否,True=是) Const IsURLRewrite = False '--系统XML版本设置,最低版本 Const MsxmlVersion="" Const MsxmlVersion = ".3.0" If IsSqlDataBase = 1 Then '-----------------------SQL数据库连接参数--------------------------------------- NowString = "GetDate()" '--SQL数据库连接参数:数据库名(SqlDatabaseName)、用户名(SqlUsername)、用户密码(SqlPassword) '--连接名(SqlLocalName)(本地用(local),外地用IP) Const SqlDatabaseName = "newasp" Const SqlUsername = "sa" Const SqlPassword = "newasp" Const SqlLocalName = "(local)" '------------------------------------------------------------------------------- Else '-----------------------ACCESS数据库连接---------------------------------------- NowString = "Now()" '--ACCESS数据库连接路径;数据库默认在database目录,第一次使用请修改默认数据库名或路径 '--数据库路径可以使用绝对路径 db = "data/ask_newasp.resx" '------------------------------------------------------------------------------- End If Sub ConnectionDatabase() On Error Resume Next Dim Connstr If IsSqlDataBase = 1 Then Connstr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" Else Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(MyAppPath & db) End If Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Connstr If Err Then Err.Clear Set Conn = Nothing Response.Write "数据库连接出错,请打开conn.asp文件检查连接字串。"&Connstr Response.End End If End Sub Function ChkMapPath(ByVal strPath) Dim fullPath strPath = Replace(Replace(Trim(strPath), "/", "\"), "\\", "\") If strPath = "" Then strPath = "." If InStr(strPath,":\") = 0 Then fullPath = Server.MapPath(strPath) Else strPath = Replace(strPath,"..\","") fullPath = Trim(strPath) If Right(fullPath, 1) = "\" Then fullPath = Left(fullPath, Len(fullPath) - 1) End If End If ChkMapPath = fullPath End Function %>