conn.asp

后台默认管理账号密码：admin 后台主要功能如下：一、系统管理：管理员管理

<% 
Response.Buffer=True
dim conn
dim connstr
db="./data/#test.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,CompanyName,Address,Linkman,Phone,Fax,Website,Email,WebsiteMail,Zipcode
sql_BsCo="select * from Hover_Sys  where code='101'"
Set rs_BsCo= Server.CreateObject("ADODB.Recordset")
rs_BsCo.open sql_BsCo,conn,1,1

CompanyName=trim(rs_BsCo("CompanyName"))
Address=trim(rs_BsCo("Address"))
Linkman=trim(rs_BsCo("Linkman"))
Phone=trim(rs_BsCo("Phone"))
Fax=trim(rs_BsCo("Fax"))
Website=trim(rs_BsCo("Website"))
Email=trim(rs_BsCo("Email"))
WebsiteMail=trim(rs_BsCo("WebsiteMail"))
Zipcode=trim(rs_BsCo("Zipcode"))
rs_BsCo.close

'=================================
'   良精科技企业管理系统
'   www.liangjing.net
'  copyright(c)2001-2008 良精科技
'=================================

%>