a25175_conn.asp

学生管理功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除

<%
'Dim connstr,db,strsql,rs,admin,adminpassword,wtitle,fenye,tongguo,leader,colleague,student,leaderp,colleaguep,studentp,teacherp,newscore,teacherscore,Password
'Dim visit_number,i,j,k,suiji,usertype,sql
'连接ACCESS数据库
connstr="DBQ="+server.mappath("../database/hrbu.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}" 
Set db= Server.CreateObject("ADODB.Connection") 
'db.open "Database=Hrbu;Uid=sa;Pwd=;Driver={SQL Server};Server=HRBU\Q"
'连接SQLSERVER2000数据库
db.open connstr
strsql="select * from admin"
set rs=db.execute(strsql)
admin=rs("adminname")
adminpassword=rs("adminpassword")
wtitle=rs("wtitle")
FENYE=RS("FENYE")
TONGGUO=RS("TONGGUO")
LEADER=RS("LEADER")
COLLEAGUE=RS("COLLEAGUE")
STUDENT=RS("STUDENT")
LEADERP=RS("LEADERP")
COLLEAGUEP=RS("COLLEAGUEP")
STUDENTP=RS("STUDENTP")
TEACHERP=RS("TEACHERP")
NEWscore=CINT(RS("NEWscore"))
tscore=RS("teacherscore")
Closeok=RS("Closeok")
Email=rs("Email")
zhichi=rs("zhichi")
banquan=rs("banquan")
Password=rs("password")
sub databaseclose()
rs.close
set rs=Nothing
db.close
set db=NOthing
end sub
sub userok()
if session("UserID")=""  or session("usertype")="" or session("UserNAME")=""  THEN
response.write"<script>alert('请不要非法登陆！');location='index.asp'</script>"	
response.End()
END IF
end sub
sub adminok()
if session("Admin")<>"ADMINHRBU" THEN
session.Abandon()
response.write"<script>alert('请不要非法登陆！');location='../index.asp'</script>"	
response.End()
END IF
end sub
%>