📄 adddata.asp
字号:
<!--#include file="headfiles/Connection.inc"-->
<%
dim intTID,txtName
intTid=request("ID")
if intTid="" then
intTid=1
else
intTid=cint(intTid)
end if
txtName=request.form("txtName")
response.write(txtName)
dim rsItem
set rsItem=server.CreateObject("ADODB.RECORDSET")
select case intTID
case 1
strSql="select Depart_ID as itemID,Depart_Name as itemName from DepartTable"
case 2
strSql="select EduDegree_ID as itemID,EduDegree_Name as itemName from EduDegreeTable"
case 3
strSql="select EmployeeType_ID as itemID,EmployeeType_Name as itemName from EmployeeTypeTable"
case 4
strSql="select PayType_ID as itemID,PayType_Name as itemName from PayTypeTable"
case 5
strSql="select ForeignLanguage_ID as itemID,ForeignLanguage_Name as itemName from ForeignLanguageTable"
case 6
strSql="select JobTitle_ID as itemID,JobTitle_Name as itemName from JobTitleTable"
case 7
strSql="select Position_ID as itemID,Position_Name as itemName from PositionTable"
case 8
strSql="select Nation_ID as itemID,Nation_Name as itemName from NationTable"
case 9
strSql="select Political_ID as itemID,Political_Name as itemName from PoliticalTable"
case 10
strSql="select Married_ID as itemID,Married_Name as itemName from MarriedTable"
case 11
strSql="select Level_ID as itemID,Level_Name as itemName from LevelTable"
case 12
strSql="select UserPower_ID as itemID,UserPower_Name as itemName from UserPowerTable"
case else
strSql="select Depart_ID as itemID,Depart_Name as itemName from DepartTable"
end select
rsItem.open strSql,Conn,3,2
rsItem.addnew
rsItem("itemName")=txtName
rsItem.update
response.redirect("BasicData.asp?intTID="&intTid)
%>
<html>
<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 + -