film_conn.asp

电影ASP文件

<%
   dim conn
   dim connstr
connstr="DBQ="+server.mappath("/filmdata/filmdata521rrdewe55213rfs.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Set rsr= Server.CreateObject("ADODB.Recordset")
rsr.open "select top 1 * from set_system",conn,1,1
webname=rsr("webname")
weburl=rsr("weburl")
webtitle=rsr("webtitle")
set_ie=rsr("set_ie")
set_logo=rsr("set_logo")
adminurl=rsr("adminurl")
logintype=rsr("logintype")
loginip=rsr("loginip")
bad_words=rsr("bad_words")
keywords=rsr("keywords")
Description=rsr("Description")
Payother=rsr("Pay")
rsr.close
set rsr=nothing
%>