cj_edit_ok.asp

来自「本 源码是 VF 管理系统」· ASP 代码 · 共 32 行

<!--#include file="chkadmin.asp"-->
<!--#include file="conn.asp"-->
<%
classid=Request("classid")
jecid=Request("jecid")
stuid=Trim(Request("stuid"))
subid=Request("subid")
%>
<form method="post" action="cj_edit_ok2.asp">
<%
yn=0
Response.Write "正在查询符合条件的记录...<br><br>"
set fs=server.createobject("adodb.recordset")
fs.open "select * from [chengji]",conn,1,1
If fs.RecordCount=0 Then
  Response.Write "数据库中没有记录!"
Else
  Do while not fs.eof
     if fs("stuid")=Cint(stuid) and fs("subid")=Cint(subid) and fs("jecid")=Cint(jecid) Then
      Response.Write "找到了符合输入条件的记录,该记录成绩分数为："
      Response.Write "<input type=text name=cj size=3 value="&fs("cj")&">" & "  <input type=hidden name=id value=" & fs("id")&"><input type=submit value=修改 name=B1>"
      yn=1
    End If
  fs.MoveNext
  Loop
  If yn<>1 Then 
    Response.Write "没有找到符合条件的记录,请确认您输入信息的有效性!"
  End If
End If
fs.Close
Set fs=nothing
%>