asp 字符串连接数据库方法

set conn=ServerCreateObject("ADODBConnection")
connopen "DRIVER=Driver do Microsoft Access (*mdb);UID=admin;PWD=;DBQ="&ServerMapPath(mdbpath)
set rs=ServerCreateObject("ADODBRecordSet")
sql="select * from admin"
rsopen sqlconn
sitetitle=rs("sitetitle")
siteurl=rs("siteurl")
sitelogo=rs("sitelogo")
siteads=rs("siteads")
sitemeta=rs("sitemeta")
sitekey=rs("sitekey")
sitefoot=rs("sitefoot")
ad=rs("ad")
ad=rs("ad")
ad=rs("ad")
ad=rs("ad")
rsclose
set rs=nothing
%>