?? manage_line_sort.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_libs/my_request.asp"-->
<!--#include file="../my_libs/my_lib.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>線路類別管理</title>
<link rel="stylesheet" type="text/css" href="style_admin.css" />
</head>
<body>
<p><b>線路類別管理<font face="宋體" color="#FF6600">↓</font></b></p>
<table border="1" width="100%" id="table1">
<tr>
<td align="center" class="top_td">id</td>
<td align="center" class="top_td">類別名稱</td>
<td align="center" class="top_td">添加時間</td>
<td align="center" class="top_td">排序</td>
<td align="center" class="top_td">修改</td>
<td align="center" class="top_td">刪除</td>
</tr>
<%
dim sql,rs,i,arrlist(3),p
sql="select sort_id,zm_linesort,zm_flag,zm_addtime from ssort_line order by zm_flag"
set rs=conn.execute (sql)
if rs.eof then
response.write "暫時沒有任何線路類別，點擊<a href=add_line_sort.asp>這里添加</a>"
else
i=1
do while not rs.eof
for p=0 to 3
arrlist(p)=rs(p)
next
%>
<tr>
<td align="center"><%=i%></td>
<td align="center"><%=arrlist(1)%> (查看說明)</td>
<td align="center"><%=arrlist(3)%></td>
<td align="center"><%=arrlist(2)%></td>
<td align="center"><a href=modi_line_sort.asp?id=<%=arrlist(0)%>>修改</a></td>
<td align="center"><a href=pro_line_sort.asp?id=<%=arrlist(0)%>&flag=del>刪除</a></td>
</tr>
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
<tr>
<td colspan="6">
<p align="center">如果刪除類別將刪除此類別下的所有線路，刪除類別前如果要將此類別的線路<a href="unite_line_sort.asp">導出合并點擊這里</a>。</td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -