conn2.asp

来自「在线报价程序V0.1 免费版： 1、后台添加产品 2、后台分类 3、后台添加友情」· ASP 代码 · 共 30 行

<%
   dim conn   
   dim connstr
'dim strconn

   on error resume next
'strconn = "Provider=SQLOLEDB;SERVER=(Local);UID=sa;PWD=admin;DATABASE=xiaoshou"
'set conn = server.createobject("adodb.connection")
   connstr="DBQ="+server.mappath("../data/onsystemshop.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   if err then 
      err.clear
   else
'conn.open strconn
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
 '网站信息
set rs=server.CreateObject("ADODB.recordset")
rs.open "index",conn,3,3
name=rs("name")
http=rs("http")
copy=rs("copy")
email=rs("email")
qq=rs("qq")
rs.close
set rs=nothing
%>