不错的数据库连接代码

原创 2005年05月23日 15:14:00

<% '---------------------------------参数设置

 Function Get_Access_Conn(FileName,Password)     
       dim str
       on error resume next
       str= "Provider=Microsoft.Jet.OLEDB.4.0;"
       str=str& "Data Source=" &server.MapPath(FileName)&";Jet OLEDB:Database Password="&Password

      Set Get_Access_Conn= Server.CreateObject("ADODB.Connection")
      Get_Access_Conn.Open str  
   if err.number<>0 then
      Set Get_Access_Conn=nothing
   Get_Access_Conn="error"
  end if
End Function


function checkFileExist(filename)
      dim objFSO
   checkFileExist=false
   set objFSO=Server.CreateObject("Scripting.FileSystemObject")
   if objFSO.FileExists(server.MapPath(filename)) then
        checkFileExist=true
   end if
   set objFSO=nothing
end function

Function Get_Conn()
     on error resume next
  err.clear

    if checkFileExist("admin/include/sub/check.mdb") then
     path="admin/include/sub/"
    elseif checkFileExist("include/sub/check.mdb") then
     path="include/sub/"
 elseif checkFileExist("check.mdb") then
    path=""
 elseif checkFileExist("../include/sub/check.mdb") then
    path="../include/sub/"
 elseif checkFileExist("../../include/sub/check.mdb") then
    path="../../include/sub/"
 end if
 filename=path&"check.mdb"
 pwd=base64decode(base64decode("WjNWdmVYVnhhV0Z1Wnc9PQ=="))
      
  Set Get_Conn=Get_Access_Conn(filename,Pwd)
  if err.number<>0 then
   Response.Write "<script language=javascript>"
   Response.Write "alert('不能打开数据库!');"
   'Response.Write "window.history.back(1);"
   Response.Write "</script>"
   response.End()
  end if
End Function

function CloseConn(cn)
  if  IsObject(Session(cn))  then
       Session(cn).close
    set  Session(cn) =nothing
 end if
     session.Contents.Remove(cn)
end function


If IsObject(Session("Conn")) and Not IsNull(Session("Conn") ) Then
   Set  Conn = Session("Conn")                   
Else
     Set Conn =Get_Conn()
   Session("Conn") = Conn                 
end  if

Function Get_Rs(conn,sql,CursorType,LockType)
   on error resume next
   Set Get_Rs= Server.CreateObject("ADODB.Recordset")
 Get_Rs.Open sql, conn,CursorType,LockType
 if err.number<>0 then
    response.write sql&"<br>"
    response.write err.description
    response.End()
 end if
end Function


%>

数据库连接代码

  • 2015年10月20日 20:11
  • 2KB
  • 下载

javaweb JDBC 数据库连接mysql 配置代码 (直接可用)

1、加入Mysql 的JDBC架包 2、数据库配置文件 db.properties 3、数据库配置文件读取ReadProperties.java 4、数据库连接工厂类 ConnectionFacto...

ASP中各种数据库连接代码

  • 2017年03月29日 21:03
  • 4KB
  • 下载

C#与sqlservr数据库连接代码

  • 2014年11月17日 16:51
  • 1000B
  • 下载

Java web项目 在线网络考试数据库连接部分代码

package com.wgh.core; //将该类保存到com.wgh.core包中 import java.io.InputStream; //导入java.io.InputStream类 i...

MySQL数据库连接代码及jar包

  • 2014年05月28日 14:59
  • 510KB
  • 下载

jsp数据库连接大全(代码分色+注释)版本

一、jsp连接Oracle8/8i/9i数据库(用thin模式) testOracle.jsp 如下: @ page contentType="text/html;charse...

jsp与数据库连接代码

  • 2013年06月08日 16:37
  • 2KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:不错的数据库连接代码
举报原因:
原因补充:

(最多只允许输入30个字)