conn.asp

商务网络站点程序

<%
dim conn,DBPath
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../db/m.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set adsconn=server.createobject("ADODB.Connection")
adsdata="driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
homepage      = "http://www.cgxl.com/so/index.asp"               'homepage = 主页
homename      = "同发商务网络"                            'homename = 主页名称
webmaster     =  "[e-mail]"                       'webmaster=站长信箱
webQQ         = "27597551"
webaddress    ="同发商务网络有限公司"
webpostcode   ="730000"
webbank       ="中国工商银行林州分行"
webcard       ="9558801706111247681   "
webegold      =""
webname       ="元志立"%>