<% 
'下载使用本系统时请将数据库改名。
'不要忘了。改名后请把下面的数据源路径修改一下。
 dim db
 dim connstr
 dim websql
 dim webrs
 dim webname
 dim url
 dim mail
 dim rows
 dim cel
 dim img

 db="mdb/mydatabase.mdb"                   
 connstr="DBQ="+server.MapPath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
 set conn=server.CreateObject("ADODB.Connection")
 conn.open connstr  
 websql="select * from config"
 on error resume next
 set webrs=server.CreateObject("Adodb.recordset")
 webrs.open websql,conn,1,1
     webname=webrs("webname")
	 url=webrs("url")
	 mail=webrs("mail")
	 rows=webrs("rows")
	 cel=webrs("cel")
	 img=webrs("img")
 webrs.close
 set webrs=nothing                                    
                                       
Sub rsclose()
    rs.close()
	set rs=nothing
End Sub
Sub connclose()
    conn.close()
	set conn=nothing
End Sub
%>