dim conn,user25175,pat25175,master25175,admin25175,site_name,site_logo,table_com
user25175=session("user25175")
'学生
pat25175=session("pat25175")
'家长
master25175=session("master25175") '教师
admin25175=session("admin25175") '管理
Set conn = Server.CreateObject("ADODB.Connection")
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/school.mdb") '新版本连接数据库
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("data/school.mdb")'老版本连接数据库
set rs=conn.execute("select sitename,sitelogo,tablecom from siteinfo where sid=1")
site_name=rs("sitename")
'网站名称
site_logo=rs("sitelogo")
'网站LOGO
table_com=rs("tablecom")
'表格属性
set rs=nothing
我下载的一个 25175学生成绩管理系统 我上传到服务器上(空间)显示连接错误。请指教
|