<%
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     =  "mxy659@sohu.com"                       'webmaster=站長信箱
webQQ         = "27597551"
webaddress    ="同發商務網絡有限公司"
webpostcode   ="730000"
webbank       ="中國工商銀行林州分行"
webcard       ="9558801706111247681   "
webegold      =""
webname       ="元志立"%>