www.gusucode.com > 百度空间互踩联盟 1.0源码程序 > conn.asp
<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936" %> <% option explicit 'response.buffer = true dim startime dim conn dim connstr startime=timer() %> <!--#INCLUDE file="config.asp" --> <% ConnectionDatabase Sub ConnectionDatabase Dim ConnStr ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db) '如果你的服务器采用较老版本Access驱动,请用下面连接方法 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear CloseDatabase Response.Write "数据库连接出错" Response.End End If End Sub Sub CloseDatabase Conn.close Set conn = Nothing End Sub dim hx set hx=new cls_cutelink dim hxcache set hxcache=new cls_cache hxcache.CacheName="cutelink" hxcache.Name="js" hxcache.Reloadtime=CacheTime Dim SqlNowString If IsSqlDataBase = 1 Then SqlNowString = "GetDate()" Else SqlNowString = "Now()" End If %> <!--#INCLUDE file="class.asp" -->