odbc_connection.asp

学生学籍管理系统学 生学籍管理系统学 生学籍管理系统学生学籍管理系统

<%
'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()

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


%>