doexamine.asp

来自「一个学生信息管理网站」· ASP 代码 · 共 19 行

<!--#include file="..\inc\conn.asp"-->
<!--#include file="..\inc\SessionCheck.asp"-->
<%
Call DBConnBegin()
dim id,stuid,kaohe
id=trim(request("id"))
sSql="select * from stuinfo where [ID]='"&CStr(id)&"'"
oRs.open sSql,oConn,3,2
stuid=oRs("StuID")
oRs.close
kaohe=Request.Form("kaohe")
if kaohe<>"" then  
  '添加考核信息
  sSql="insert into ExamineInfo values('"&stuid&"','"&kaohe&"')"
  oRs.open sSql,oConn,1,1
end if
Call DBConnEnd()
Response.redirect "ExamineSearch.asp"
%>