下面的代码是什么意思?

来源：百度知道 编辑：UC知道 时间：2024/05/26 03:23:26
<%
WJSys = "WJSys"
dim conn
dim connstr
dim db
db=""&WJdb_All&""
dim dbset:setdb = 1
On error resume next
Set conn = Server.CreateObject("ADODB.Connection")
select case setdb
case "1"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server. MapPath(""&db&"")
case "2"
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath(""&db&"")
case "3"
connstr="driver={SQL Server};server=localhost;UID=sa;PWD=123;
database=WJ_Sys_data" case else
connstr= "Dns=WJ_Sys_data"
end select
if err.number>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
res

<%
WJSys = "WJSys"
dim conn
dim connstr
dim db
db=""&WJdb_All&""
dim dbset:setdb = 1
On error resume next '当在程序执行过程中出现错误时不提示错误信息, 继续执行下一行代码.
Set conn = Server.CreateObject("ADODB.Connection") '连接数据库
select case setdb
case "1"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server. MapPath(""&db&"") '如果setdb为1，采用OLEDB方式连接access数据库字符串
case "2"
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath(""&db&"") '普通连接access数据库
case "3"
connstr="driver={SQL Server};server=localhost;UID=sa;PWD=123;
database=WJ_Sys_data" case else '连接SQL Server 数据库
connstr= "Dns=WJ_Sys_data"
end select
if err.number>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！&