config.asp

ASP源文件

<%
dbpath = server.mappath("data/ibook.mdb")
connstr = "driver={microsoft access driver (*.mdb)};dbq="& dbpath
set conn = server.createobject("adodb.connection")
conn.open connstr

sql = "select * from config"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1

iadmin = rs("admin")
ipassword = rs("password")
ititle = rs("title")
ihomepage = rs("homepage")
iurl = rs("url")
imax = rs("max")
ipagesize = rs("pagesize")
itoday = rs("today")
idate = rs("date")
ibottom = rs("bottom")
iimage = rs("image")
iqqshow = rs("qqshow")
icolor1 = rs("color1")
icolor2 = rs("color2")
icolor3 = rs("color3")

rs.close
set rs = nothing
%>