📄 in1.asp

📁 学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁
💻 ASP
字号:
<!--#include file="conn.asp"-->

<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">


<%
 dim rs
 dim sql
 xh=trim(request("xh"))
 xm=trim(request("xm"))
 xb=trim(request("xb"))
 s=trim(request("s"))
 zybj=trim(request("zybj"))
 if xh="" then response.redirect("error.asp?word=学号不可以为空")
 if xm="" then response.redirect("error.asp?word=名字不可以为空")
 if s="" then response.redirect("error.asp?word=系名不可以为空")
 if zybj="" then response.redirect("error.asp?word=专业班级不可以为空")
 set rs=server.createobject("adodb.recordset")
 sql="select * from cxb where xh='" + xh + "'"
 rs.open sql,conn,3,3
 if not rs.eof then
    rs.close
    set rs=nothing
    conn.close
    set conn=nothing
    response.redirect("error.asp?word=该学号已经存在")
 else


 set rs1=server.createobject("adodb.recordset")
 sql1="select * from zybjmc where zybj='" + zybj + "'"
 rs1.open sql1,conn,3,3
bjbh=rs1("bjbh")


 rs1.close
 set rs1=nothing


key="b"+cstr(bjbh)

 set rs2=server.createobject("adodb.recordset")
 sql2="select * from cxb where xh is null"
 rs2.open sql2,conn,3,3
 rs2.addnew



 set rs=server.createobject("adodb.recordset")
 sql="select * from "&key&" where xh is null"
 rs.open sql,conn,3,3
 rs.addnew


 rs2("xh")=request("xh")
 rs2("xm")=request("xm")
 rs2("xb")=request("xb")
 rs2("s")=request("s")
 rs2("zybj")=request("zybj")







 rs("xh")=request("xh")
 rs("xm")=request("xm")
 rs("xb")=request("xb")
 rs("s")=request("s")
 rs("zybj")=request("zybj")
 rs("bz1")=request("bz1")
 rs("bz2")=request("bz2")
 rs("xsmm")=request("xsmm")
 
 if rs("xsmm")="" then
  rs("xsmm")="gws"'缺省时的密码
  end if
  
 rs("jtdz")=request("jtdz")
 rs("lxdh")=request("lxdh")

 rs("rxsj")=request("rxsj")
 rs("bysj")=request("bysj")
 rs("zzmm")=request("zzmm")
 rs("csrq")=request("csrq")
 rs("byzs")=request("byzs")
 
 rs("jg")=request("jg")
 rs("sw")=request("sw")
 rs("jl")=request("jl")
 rs("cf")=request("cf")


 rs("fs10")=0
 rs("fs11")=0
 rs("fs12")=0
 rs("fs13")=0
 rs("fs14")=0
 rs("fs15")=0
 rs("fs16")=0
 rs("fs17")=0
 rs("fs18")=0
 rs("fs19")=0

 rs("fs20")=0
 rs("fs21")=0
 rs("fs22")=0
 rs("fs23")=0
 rs("fs24")=0
 rs("fs25")=0
 rs("fs26")=0
 rs("fs27")=0
 rs("fs28")=0
 rs("fs29")=0

 rs("fs30")=0
 rs("fs31")=0
 rs("fs32")=0
 rs("fs33")=0
 rs("fs34")=0
 rs("fs35")=0
 rs("fs36")=0
 rs("fs37")=0
 rs("fs38")=0
 rs("fs39")=0

 rs("fs40")=0
 rs("fs41")=0
 rs("fs42")=0
 rs("fs43")=0
 rs("fs44")=0
 rs("fs45")=0
 rs("fs46")=0
 rs("fs47")=0
 rs("fs48")=0
 rs("fs49")=0

 rs("fs50")=0
 rs("fs51")=0
 rs("fs52")=0
 rs("fs53")=0
 rs("fs54")=0
 rs("fs55")=0
 rs("fs56")=0
 rs("fs57")=0
 rs("fs58")=0
 rs("fs59")=0

 rs("fs60")=0
 rs("fs61")=0
 rs("fs62")=0
 rs("fs63")=0
 rs("fs64")=0
 rs("fs65")=0
 rs("fs66")=0
 rs("fs67")=0
 rs("fs68")=0
 rs("fs69")=0

 rs("fs70")=0
 rs("fs71")=0
 rs("fs72")=0
 rs("fs73")=0
 rs("fs74")=0
 rs("fs75")=0
 rs("fs76")=0
 rs("fs77")=0
 rs("fs78")=0
 rs("fs79")=0

 rs("fs80")=0
 rs("fs81")=0
 rs("fs82")=0
 rs("fs83")=0
 rs("fs84")=0
 rs("fs85")=0
 rs("fs86")=0
 rs("fs87")=0
 rs("fs88")=0
 rs("fs89")=0
  
 rs("fs110")=0
 rs("fs111")=0
 rs("fs112")=0
 rs("fs113")=0
 rs("fs114")=0
 rs("fs115")=0
 rs("fs116")=0
 rs("fs117")=0
 rs("fs118")=0
 rs("fs119")=0

 rs("fs120")=0
 rs("fs121")=0
 rs("fs122")=0
 rs("fs123")=0
 rs("fs124")=0
 rs("fs125")=0
 rs("fs126")=0
 rs("fs127")=0
 rs("fs128")=0
 rs("fs129")=0

 rs("fs130")=0
 rs("fs131")=0
 rs("fs132")=0
 rs("fs133")=0
 rs("fs134")=0
 rs("fs135")=0
 rs("fs136")=0
 rs("fs137")=0
 rs("fs138")=0
 rs("fs139")=0

 rs("fs140")=0
 rs("fs141")=0
 rs("fs142")=0
 rs("fs143")=0
 rs("fs144")=0
 rs("fs145")=0
 rs("fs146")=0
 rs("fs147")=0
 rs("fs148")=0
 rs("fs149")=0

 rs("fs150")=0
 rs("fs151")=0
 rs("fs152")=0
 rs("fs153")=0
 rs("fs154")=0
 rs("fs155")=0
 rs("fs156")=0
 rs("fs157")=0
 rs("fs158")=0
 rs("fs159")=0

 rs("fs160")=0
 rs("fs161")=0
 rs("fs162")=0
 rs("fs163")=0
 rs("fs164")=0
 rs("fs165")=0
 rs("fs166")=0
 rs("fs167")=0
 rs("fs168")=0
 rs("fs169")=0

 rs("fs170")=0
 rs("fs171")=0
 rs("fs172")=0
 rs("fs173")=0
 rs("fs174")=0
 rs("fs175")=0
 rs("fs176")=0
 rs("fs177")=0
 rs("fs178")=0
 rs("fs179")=0

 rs("fs180")=0
 rs("fs181")=0
 rs("fs182")=0
 rs("fs183")=0
 rs("fs184")=0
 rs("fs185")=0
 rs("fs186")=0
 rs("fs187")=0
 rs("fs188")=0
 rs("fs189")=0








 rs.update
 rs.close
 set rs=nothing
 
 
  rs2.update
 rs2.close
 set rs2=nothing

 
 conn.close
 set conn=nothing
 
  response.write("<center>学生记录增加成功！</center>") 

 end if
 

 
%>
<center> 

　　 <form name="mainForm" enctype="multipart/form-data" 

action="upload.asp?xh=<%=xh%>&zybj=<%=zybj%>&s=<%=s%>&bjbh=<%=bjbh%>" method=post>
请选择将要上传的相片（最好使用jpg格式160*140象素）<p>
<input type=file name=mefile size="50"><p> 

　　 <input type=submit name=ok value="上传或不录入相片继续..."> 

　　 </form> 

</center>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -