ODBC数据库访问代码的封装

Question

做一个共用的数据库连接文件，例如“conn.asp”，其内容如下：
<%
set conn=server.createobject("adodb.connection")
conn.open "database","LoginName","LoginPassword"
%>将其中的"database","LoginName","LoginPassword"修改成你具体的参数即可；然后在调用的页面将该页面包含过来。这是ASP中的方法，相信其它的开发环境也有类似的处理方法。

Answer 1

kk.inc文件中两个函数，第一个选择，第二个可一修改，删除
<% function sqlselect(strcon,strsql)
        set rst=server.CreateObject("ADODB.Recordset")
        rst.CursorType=3
        rst.open strsql,strcon
        set sqlselect=rst.Clone 
        rst.Close
        set rst=Nothing 
   end function
%>
<% function sqlaction(strcon,strsql) 
        On Error Resume Next       
        sqlaction=False
        If Err.Number=0 Then set rst=server.CreateObject("ADODB.Connection")         
        If Err.Number=0 Then rst.Open strcon
        If Err.Number=0 Then rst.Execute strsql 
        rst.Close
        set rst=Nothing 
        If Err.Number=0 Then sqlaction=True     
   end function
%>