📄 down_gl.asp

📁 吻宇考试管理系统源码吻宇考试管理系统源码
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>吻宇考试管理系统</title>
<style type="text/css">
<!--
body {
	background-color: #EFF8FE;
}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
	color: #000000;
}
-->
</style>
<script language="vbscript">
sub del(id)
if confirm("你真的要删除此条下载资料吗~?") then
window.location.href"down_del.asp?id="&id
end if
end sub
</script>
</head>

<body>
<table align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
  <tr>
    <td colspan="5" bgcolor="#EFF8FE"><div align="center">下载管理</div></td>
  </tr>
  <tr>
    <td width="236" bgcolor="#EFF8FE"><div align="center">课件名称</div></td>
    <td width="57" bgcolor="#EFF8FE"><div align="center">属于科目</div></td>
    <td width="132" bgcolor="#EFF8FE"><div align="center">推荐程度</div></td>
	<td width="44" bgcolor="#EFF8FE"><div align="center">修改</div></td>
	<td width="41" bgcolor="#EFF8FE"><div align="center">删除</div></td>
    
  </tr>
<%
kemu=trim(request.querystring("kemu"))
if kemu="" then
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from down order by id desc"
rs.open sql,conn,1,1
url=""
else
set rs=server.createobject("adodb.recordset")
sql="select * from down where kemu='"&kemu&"' order by id desc"
rs.open sql,conn,1,1
url="kemu="&kemu
end if
pagesize=20
page=request.querystring("page")
if page<1 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
if not rs.eof then
rs.movefirst
rs.absolutepage=page
for i=1 to pagesize
id=rs("id")
%>  
  <tr>
    <td bgcolor="#EFF8FE"><%=rs("name")%></td>
    <td bgcolor="#EFF8FE"><div align="center"><a href="down_gl.asp?kemu=<%=rs("kemu")%>"><%=rs("kemu")%></a></div></td>
    <td bgcolor="#EFF8FE"><div align="center"><%=rs("tjcd")%></div></td>
	<td bgcolor="#EFF8FE"><div align="center"><a href="down_xg.asp?id=<%=id%>">修改</a></div></td>
	<td bgcolor="#EFF8FE"><div align="center"><a href="#" onclick="call del(<%=id%>)">删除</a></div></td>
	</tr>
<%
rs.movenext
if rs.eof then
exit for
end if
next
else
response.write"暂时没有任何数据"
end if
%>
  <tr>
    <td height="26" colspan="5" bgcolor="#EFF8FE">
	<table width="536" cellpadding="1" cellspacing="1">
      <tr>
        <td width="294" height="20">下载总数:<%=rs.recordcount%>条　总页数:<%=rs.pagecount%>页　当前页数:<%=page%>/<%=rs.pagecount%>页</td>
        <td width="233">|<a href="down_gl.asp?<%=url%>&page=1">第一页</a>|<a href="down_gl.asp?<%=url%>&page=<%=page-1%>">上一页</a>|<a href="down_gl.asp?<%=url%>&page=<%=page+1%>">下一页</a>|<a href="down_gl.asp?<%=url%>&page=<%=rs.pagecount%>">尾页</a>|<a href="down_gl.asp">管理总目录</a></td>
      </tr>
    </table>	</td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
set conn=nothing

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -