不错的数据库连接代码

原创 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


%>

一些不错的开源代码网站

转贴一个开源网址列表,喜欢开源的朋友可以去看看,本人比较喜欢的是51源码,在这里感谢作者~1.51源码:http://www.51aspx.com/2.源码之家:http://www.codejia....
  • wanliyun2009
  • wanliyun2009
  • 2009年11月22日 20:04
  • 1190

一个非常不错的数据库连接

using System; using System.Collections.Generic; using System.Linq; using System.Text; using Syst...
  • h_y0_0
  • h_y0_0
  • 2012年05月16日 18:30
  • 63

mysql——mysql.cnf配置文件详细介绍

mysql配置文件加载顺序 Default options are read from the following files in the given order: 加载顺序:/etc/my...
  • jh993627471
  • jh993627471
  • 2018年01月08日 17:21
  • 34

JAVA连接Oracle数据库实代码+详细注释

下面是连接数据库的代码: package org.javawo.test; import java.sql.Connection; import java.sql.DriverManager...
  • chexitianxia
  • chexitianxia
  • 2011年09月07日 22:22
  • 13195

用了影印版的教材,觉得不错,比翻译版的好

用了一个学期的英文影印版的教材(operating system concepts),开始的时候觉得有些不太适应,很多单词不认识,而且书很厚,耐下心来看了很久却找不到重点,比较郁闷.有不少同学买了这本...
  • wayne92
  • wayne92
  • 2005年06月26日 22:46
  • 1212

数据库连接代码

package exportexcel; import java.sql.Connection; import java.sql.DriverManager; import java.sql.P...
  • zhangyi162
  • zhangyi162
  • 2015年03月23日 17:24
  • 149

比较好的英文学习网站

 http://zhidao.baidu.com/question/5939301.html?si=8哪个英文学习网站比较好,又是免费的 悬赏分:0 - 解决时间:2006-4-19 19:48提问者...
  • broccoli
  • broccoli
  • 2006年12月21日 16:59
  • 7688

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

一、jsp连接Oracle8/8i/9i数据库(用thin模式)testOracle.jsp如下: @ page contentType="text/html;charset=gb2312"%>@ p...
  • cm4ever
  • cm4ever
  • 2004年09月30日 14:22
  • 43003

关于数据库连接的代码

import java.sql.*;/*- * Copyright(C) http://www.cn-java.com by jackliu * 这是一个免费的代码,如果进行修改,请保留以上信息. *...
  • sun303277020
  • sun303277020
  • 2010年12月23日 11:59
  • 141

在地址栏直接使用Google“手气不错”功能

使用Google搜索时,点击“手气不错”按钮,可以根据关键词直达结果网站。通过本文介绍的技巧,你可以直接在Chrome地址栏中实现该功能。 ...
  • chromeblog
  • chromeblog
  • 2011年11月10日 15:02
  • 3276
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:不错的数据库连接代码
举报原因:
原因补充:

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