conn.asp

2002年夏天为一个同学制作得班级同学录程序

<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("/db/xyl.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr

'================站点信息==================
sql_config="select * from config where type='sitename' "
set config_set=conn.execute(sql_config)
sitename=config_set("value")
config_set.close


sql_config="select * from config where type='siteaddr' "
set config_set=conn.execute(sql_config)
siteaddr=config_set("value")
config_set.close

sql_config="select * from config where type='toplog' "
set config_set=conn.execute(sql_config)
toplog=config_set("value")
config_set.close


sql_config="select * from config where type='topmarque' "
set config_set=conn.execute(sql_config)
topmarque=config_set("value")
config_set.close

sql_config="select * from config where type='gonggao' "
set config_set=conn.execute(sql_config)
gonggao=config_set("value")
config_set.close


sql_config="select * from config where type='masteremail' "
set config_set=conn.execute(sql_config)
masteremail=config_set("value")
config_set.close

%>