?? addtype.asp
字號(hào):
<!--#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_baseTypeID,L_parvalue,L_position,L_testID,L_updateTime
L_sequence=Request("L_sequence")
L_description=Request("L_description")
L_baseTypeID=Request("L_baseTypeID")
If Request("L_parvalue")<>"" and Isnumeric(Request("L_parvalue")) Then
L_parvalue=Request("L_parvalue")
else
L_parvalue=1
end if
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_updateTime=Request("L_updateTime")
dim sql,rs
sql="select top 1 * from L_types"
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_baseTypeID")=L_baseTypeID
rs("L_position")=L_position
rs("L_parvalue")=L_parvalue
rs("L_testID")=L_testID
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>無(wú)標(biāo)題文檔</title>
</head>
<body>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -