conn.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<% Response.Buffer=True
dim conn
dim connstr
db="./NjrAbgKOTRjS386a/SFJJT5MjNI8w.asp" '数据库文件位置
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

'=================================
'  冠龙网络科技有限公司
'  网址：http://www.glgk.com
'  电话 :[phone]
'  信箱：[e-mail]
'  QQ：53180986
'
'=================================
%>