<% 
'下载使用本系统时请将数据库改名。
'不要忘了。改名后请把下面的数据源路径修改一下。
 dim db
 dim connstr
 dim websql
 dim webrs
 dim webname
 dim url
 dim mail
 dim rows
 dim cel
 dim img


 db="mdb/fwqofn63134ff.asp.dsflwf.133952fwf4.mdb"                   
 connstr="DBQ="+server.MapPath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
 set conn=server.CreateObject("ADODB.Connection")
 conn.open connstr  
 websql="select * from setting"
 on error resume next
 set webrs=server.CreateObject("Adodb.recordset")
 webrs.open websql,conn,1,1
     
	 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
%>