📄 type.asp
字号:
<%
if instr(session("EAPurview"),"31")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="../../Inc/DBConn1.asp" -->
<LINK href="../../CSS/style.css" rel="stylesheet" type="text/css"></LINK>
<%
if request("action")="del" then
conn.execute("delete from Sort2 where TypeID=" & request("TypeID"))
end if
%>
<%
set TypeRs=server.createobject("adodb.recordset")
TypeSql="select * from Sort2 where SortID=" & request("SortID") & " order by TypeID ASC"
TypeRs.open TypeSql,conn,1,1
%>
<CENTER>
<table width="100%" border="0" cellspacing="0" cellpadding="3" ID="Table1">
<TR height=30 bgcolor="#F78200">
<TD><b><font color="#FFFFFF">行类中类管理 —— <a href="AddType.asp?SortID=<%=request("SortID")%>"><font color="#FFFFFF">添加行业中类</font></a> —— <a href="Sort.asp"><font color="#FFFFFF">返回大类管理</font></a></font></b></td>
</tr>
<tr>
<td valign=top>
<TABLE border="0" width="100%" cellpadding="0" ID="Table2">
<TR height=23>
<%
j=1
while not TypeRs.eof
%>
<td width="25%" height="25" align="left"><p style="line-height:150%"><a href="Child.asp?SortID=<%=request("SortID")%>&TypeID=<%=TypeRs("TypeID")%>"><%=TypeRs("TypeName")%></a> 〖<a href='EditType.asp?SortID=<%=request("SortID")%>&TypeID=<%=TypeRs("TypeID")%>'><font color=#ff0000>修改</font></a>│<a href='Type.asp?SortID=<%=request("SortID")%>&action=del&TypeID=<%=TypeRs("TypeID")%>' onclick="return confirm('确定要删除这个行业中类吗?')"><font color=#ff0000>删除</font></a>〗</td>
<%if j mod 2 = 0 then%></tr><tr><%end if%>
<%
TypeRs.movenext
j=j+1
wend
TypeRs.close
set TypeRs=nothing
%>
</TABLE>
</TD>
</TR>
</TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -