asp通用数据库连接类 access mssql mysql_完整asp数据库代码（access,mssql)

完整 asp 数据库 代码 (access,mssql)'本文章提供这款asp 数据库 连接 代码 是一款可以与mssql server与access 数据库 连接的文件，包括有最简单的连接方法。 完整 asp教程 数据库 教程 代码 (access,mssql) '本文章提供这款asp 数据库 连接 代码 是一款可

完整asp数据库代码(access,mssql)

'本文章提供这款asp数据库连接代码是一款可以与mssql server与access数据库连接的文件，包括有最简单的连接方法。

完整asp教程数据库教程代码(access,mssql)

'本文章提供这款asp数据库连接代码是一款可以与mssql server与access数据库连接的文件，包括有最简单的连接方法。

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

connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("/www.111cn.net/data.mdb")

conn.open connstr

%>

response.buffer = true

const msxmlversion=".3.0"

const cookiename = "netpic"

dim conn,connstr,datafile

startime = timer()

'可修改设置一：========================定义数据库类别，1为sql数据库，0为access数据库=============================

const issqldatabase = 0

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

if issqldatabase = 1 then

'必修改设置二：========================sql数据库设置=============================================================

'sql数据库连接参数：连接名(sqllocalname)(本地用local，外地用ip)、用户名(sqlusername)、用户密码(sqlpassword)、数据库名(sqldatabasename)

const sqllocalname = "(local)"

const sqlusername = "sa"

const sqlpassword = "001225"

const sqldatabasename = "photo"

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

datestring = array("getdate()","yyyy","m","d","hh","n","s","'")

connstr = "driver={sql server};uid=" & sqlusername & ";pwd=" & sqlpassword & ";database=" & sqldatabasename & ";server=" & sqllocalname & ";"

else

'必修改设置三：========================access数据库设置==========================================================

datafile = server.mappath("data/#photo.mdb")

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

datestring = array("now()","'yyyy'","'m'","'d'","'h'","'n'","'s'","#")

connstr = "provider = microsoft.jet.oledb.4.0;data source = " & datafile

end if

'on error resume next

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

conn.open connstr

if err then

err.clear

set conn = nothing

response.write "数据库连接出错，请检查连接字串。"

response.end

end if

function checked(value1,value2)

checked = " value="&chr(34)&value2&chr(34)

if lcase(value1&"")=lcase(value2&"") then checked = checked & " checked"

end function

function selected(value1,value2)

selected = " value="&chr(34)&value2&chr(34)

if lcase(value1&"")=lcase(value2&"") then selected = selected & " selected"

end function

%>

本文原创发布php中文网，转载请注明出处，感谢您的尊重！