connn.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
homepage      = "http://3896.cn/1/index.asp"               'homepage = 主页
homename      = "同发商务网络"                            'homename = 主页名称
webmaster     =  "[e-mail]"                       'webmaster=站长信箱
webQQ         = "27597551"
webaddress    ="网络有限公司"
webpostcode   ="730000"
webbank       ="中国招商银行分行"
webcard       ="3444"
webegold      =""
webname       ="元志立"

webmaster1     =  "[e-mail]"                       'webmaster1=站长信箱
webQQ1         = "224019"
webaddress1    ="网络有限公司"
webpostcode1   ="000"
webbank1       ="工商银行分行"
webcard1      ="9558 8027 0310 3376890"
webegold1      =""
webname1       ="元志立"
%>