📄 teach_harvest.asp
字号:
<%
pathlevel="../"
%>
<!--#include file="../database/conn.asp" -->
<!--#include file="../share/checkinput.asp" -->
<!--#include file="../share/checklogin.asp" -->
<script language="javascript">
function del(id,sid,item_id)
{
if(window.confirm("确定要删除此项目吗？"))
{
mystring="del.asp?id="+id+"&sid="+sid+"&item_id="+item_id
setTimeout('location.href=mystring',1)
location.href=mystring
}
}
</script>
<%
mess=request("mess")
select case mess
case 1
message="教学成果编号不能为空"
case 2
message="教学成果名称不能为空"
case 3
message="该教学成果编号已存在"
case 3
message="该教学名称编号已存在"
case 5
message="数据不存在或被删除"
case 6
message="检查时间格式不对，请按照提示格式输入！"
case 7
message="学年学期格式不对，请按照提示格式输入！"
case 10
message="添加成功！"
case 11
message="修改成功！"
end select
%>
<table width="100%" border="0" valign=top cellpadding="0" cellspacing="0">
<tr>
<td height="25" valign="middle" bgcolor="#C8E0FB"> <span class="redfont"><strong>教学成果库</strong></span></td>
</tr>
<tr>
<form action="index.asp?id=<%=id%>&sid=<%=sid%>" method="post" name="myform" id="myform" onSubmit="return checkinput()">
<td height="36" valign=middle class=blackfont>
教学成果编号：<input name="query_teitem_id" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="20">
教学成果名称：<input name="query_teitem_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="50">
教师姓名：<input name="query_t_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="" maxlength="50">
<input type="submit" name="Submit" value="查 询"><span class=redfont> ( 输入关键字查询 )</span>
</td>
</form>
</tr>
<tr>
<td height="2" valign="middle" bgcolor="#666666"></td>
</tr>
<tr>
<td height=200 valign="top" bgcolor="#C8E0FB">
<table width="100%" border="0" valign=top align="center" cellpadding="0" cellspacing="0" bgcolor="#f0f0f0" class="blackfont">
<tr bgcolor="#8CBDFF">
<td width="10%" align=center height="25"><strong>成果编号</strong></td>
<td width="15%" align=center><strong>成果名称</strong></td>
<td width="10%" align=center nowrap><strong>教师姓名</strong></td>
<td width="15%" align=center nowrap><strong>课程名称</strong></td>
<td width="8%" align=center nowrap><strong>学年学期</strong></td>
<td width="8%" align=center nowrap><strong>检查结果</strong></td>
<td width="12%" align=center nowrap><strong>检查人员</strong></td>
<td width="12%" align=center nowrap><strong>检查时间</strong></td>
<td width="10%" align=center nowrap><div align="center"><strong>操 作</strong></div></td>
</tr>
<%
query_teitem_id=request("query_teitem_id")
query_teitem_name=request("query_teitem_name")
query_t_name=request("query_t_name")
spage=request("page")
call checkinput(query_teitem_id)
call checkinput(query_teitem_name)
call checkinput(query_t_name)
if not Isnumeric(spage) then
response.redirect"error.asp?err=2"
end if
sql="select * from teach_harvest"
if len(query_teitem_id)>0 then
sql=sql&" where teitem_id like '%"&query_teitem_id&"%'"
if len(query_teitem_name)>0 then
sql=sql&" and teitem_name like '%"&query_teitem_name&"%'"
if len(query_t_name)>0 then
sql=sql&" and t_name like '%"&query_t_name&"%'"
end if
else
if len(query_t_name)>0 then
sql=sql&" and t_name like '%"&query_t_name&"%'"
end if
end if
else
if len(query_teitem_name)>0 then
sql=sql&" where teitem_name like '%"&query_teitem_name&"%'"
if len(query_t_name)>0 then
sql=sql&" and t_name like '%"&query_t_name&"%'"
end if
else
if len(query_t_name)>0 then
sql=sql&" where t_name like '%"&query_t_name&"%'"
end if
end if
end if
set rs=server.CreateObject("adodb.recordset")
rs.Cursorlocation=3
rs.open sql,cn,1,3
if rs.eof then
response.write " <span class='redfont'>查询不到或还未添加任何项目</span>"
else
rs.PageSize=10
pagesize=rs.pagesize
pagecount=rs.PageCount
allcount=rs.RecordCount
if cint(spage)<=pagecount and spage>0 then
rs.AbsolutePage=cint(spage)
else
spage="1"
rs.AbsolutePage=cint(spage)
end if
for i=1 to rs.PageSize
%>
<tr bgcolor="eeeeee">
<td height="25" align=center><%=rs("teitem_id")%></td>
<td align=center><%=rs("teitem_name")%></td>
<td align=center nowrap><%=rs("t_name")%></td>
<td align=center nowrap><%=rs("c_name")%></td>
<td align=center nowrap><%=rs("year_term")%></td>
<td align=center nowrap><%=rs("check_result")%></td>
<td align=center nowrap><%=rs("check_man")%></td>
<td align=center nowrap><%=rs("check_date")%></td>
<td align=center><div align="center">
<%
link="index.asp?id="&id&"&sid="&sid&"&steitem_id="&rs("id")&""
str="<a class=right_white href="&link&" title='修改项目 "&rs("teitem_name")&"'>修改</a> | <a class=right_white href='javascript:del("&id&","&sid&","&rs("id")&")' title='删除项目 "&rs("teitem_name")&"'>删除</a>"
response.write str
%>
</td>
</tr>
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
<tr bgcolor="#8CBDFF">
<td width="100%" height=20 colspan=9 align=center nowrap><div align="right">
共 <%=pagecount%> 页,<%=allcount%> 条记录,每页 <%=pagesize%> 条记录,本页是第 <%=spage%> 页. <a class=right_white href='index.asp?id=<%=id%>&sid=<%=sid%>&page=1&query_teitem_id=<%=query_teitem_id%>&query_teitem_name=<%=query_teitem_name%>&query_t_name=<%=cstr(query_t_name)%>'>首页</a>
<% if cint(spage)>1 then
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&cstr(spage-1)&"&query_teitem_id="&cstr(query_teitem_id)&"&query_teitem_name="&cstr(query_teitem_name)&"&query_t_name="&cstr(query_t_name)&"'>上一页</a> "
end if
if cint(spage)<pagecount then
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&cstr(spage+1)&"&query_teitem_id="&query_teitem_id&"&query_teitem_name="&query_teitem_name&"&query_t_name="&cstr(query_t_name)&"'>下一页</a> "
Response.write "<a class=right_white href='index.asp?id="&id&"&sid="&sid&"&page="&pagecount&"&query_teitem_id="&query_teitem_id&"&query_teitem_name="&query_teitem_name&"&query_t_name="&cstr(query_t_name)&"'>尾页</a> "
end if
end if
%> </div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="2" valign="middle" bgcolor="#999999"></td>
</tr>
<%
steitem_id=request("steitem_id")
if not Isnumeric(steitem_id) then
response.redirect"error.asp?err=2"
end if
if steitem_id>0 then
rs.close
sql="select * from teach_harvest where id="&steitem_id
rs.open sql,cn,1,3
if rs.eof then
response.redirect"error.asp?err=1"
else
n=1
end if
end if
%>
<tr>
<td height="25" valign="middle" bgcolor="#C8E0FB"> <span class="redfont"><strong><% if n=1 then response.write "修改" else response.write "添加" end if%>教学成果</strong> *标记为必填项</span></td>
</tr>
<tr>
<td height=200 valign="top" bgcolor="#C8E0FB">
<form action="<% if n=1 then response.write "edit" else response.write "add" end if%>.asp?id=<%=id%>&sid=<%=sid%><%if n=1 then response.write "&steitem_id="&rs("id")%>" method="post" name="myform" id="myform" onSubmit="return checkinput()">
<table width="500" border="0" valign=top align="center" cellpadding="0" cellspacing="0" bgcolor="#C8E0FB" class="blackfont">
<tr>
<td height="36" valign=middle class=blackfont>
成果编号 ：<input name="teitem_id" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("teitem_id") end if%>" maxlength="20"><span class="redfont"> *</span>
</td>
<td valign=middle class=blackfont>
成果名称 ：<input name="teitem_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("teitem_name") end if%>" maxlength="30"><span class="redfont"> *</span>
</td>
</tr>
<tr>
<td height="36" valign=middle class=blackfont>
教师姓名 ：<input name="t_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("t_name") end if%>" maxlength="20">
</td>
<td valign=middle class=blackfont>
课程名称 ：<input name="c_name" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("c_name") end if%>" maxlength="80">
</td>
</tr>
<tr>
<td height="36" valign=middle class=blackfont>
检查人员 ：<input name="check_man" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("check_man") end if%>" maxlength="20">
</td>
<td valign=middle class=blackfont>
检查时间 ：<input name="check_date" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("check_date") end if%>" maxlength="20"><span class="redfont"> 格式:2005-05-25</span>
</td>
</tr>
<tr>
<td height="36" valign=middle class=blackfont>
检查结果 ：<select name="check_result" type="select" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="">
<% if n=1 then %>
<option checked><%=rs("check_result")%></option>
<% else %>
<option checked>请选择</option>
<%end if%>
<option>优秀</option>
<option>良好</option>
<option>合格</option>
<option>不合格</option>
</td>
<td valign=middle class=blackfont>
学年学期 ：<input name="year_term" type="text" style="width:100px;border: 1px solid #CCCCCC;height:20px" value="<% if n=1 then response.write rs("year_term") end if%>" maxlength="20"><span class="redfont"> 格式:2005年上学年</span>
</td>
</tr>
<tr>
<td height="36" valign=middle align=right class=blackfont>
<input type="submit" name="Submit" value="<% if n=1 then response.write "修 改" else response.write "添 加" end if%>">
</td>
<td height="36" valign=middle align=left class=blackfont>
<input type="reset" name="reset" value="重 置">
</td>
</tr>
<tr>
<td height="20" valign=middle colspan=2 class=blackfont><span class="redfont"><b><%=message%></b></span>
</td>
</tr>
<% if n=1 then
%>
<tr>
<td height="20" colspan=2 valign=middle class=blackfont>
<input name="h_id" type="hidden" value="<%=rs("id")%>" maxlength="20">
</td>
</tr>
<% end if %>
</table>
</form>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
cn.close
set cn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -