addcjok.asp

北京市公交车查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统 把学生姓名成绩输入数据库...[

<!--#include file="conn.asp"-->
<%
number1=request("number1")
xueqi=request.form("xueqi")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from c1 where xueqi='"&xueqi&"' and cj='"&number1&"'"
rs.open sql,conn,1,1
if rs.eof then

c1=request.form("c1")
c2=request.form("c2")
c3=request.form("c3")
c4=request.form("c4")
c5=request.form("c5")
c6=request.form("c6")
c7=request.form("c7")
c8=request.form("c8")
c9=request.form("c9")
c10=request.form("c10")
j1=request.form("j1")
j2=request.form("j2")
j3=request.form("j3")
j4=request.form("j4")
j5=request.form("j5")
j6=request.form("j6")
j7=request.form("j7")
j8=request.form("j8")
j9=request.form("j9")
j10=request.form("j10")

if trim(request.form("c1"))="" then
   c1="    "
else
   c1=request.form("c1")
end if
if trim(request.form("j1"))="" then
   j1="     "
else
   j1=request.form("j1")
end if

if trim(request.form("c2"))="" then
   c2="    "
else
   c2=request.form("c2")
end if
if trim(request.form("j2"))="" then
   j2="     "
else
   j2=request.form("j2")
end if

if trim(request.form("c3"))="" then
   c3="    "
else
   c3=request.form("c3")
end if
if trim(request.form("j3"))="" then
   j3="     "
else
   j3=request.form("j3")
end if

if trim(request.form("c4"))="" then
   c4="    "
else
   c4=request.form("c4")
end if
if trim(request.form("j4"))="" then
   j4="     "
else
   j4=request.form("j4")
end if

if trim(request.form("c5"))="" then
   c5="    "
else
   c5=request.form("c5")
end if
if trim(request.form("j5"))="" then
   j5="     "
else
   j5=request.form("j5")
end if

if trim(request.form("c6"))="" then
   c6="    "
else
   c6=request.form("c6")
end if
if trim(request.form("j6"))="" then
   j6="     "
else
   j6=request.form("j6")
end if

if trim(request.form("c7"))="" then
   c7="    "
else
   c7=request.form("c7")
end if
if trim(request.form("j7"))="" then
   j7="     "
else
   j7=request.form("j7")
end if

if trim(request.form("c8"))="" then
   c8="    "
else
   c8=request.form("c8")
end if
if trim(request.form("j8"))="" then
   j8="     "
else
   j8=request.form("j8")
end if

if trim(request.form("c9"))="" then
   c9="    "
else
   c9=request.form("c9")
end if
if trim(request.form("j9"))="" then
   j9="     "
else
   j9=request.form("j9")
end if

if trim(request.form("c10"))="" then
   c10="    "
else
   c10=request.form("c10")
end if
if trim(request.form("j10"))="" then
   j10="     "
else
   j10=request.form("j10")
end if



rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM admin1 where number='"&number1&"'" 
rs.Open sql,conn,3,3
if not rs.eof then
classname=rs("class")
studentname=rs("studentname")
end if

%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM c1" 
rs.Open sql,conn,3,2
rs.addnew
rs("cj")=number1
rs("classname")=classname
rs("studentname")=studentname
rs("xueqi")=xueqi
rs("c1")=c1
rs("c2")=c2
rs("c3")=c3
rs("c4")=c4
rs("c5")=c5
rs("c6")=c6
rs("c7")=c7
rs("c8")=c8
rs("c9")=c9
rs("c10")=c10
rs("j1")=j1
rs("j2")=j2
rs("j3")=j3
rs("j4")=j4
rs("j5")=j5
rs("j6")=j6
rs("j7")=j7
rs("j8")=j8
rs("j9")=j9
rs("j10")=j10
rs.update
rs.close

conn.close
set conn=nothing %>
<script language="JavaScript">        
alert("\恭喜您,成功添加成绩")

</script>
<table border="0" cellspacing="0" width="100%" cellpadding="0">
   <tr>
      
    <td width="100%"  height="250" valign="middle" align="center"><a href="newcj.asp">返回</a></td>
   </tr>
</table>
<%
else
%>
<!--#include file="top.asp"-->
<%
response.write "对不起,此学号本学期的成绩已经添加了"
response.write "&nbsp;&nbsp;&nbsp;<a href='newcj.asp'>     返回</a>"
end if%>