?? smallclass.asp
字號:
<!--#include file="Conn.ASP"-->
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF
%>
<html>
<head>
<title>分類管理</title>
<style type="text/css">
<!--
BODY {font-size:9pt;font-family:Tahoma,Verdana,MS Sans Serif,Courier New;}
a:link, a:visited{text-decoration:none;}
A:hover {text-decoration:underline;color:#C5F0C5}
tr, td, p{font-size:9pt}
B{color:#C5F0C5;}
INPUT.text{color:#000000;background-color:#95A095;border:1px solid #101010; }
INPUT {BACKGROUND-COLOR: #000000; color: #FFFFFF; font-size: 9pt; border-style: solid; border-color: #707070; PADDING-TOP: 3px}FONT.strong{color:#FFFFFF;font-weight:bold}
.rcontent, .info, .move, .title{background-color:#202420}
.footer{color:white;font-size:8pt}
.cell, .outter{background-color:#303430}
-->
</style>
</head>
<body bgcolor="#000000">
<div align="center">
<center>
<p> </p>
<table border="0" width="80%" bgcolor="#303430">
<tr>
<td width="100%" align="center" style="border: 3 solid #808080" valign="middle" height="55"><b><font size="2" color="#00FF00">系
統 小 類 管 理</font></b></td>
</tr>
<tr>
<td width="100%" align="center" style="border: 3 solid #808080">
<p> </p><div align="center">
<table border="0" cellspacing="1" width="80%" style="font-size: 10pt" bgcolor="#999999">
<tr bgcolor="#303430">
<td width="100%" align="center" colspan="5" height="50"> <font color="#FFFFFF">請謹慎執行<font color="#FF0000">刪除</font>操作！此操作將一起<font color="#FFFF00">刪除相應的新聞</font>！<br>
遇到排序不正常請使用“初始化排序”功能</font> </td>
</tr>
<%
Set rs6 = Server.CreateObject("ADODB.Recordset")
sql6 ="SELECT * From SmallClass order by SmallClassID"
RS6.open sql6,Conn,3,3
%>
<tr align="center" bgcolor="#666666">
<td width="10%"><font color="#FFFFFF">原序</font></td>
<td width="10%"><font color="#FFFFFF">新序</font></td>
<td width="25%"><font color="#FFFFFF">從屬大類</font></td>
<td width="25%"><font color="#FFFFFF">小類名稱</font></td>
<td width="30%"><font color="#FFFFFF">執 行</font></td>
</tr>
<%
i=0
do while not rs6.eof
i=i+1%>
<tr align="center">
<td width="10%" bgcolor="#303430"><font color="#FFFFFF"><%=rs6("ID")%></font></td>
<td width="10%" bgcolor="#303430"><font color="#FFFFFF"><%=rs6("SmallClassID")%></font></td>
<td width="20%" bgcolor="#303430"><font color="#FFFFFF"><%=rs6("BigClassName")%></font></td>
<td width="20%" bgcolor="#303430"><font color="#FFFFFF"><%=rs6("SmallClassName")%></font></td>
<td width="40%" bgcolor="#303430"> <a href="SmallClassedit.asp?ID=<%=rs6("ID")%>&SmallClassname=<%=rs6("SmallClassname")%>" style="color: #C0C0C0">編輯</a>
<a href="SmallClasskill.asp?ID=<%=rs6("ID")%>&SmallClassName=<%=rs6("SmallClassName")%>" style="color: #C0C0C0">刪除</a>
<%if i=1 then%>
<font color="#808080">拉上 </font>
<%else%>
<a href="SmallClassup.asp?ID=<%=rs6("ID")%>&SmallClassID=<%=rs6("SmallClassID")%>" style="color: #C0C0C0">拉上</a>
<%end if%>
<%if i=rs6.recordcount then%>
<font color="#808080">拉下</font>
<%else%>
<a href="SmallClassdown.asp?ID=<%=rs6("ID")%>&SmallClassID=<%=rs6("SmallClassID")%>" style="color: #C0C0C0">拉下</a></td>
<%end if%>
</tr>
<%
RS6.MoveNext
Loop
rs6.close
set rs6=nothing
%>
<tr>
<td width="100%" colspan="5" height="40" align="center" bgcolor="#303430"><a href="SmallClassstart.asp"><font color="#FFFFFF">初始化類型排序</font></a>
</td>
</tr>
<tr>
<td width="100%" align="center" colspan="5" bgcolor="#303430" height="55">
<form method="post" action="SmallClassadd.asp" name="type">
<br>
<%
set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.source,conn,1,1
%>
<font color="C0C0C0">在</font>
<select size="1" name="bigclassname" style="font-size: 9pt">
<%if rs.EOF then %>
<option>暫無任何大類</option>
<%else
while not rs.EOF
%>
<option value="<%=rs("BigClassName")%>"><%=trim(rs("BigClassName"))%></option>
<%
rs.MoveNext
wend
end if
rs.Close
set rs=nothing
%>
</select>
<font color="#C0C0C0">中添加小類：</font>
<input class=text type="text" name="type" size="15">
<input type="hidden" name="howmany" size="15" value=<%=i%>>
<input type="submit" name="Submit" value="添加">
<input type="reset" value="重寫" name="B1">
</form>
</td>
</tr>
</table>
<p> </p>
</div>
</td>
</tr>
</table>
</center>
</div>
<p align="center">
</body>
</html>
<%conn.close
set conn=nothing%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -