📄 addquestions.asp
字号:
<!--#include file="../../../../inc/config.asp" -->
<!--#include file="../../../../inc/conn.asp" -->
<!--#include file="../../../../inc/function.asp"-->
<%
dim conn
set conn=Server.CreateObject("ADODB.CONNECTION")
set conn=openExamData()
dim L_sequence,L_description,L_parse,L_position,L_testID,L_TypeID,L_updateTime
L_sequence=Request("L_sequence")
L_description=Request("L_description")
L_parse=Request("L_parse")
If Request("L_position")<>"" and Isnumeric(Request("L_position")) Then
L_position=Request("L_position")
else
L_position=10000
end if
L_testID=Request("L_testID")
L_TypeID=Request("L_TypeID")
L_updateTime=Request("L_updateTime")
dim sql,rs
sql="select top 1 * from L_questions"
set rs=Server.createObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("L_sequence")=L_sequence
rs("L_description")=L_description
rs("L_parse")=L_parse
rs("L_position")=L_position
rs("L_testID")=L_testID
rs("L_TypeID")=L_TypeID
rs("L_updateTime")=L_updateTime
rs.update
rs.close
set rs=nothing
call OKMsg("操作成功","javascript:window.close();")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -