下面的代码是什么意思?
发布网友
发布时间：2022-06-13 12:41
共3个回答
热心网友
时间：2023-10-13 10:45
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 "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if
Sub CloseConn()
conn.close
set conn=nothing
End sub
%>
热心网友
时间：2023-10-13 10:46
热心网友
时间：2023-10-13 10:46
