conn.asp

来自「１.功能强大的内容管理系统 2.无限二级栏目分类 3.新闻采集功能 4.管」· ASP 代码 · 共 36 行

<%
on error resume next
db="db.mdb"
set conn=server.createobject("adodb.connection")
dbpath=server.mappath(db)
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};UID=admin;PWD=123456;DBQ="&dbpath
set rs =server.createobject("adodb.recordset")

conn.open strconn

function CloseDatabase
Conn.close
Set conn = Nothing
End Function

rs.open "admin",conn,1,1
if not rs.eof then
 page_title=rs("title")
 page_logo=rs("logo")
 page_copying=rs("copying")
 page_name=rs("net_name")
 page_url=rs("url")
 page_addr=rs("addr")
 page_icp=rs("icp")
 page_tel=rs("tel")
 page_qq=rs("qq")
 page_email=rs("email")
 page_jmail=rs("jmail")
 page_smtp=rs("smtp")
 page_fax=rs("fax")
 page_mail_body=rs("mail_body")
 page_shop_html=rs("shop_html")
 end if
rs.close
%>