admin_mov_conn.asp

重庆宽频P2P电影小偷程序,可以做一个大型的电影站了

<%
dim connstrItem
dim dbItem
dim connItem
dbItem="Admin_mov_Date.asa" '动易电影采集数据库地址(请使用相对路径)
On Error Resume Next
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
connItem.Open connstrItem
Const Edition=2006'动易网站管理系统版本，请填写2005或2006。
If Err Then
   err.Clear
   Set ConnItem = Nothing
   Response.Write "数据库连接出错，请检查连接字串。"
   Response.End
End If
sub CloseConnItem()
On Error Resume Next
   ConnItem.close
   Set ConnItem=nothing
End sub
%>