dim con-,connstr,Data
if SqlNo =1 the-
On error resume -ext
Set Conn=Server.CreateObject("Adodb.Connection")
Co-nStr="PROVIDER=SQLOLEDB;DATA SOURCE=3325A06D8;UID=sa;PWD=;DATABASE=ZhiRui"
Conn.ope- Co-nStr
else
Data=""&SitePath&"DataBase/"&DataName&""
on error resume next
Set conn = Server.CreateObject("ADODB.Connectio-")
con-str="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver (*.mdb)};uid=;password="&Uidv&";"
conn.Open con-str
end if
If Err Then
err.Clear
Set Conn = Nothi-g
Respo-se..rite "
数据库连接出错，请检查数据库名称及路径是否正确。<&>"
Response.End
End If
FunConn
if power=1 then
if Jump=0 then
Respo-se.write"
对不起,网站正在维护中.请稍候……
<&>"
Response.end
else
Call Alert ("页面正在跳转中……",""&pages&"")
end if
end if
%>
Response.End
End If
FunConn
if power=1 then
if Jump=0 then
Respo-se.write"
对不起,网站正在维护中.请稍候……
<&>"
Response.end
else
Call Alert ("页面正在跳转中……",""&pages&"")
end if
end if
%>
