📄 trnedit.asp
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑培训信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
if (document.form1.subject.value==""){
alert("请输入培训主题！");
form1.subject.focus;
return false;
}
return true;
}
</Script>
</head>
<%
Dim Id,Subject,tTypeId,sTypeId,CreateDate,Detail,Status,Place,Teacher
Dim StartDate,EndDate,SignSDate,SignEDate,Attendant,Cost
Dim File1,FileName1,File2,FileName2,AttList
Dim Action,rs
'变量初始化
Cost = 0 '培训费用
StartDate = Date() '培训开始日期
EndDate = Date() '培训结束日期
SignSDate = Date() '培训报名开始日期
SignEDate = Date() '培训报名结束日期
CreateDate = Date() '记录创建日期
Action = Request.QueryString("action") '读取参数action
Set rs = Server.CreateObject("ADODB.RecordSet")
If Action = "edit" Then '编辑记录
Id = Request.QueryString("tid")
'设置SELECT语句，读取记录数据
sql = "SELECT * FROM Training WHERE Id=" & Id
rs.Open sql,conn,1,3
If Not rs.EOF Then
Subject = rs("Subject")
tTypeId = rs("tTypeId")
sTypeId = rs("sTypeId")
CreateDate = rs("CreateDate")
Detail = rs("Detail")
Status = rs("Status")
Place = rs("Place")
Teacher = rs("Teacher")
StartDate = rs("StartDate")
EndDate = rs("EndDate")
SignSDate = rs("SignSDate")
SignEDate = rs("SignEDate")
Attendant = rs("Attendant")
Cost = rs("Cost")
File1 = rs("File1") '附件1保存名称
FileName1 = rs("FileName1") '附件1显示名称
File2 = rs("File2") '附件2保存名称
FileName2 = rs("FileName2") '附件2显示名称
End If
rs.Close()
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="TrnSave.asp?action=<%=Action%>&tid=<%=Id%>" onsubmit="return CheckFlds()">
<table align="center" border="1" cellspacing="0" width="99%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="../pic/training.jpg" height="80" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6">培训信息</font></b></p>
</td>
</tr>
<tr>
<td bgcolor="#CEE7FF">培训主题</td>
<td colspan="3"><input type="text" name="subject" size="60" value="<%=Subject%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">培训类型</td>
<td><select size="1" name="ttype">
<%If tTypeId=0 Then%>
<option selected value="0">内部培训</option>
<option value="1">外部培训</option>
<%Else%>
<option value="0">内部培训</option>
<option value="1" selected>外部培训</option>
<%End If%>
</select></td>
<td bgcolor="#CEE7FF">课程类别</td>
<td>
<select size="1" name="stype">
<%sql = "Select * From Types Where Flag=1 ORDER BY TypeId"
rs.Open sql,conn,1,1
Do While Not rs.EOF
If rs("TypeId")=sTypeId Then %>
<option selected value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
<%Else%>
<option value="<%=rs("TypeId")%>"><%=rs("TypeName")%></option>
<%End If
rs.MoveNext()
Loop
rs.Close()%>
</select></td>
</tr>
<tr>
<td bgcolor="#CEE7FF" >培训地点</td>
<td colspan="3"><input type="text" name="place" size="60" value="<%=Place%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">培训教师</td>
<td><input type="text" name="teacher" size="20" value="<%=Teacher%>"></td>
<td bgcolor="#CEE7FF" >培训费用</td>
<td><input type="text" name="cost" size="20" value="<%=Cost%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">培训开始日期</td>
<td><input type="text" name="sdate" size="20" value="<%=StartDate%>"></td>
<td bgcolor="#CEE7FF">培训结束日期</td>
<td><input type="text" name="edate" size="20" value="<%=EndDate%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF">报名开始日期</td>
<td><input type="text" name="ssdate" size="20" value="<%=SignSDate%>"></td>
<td bgcolor="#CEE7FF">报名结束日期</td>
<td><input type="text" name="sedate" size="20" value="<%=SignEDate%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF" >参加人员</td>
<td colspan="3"><input type="text" name="att" size="60" value="<%=Attendant%>"></td>
</tr>
<tr>
<td bgcolor="#CEE7FF" >描述</td>
<td colspan="3"><textarea rows="3" name="detail" cols="60"><%=Detail%></textarea> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">附件1</td>
<td colspan="3"><input type="text" name="filename1" value="<%=FileName1%>" ReadOnly><input type="hidden" name="file1" value="<%=File1%>">
<iframe frameborder="0" height="25" width="100%" scrolling="no" src="upload.asp?no=1" ></iframe>
</td>
</tr>
<tr>
<td bgcolor="#CEE7FF">附件2</td>
<td colspan="3"><input type="text" name="filename2" value="<%=FileName2%>" ReadOnly><input type="hidden" name="file2" value="<%=File2%>">
<iframe frameborder="0" height="25" width="100%" scrolling="no" src="upload.asp?no=2" ></iframe>
</td>
</tr>
</table>
<br><center>创建日期:<%=CreateDate%></center>
<p align=center><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -