conn.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<%
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dadsdfte/xiaoyuan.asa")
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 const"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1

homepage = rs("homepage")
url = rs("url")
email = rs("email")
qq = rs("qq")
gg = rs("gg")
ver = rs("ver")
xieyi = rs("xieyi")

rs.close
set rs = nothing
%>