conn.asp

千年免费电影系统 V3.0版 在程序上借鉴了很多优秀电影系统的功能

<%
   'dim conn   
   'dim connstr   

'Set conn = Server.CreateObject("ADODB.Connection")
'connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=127.0.0.1; Initial Catalog=数据库名; User ID=用户名; Password=密码"
'conn.Open connstr

  connstr="DBQ="+server.mappath("../333/data/movie.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  set conn=server.createobject("ADODB.CONNECTION")
  conn.open connstr 
%>
<%
function chkcookie(fString)
fString = replace(fString, "'", "")
fString = replace(fString, " ", "")
chkcookie = fString
end function

%>