conn.asp

一个较好的网上购物系统 是基于ASP的多用户网上商城

<%
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Date/shop.mdb")
set conn= Server.CreateObject("ADODB.Connection")
on Error Resume Next
conn.Open connstr
If Err then
err.clear
set conn=nothing
response.write "数据库连接出错，请检查连接。"
response.end
end if

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
%>