📄 in9.asp

📁 学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁

💻 ASP

字号:




<!--#include file="conn.asp"-->

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


<%



 dim rs,bh
 dim sql

 nr=trim(request("nr"))
 bh=trim(request("bh"))
 xh=trim(request("xh"))
 sxh=trim(request("sxh"))
 snb=trim(request("snb"))
 fnb=trim(request("fnb"))
  set rs=server.createobject("adodb.recordset")
 sql="select * from ly where bh='" + bh + "'"
 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 rs=server.createobject("adodb.recordset")
 sql="select * from ly where bh is null"
 rs.open sql,conn,3,3
 rs.addnew

 rs("nr")=Replace(Request.Form("nr"),"'","''")
 rs("bh")=request("bh")
 rs("fxh")=request("xh")
 rs("sxh")=request("sxh")
 rs("snb")=request("snb")
 rs("fnb")=request("fnb")
 rs.update
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 
  response.write("<center>留言成功发送！</center>") 

  end if
 
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -