conn.asp

来自「功能特点：1、在wap1.0的基础上添加了铃声栏目； 」· ASP 代码 · 共 19 行

<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("data/sn52#com.asa")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

sql="select * from config"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

webtitle = Rs("webtitle")
weburl = Rs("weburl")
weblogo = Rs("weblogo")
copyright = Rs("copyright")

Rs.close
set Rs = nothing
%>