save_try_add.asp

来自「一个相当不错的考试系统源代码」· ASP 代码 · 共 21 行

<!--#include file="../include/conn2.asp"-->
<!--#include file="usercheck.asp"-->
<%
trysubject=trim(request("subject"))
tryselectQ=UCase(trim(request("selectQ")))
	tryselA=request("selA")
	tryselB=request("selB")
	tryselC=request("selC")
	set rs = server.CreateObject("adodb.recordset")
	sql = "select * from tiku"
	rs.open sql,conn,3,3
	rs.addnew
	rs("TRY_SUBJECT") = trysubject
	rs("a") = tryselA
	rs("b") = tryselB
	rs("c") = tryselC
	rs("TRY_KEY") = tryselectQ
	rs.update
session("sa_help")="上条记录添加完毕！"
response.Redirect("try_add.asp")
%>