zf11Sys = "zf11Sys" 'zjkdd' dim conn dim connstr dim db db=""&zf11db_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=zf11_Sys_data" case else connstr= "Dns=zf11_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 "数据库连接出错!" Res
ponse.End end if end if Sub CloseConn() conn.close set conn=nothing End sub %> <% ChannelID = 0 PageTitle = "版权申明" strHTML = GetTemplate(ChannelID, 7, 0) Call ReplaceCommonLabel strNavPath = strNavPath & strNavLink & " " & PageTitle strHTML = Replace(strHTML, "{$PageTitle}", SiteTitle & " >> " & PageTitle) strHTML = Replace(strHTML, "{$ShowPath}", strNavPath) strHTML = Replace(strHTML, "{$MenuJS}", GetMenuJS("", False)) strHTML = Replace(strHTML, "{$Skin_CSS}", GetSkin_CSS(0)) Response.Write strHTML %> Copyright ?2012 All Rights Reserved 版权所有 张家口广播电视大学 地址:河北张家口市桥东区五一东大街32号 邮编:075000 联系电话:0313-2052900 建议使用1024*768分辨率以上、IE6.0以上浏览器进行浏览,以实现最佳浏览效果

博天堂国际