📄 edittest.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 ProvinceID,L_categoryID,L_name,L_description,L_updateTime,testID,L_position
ProvinceID=Request("ProvinceID")
L_categoryID=Request("L_categoryID")
L_name=Request("L_name")
L_description=Request("L_description")
L_updateTime=Request("L_updateTime")
testID=Request("testID")
If Request("L_position")<>"" and Isnumeric(Request("L_position")) Then
L_position=Request("L_position")
else
L_position=10000
end if
dim sql,rs
sql="select top 1 * from L_tests where L_testID="&testID
set rs=Server.createObject("adodb.recordset")
rs.open sql,conn,1,3
rs("ProvinceID")=ProvinceID
rs("L_categoryID")=L_categoryID
rs("L_name")=L_name
rs("L_description")=L_description
rs("L_updateTime")=L_updateTime
rs("L_position")=L_position
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 + -