kebiaolian.asp

关于学生成绩的管理系统

<!--#include file="conn.asp"-->
<%
xino=Session.Contents("xino")
zhuanyeno=Session.Contents("zhuanyeno")
banno=Session.Contents("banno")
jino=Session.Contents("jino")
xiname=Session.Contents("xiname")
zhuanye=Session.Contents("zhuanye")
weekname=request.form("weekname")
jieci=request.form("jieci")
lessonname=request.form("lessonname")
week=request.form("week")
room=request.form("room")
teachername=request.form("teachername")
hours=request.form("hours")
shiyehours=request.form("shiyehours")
xuefen=request.form("xuefen")
pro=request.form("pro")
if lessonname="" then
response.write "<script language='javascript'>"
response.write "alert('请输入课程名');"
response.write "history.back(1);"
response.write "</script>"
response.end
end if
if room="" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入教室名');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
   end if
if teachername="" then
response.write "<script language='javascript'>"
response.write "alert('请输入教师名');"
response.write "history.back(1);"
response.write "</script>"
response.end
end if
if hours="" then
response.write "<script language='javascript'>"
response.write "alert('请输入该课程的学时数');"
response.write "history.back(1);"
response.write "</script>"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 课程"
rs.open sql,conn,1,3
rs.addnew
rs("xino")=xino
rs("xiname")=xiname
rs("zhuanyeno")=zhuanyeno
rs("zhuanye")=zhuanye
rs("jino")=jino
rs("banno")=banno
rs("weekname")=weekname
rs("jieci")=jieci
rs("lessonname")=lessonname
rs("week")=week
rs("room")=room
rs("teachername")=teachername
rs("hours")=hours
rs("shiyehours")=shiyehours
rs("xuefen")=xuefen
rs("pro")=pro
rs.update
rs.close
response.redirect "kebiao.asp"

%>