请教这段代码是什么意思
<% Response.charset="gb2312"
dim conn,connstr,Data
if SqlNo =1 then
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
Conn.open ConnStr
else
Data=""&SitePath&"DataBase/"&DataName&""
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver
(*.mdb)};uid=;password="&Psd()&";"
conn.Open connstr
end if
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>数据库连接出错，请检查数据库名称
及路径是否正确。</div>"
Response.End
End If
%>
