<% Response.Buffer=True
dim conn
dim connstr
db="./wwwkkyyorg/wwwkkyyorgwwwkkyyorgasfasfdasfasfasfasfdasfasfasdfasfdadsdfasfd.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

Dim sql_BsCo,rs_BsCo,BsCompanyName,BsEnCompanyName,BsAddress,BsLinkman,BsEnLinkman,BsPhone,BsFax,BsWeb,BsEmail,BsWebMail,BsZipcode
sql_BsCo="select * from syswork where code='101'"
Set rs_BsCo= Server.CreateObject("ADODB.Recordset")
rs_BsCo.open sql_BsCo,conn,1,1

BsCompanyName=trim(rs_BsCo("BsCompanyName"))
BsEnCompanyName=rs_BsCo("BsEnCompanyName")
BsAddress=trim(rs_BsCo("BsAddress"))
BsEnAddress=trim(rs_BsCo("BsEnAddress"))
BsLinkman=trim(rs_BsCo("BsLinkman"))
BsEnLinkman=trim(rs_BsCo("BsEnLinkman"))
BsPhone=trim(rs_BsCo("BsPhone"))
BsFax=trim(rs_BsCo("BsFax"))
BsWeb=trim(rs_BsCo("BsWeb"))
BsEmail=trim(rs_BsCo("BsEmail"))
BsWebMail=trim(rs_BsCo("BsWebMail"))
BsZipcode=trim(rs_BsCo("BsZipcode"))
rs_BsCo.close

'=================================
'
'   雪狼工作室 电脑公司网站管理系统奥运庆典版
'    Apollo  401112684@qq.com
 
'        www.kkyy.org
'
'  copyright(c)2004 KKYY
'
'=================================
%>
