📄 downclass.asp
字号:
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="Check.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理页面</title>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>
<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>
<script src="images/admin.js" type="text/javascript"></script>
<div class=menuskin id=popmenu
onmouseover="clearhidemenu();highlightmenu(event,'on')"
onmouseout="highlightmenu(event,'off');dynamichide(event)" style="Z-index:100"></div>
<div align=center>
<script language = JavaScript>
function showsetting(myform){
for (var j=0;j<7;j++){
var tab = eval('document.all.settable'+j);
if(myform.AdsType.selectedIndex==j)
tab.style.display = '';
else
tab.style.display = 'none';
}
}
</script>
<!--#include file="Top.asp" -->
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th>下载类别管理</th>
</tr>
<tr><td class=BodyTitle colspan=2 height=23 style="FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;"> </td>
</tr>
</table>
<BR>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
<tr>
<th width="10%" noWrap>编号</th>
<th noWrap>类别名称</th>
<th width="17%" noWrap>移动</th>
<th width="16%" noWrap>管理</th>
</tr>
<%
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from DownClass order by OrderID",Conn,1,1
Cou=rs.recordcount
i=0
do while not rs.eof
i=i+1
%>
<tr height="25">
<td class=forumRow align=center><%=i%></td>
<td align=center class=forumRow> <%=rs("Title")%> (英文:<%=rs("EnTitle")%>)</td>
<td align=center class=forumRow>
<a href="DownClass_OK.asp?act=order1&ID=<%=rs("ID")%>&OrderID=<%=rs("OrderID")%>">前移</a>
|
<a href="DownClass_OK.asp?act=order2&ID=<%=rs("ID")%>&OrderID=<%=rs("OrderID")%>">后移</a> </td>
<td align=center noWrap class=forumRow>
<a href="DownClass_Mod.asp?ID=<%=rs("ID")%>">修改</a> | <A HREF="DownClass_OK.asp?ID=<%=rs("ID")%>&act=del" onClick="Ask('<%=rs("Title")%>')">删除</A></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</div>
</body></html>
<script language="vbscript">
sub Ask(Title)
if not confirm("您确定要删除"&Title&"吗？") then
window.event.returnvalue=false
exit sub
end if
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -