kemu_add.asp

吻宇考试管理系统源码 吻宇考试管理系统源码

<!--#include file=conn.asp-->
<!--#include file=checkuser.asp-->
<%
dim rs,sql
dim namer,dxts,sxts,dxfs,sxfs,zongf,zongf1,passfs,passtime,zt
namer=request.Form("namer")
dxts=request.Form("dxts")
sxts=request.Form("sxts")
dxfs=request.Form("dxfs")
sxfs=request.Form("sxfs")
zongf=request.Form("zongf")
passfs=request.Form("passfs")
passtime=request.Form("passtime")
zt=request.form("zt")
zongf1=trim(dxts*dxfs+sxfs*sxts)
if zongf=zongf1 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from kemu"
rs.open sql,conn,2,3
rs.addnew
rs("name")=namer
rs("dxts")=dxts
rs("sxts")=sxts
rs("dxfs")=dxfs
rs("sxfs")=sxfs
rs("zongf")=zongf
rs("xztime")=passtime
rs("passfs")=passfs
rs("zt")=zt
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<script language="vbscript">
msgbox("恭喜你填加科目成功~!")
window.location.href"kemu.asp"
</script>
<%else%>
<script language="vbscript">
msgbox("对不起你输入的信息有误~!")
window.location.href"kemu.asp"
</script>
<%end if%>