莱州新概念网络:数据库连接实例分析-莱州网络公司
十九年
只做有效果的kok体育官网下载
建站咨询:13305454474
莱州新概念网络:数据库连接实例分析
时间:2019/2/2 7:56:08 点击:

ytggb.com<%


'数据库连接文件【莱州新概念网络


'参数:ACCESS数据库路径,SQL数据库请留空


'如:根目录:call connopen("/")


'    上级目录:call connopen("../")




dim conn '定义打开数据库变量




sub connopen(selfdir)


const gw_db_type=0 '定义打开数据库类型变量,0为ACCESS数据库,1为MSSQL数据库


dim gw_db_connstr '定义连接数据库变量




'连接数据库


select case gw_db_type


case 0


const gw_db_mdb_name="#database/#database.mdb" '定义ACCESS数据库路径及名称


'为安全起见,将数据库扩展名.mdb改为.asp


const gw_db_mdb_pwd="" '定义ACCESS数据库密码


gw_db_connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & server.mappath(selfdir & gw_db_mdb_name) & ";Jet OLEDB:Database Password=" & gw_db_mdb_pwd


case 1


const gw_db_sql_server="(local)" '定义SQL数据库服务器地址


const gw_db_sql_name="database" '定义SQL数据库名称


const gw_db_sql_uid="sa" '定义SQL数据库用户名


const gw_db_sql_pwd="sa" '定义SQL数据库密码


gw_db_connstr="driver={sql server};description=sqldemo;server=" & gw_db_sql_server & ";uid=" & gw_db_sql_uid & ";pwd=" & gw_db_sql_pwd & ";database=" & gw_db_sql_name


case else


response.write("数据库连接出错!")


response.end()


end select




set conn=server.createobject("adodb.connection")




'通过对ERR对像的判断,检测处理脚本时是否发生了错误


'如果有错误,则显示错误提示,同时将创建的connection对像清空


on error resume next


if err.number<>0 then


err.clear()


set conn=nothing


response.write("数据库连接出错!")


response.end()


else


'如果没有错误,则初始化对指定数据库的连接


conn.open gw_db_connstr


'如果在初始化过程中发生错误,则先将connection对像清空,然后显示错误提示


if err then


err.clear()


set conn=nothing


response.write("数据库连接出错!")


response.end()


end if


end if


end sub


'======================================




'======================================


'关闭数据库连接conn


'======================================


sub connclose()


conn.close() : set conn=nothing


end sub


'======================================


%>

  • 上一篇:没有啦
  • 下一篇:电话验证代码攻略