📄 ckdmt.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="dqe_Conn.asp"-->
<!--#include file="check.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">
<!--
.unnamed1 { border: 1px dashed #CCCCCC;
}
.unnamed2 {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: none;
border-right-style: dashed;
border-bottom-style: dashed;
border-left-style: none;
border-top-color: #E1DFE0;
border-bottom-color: #E1DFE0;
border-right-color: #E1DFE0;
}
.unnamed3 {border: 1px solid #E1E1E1;
}
body,td,th {
font-family: 宋体;
font-size: 10pt;
color: #000000;
}
a:link {
color: #60389A;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #60389A;
}
a:hover {
text-decoration: underline;
color: #FF0000;
}
a:active {
text-decoration: none;
color: #9874CC;
}
.style1 {color: #9A76CD}
.style2 {color: #9773CB}
.style3 {color: #FFFFFF}
body {
background-image: url(images/204.gif);
}
-->
</style>
</head>
<body>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4">
<tr>
<td height="31" bgcolor="#E9E2F3"><div align="center"><a href="readme.asp" class="style2">使用说明</a> ------ <a href="sqxg.asp" target="_blank" class="style2">填加教室申请项目</a> ------ <a href="xsycjp.asp" class="style1">查看教室申请记录</a> ------ <a href="andjs.asp" target="_blank">增加多媒体教室</a> ------<a href="ckdmt.asp" class="style1"> 查看已有多媒体教室 </a>------<a href="tuichu.asp" class="style1"> 安全退出</a></div></td>
</tr>
</table>
<br>
<br>
<table width="50%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#9F78D1" bgcolor="#FFFFFF" class="style2">
<tr align="center" valign="middle" bgcolor="#A88CD2" background="images/3.jpg">
<td height="20" colspan="5"><span class="style3">查看教室申请记录</span></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="15" colspan="5" class="unnamed2"><%
const MaxPerPage=50
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<%
sql="select * from js ORDER BY ID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,""
showContent
showpage totalput,MaxPerPage,""
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,""
showContent
showpage totalput,MaxPerPage,""
else
currentPage=1
showpage totalput,MaxPerPage,""
showContent
showpage totalput,MaxPerPage,""
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%></td>
</tr>
<tr bgcolor="#F5F3FA">
<td width="24%" height="20" class="unnamed2"><div align="center">ID</div></td>
<td width="47%" height="20" class="unnamed2"><div align="center">教室</div> <div align="center"></div> </td>
<td height="20" class="unnamed2"><div align="center">删除</div></td>
<td height="20" class="unnamed2"><div align="center">修改</div></td>
</tr>
<%do while not rs.eof%>
<tr>
<td height="20" class="unnamed2"><div align="center"><%=rs("ID")%></div></td>
<td height="20" class="unnamed2"><div align="center"><%=rs("jiaoshi")%></div> <div align="center"></div> <div align="center"></div> <div align="center"></div> <div align="center"></div></td>
<td width="17%" height="20" class="unnamed2"><div align="center"><a href="shanchujs.asp?id=<%=rs("id")%>" target="_blank">删除</a></div></td>
<td width="12%" height="20" class="unnamed2"><div align="center"><a href="andjs.asp?id=<%=rs("id")%>" target="_blank">修改</a></div></td>
</tr>
<%rs.movenext%>
<%
i=i+1
if i>=MaxPerPage then exit do
loop
%>
<%
end sub
%>
<tr>
<td height="20" colspan="5" class="unnamed2"><div align="center"> <%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0' height='25' align='center'><tr><td valign='middle' align='center'>"
if CurrentPage<2 then
response.write ""
else
response.write "<a href="&filename&"?page=1><img src='images/page_top.gif' align='middle' border=0 title='回首页'></a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"><img src='images/page_pv.gif' align='middle' border=0 title='上一页'></a> "
end if
if n-currentpage<1 then
response.write ""
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"
response.write "<img src='images/page_next.gif' align='middle' border=0 title='下一页'></a> <a href="&filename&"?page="&n&"><img src='images/page_end.gif' align='middle' border=0 title='尾 页'></a>"
end if
response.write " 页次：<b><font color=red>"&CurrentPage&"</font>/"&n&"</b>页"
response.write " 共<b>"&totalnumber&"</b>个 <b>"&maxperpage&"</b>个/页"
response.write "</td></tr></table>"
end function
%></div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -