in9.asp

来自「学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁」· ASP 代码 · 共 58 行

ASP
58
字号



<!--#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 + =
减小字号Ctrl + -
显示快捷键?