conn.asp

soft.studa.com大家一起加油啊,好痛苦啊,呵呵

<%
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("date/shop.mdb")
set conn= Server.CreateObject("ADODB.Connection")
conn.Open connstr

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

homepage = rs("homepage")
url = rs("url")
email = rs("email")
gg = rs("gg")

rs.close
set rs = nothing
%>