?? type.asp
字號:
<%@ codepage ="936" %>
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>"
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"91")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<%
if not isEmpty(request("sortid")) then
sortid=request("sortid")
else
Response.Redirect "type.asp"
Response.End
end if
%>
<script language="javascript">
function confirmdel(id,sortid){
if (confirm("刪除中類將刪除下屬的小類！真的要刪除這個中類嗎?"))
window.location.href="Admin_class_ok.asp?action=del_class_2&id="+id+"&sortid="+sortid+""
}
</script>
<script language="javascript">
function setting(id,sortid){
if (confirm("確定設置嗎?"))
window.location.href="setting.asp?id="+id+"&sortid="+sortid+""
}
</script>
<!--#include file="../../conn/conn.asp"-->
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr>
<th height=25 colspan="2" class="tableHeaderText">網站行業類別管理 </th>
</tr>
<tr>
<td colspan="2" class="forumRowHighlight"><p><B>注意</B>：<BR>
<font color="blue">①類別直接與發布的信息相關聯，刪除類別可能會影響到會員發布的供求商機信息。<br>
②點擊類別名稱進入相應下級分類，點擊相應的分類操作屬性進行相應操作。</font><br>
<font color="blue">③如果改變了網站行業分類，一定要重新<a href="makeallclass.asp"><font color="red"><b>生成行業分類JS文件</b></font></a>。</font><br>
<font color="red">④如：要添加三級分類——>先點擊大類進入二級類——>點擊二級類進入三級類——>添加三級類別</font>
[<a href="sort.asp">返回大類</a>] </td>
</tr>
</table>
<%
Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from class_1 where sortid="&sortid&""
rssort.open sortsql,conn,1,1
sortname=rssort("sort")
If rssort.eof and rssort.bof then
response.write"<SCRIPT language=JavaScript>alert('對不起，參數有誤!');"
response.write"this.location.href='javascript:history.back();'</SCRIPT>"
End if
rssort.close
set rssort=nothing
set rstype=server.createobject("adodb.recordset")
typesql="select * from class_2 where sortid="&sortid&""
rstype.open typesql,conn,1,1
%>
<br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=98% align=center class="tableBorder">
<tr>
<th height="22" colspan="2">行業二級分類列表</th>
</tr>
<TR>
<TD width="86%" height=25 class=bodytitle> 所屬類別：<a href=sort.asp>行業大類</a> > <a href=type.asp?sortid=<%=sortid%>><%=sortname%></a></td>
<TD width="14%" class=bodytitle><IMG src="../images_new/plus.gif" width="9" height="9"> <a href="admin_class_ok.asp?action=add_class_2&sortid=<%=sortid%>"><font color=red><b>添加二級分類</b></font></a></td>
</tr>
<TR>
<TD colspan="2" align=middle vAlign=top>
<div align="left"> <img src="/images/choice_example.gif" width="14" height="14" align="top"> 頂級行業目錄優先排序，建議按照版面大小來設置顯示！
<TABLE width="100%" height="30" border="0" cellpadding="5" cellspacing="5">
<TR height=22>
<%
if rstype.eof then
response.Write"<br><br><div align='center'>暫無類別請<a href=admin_class_ok.asp?action=add_class_2&sortid="&sortid&">添加</a></div><br><br>"
else
j=1
do while not rstype.eof%>
<td width="33%" align="left" height=24 class="Forumrow">
<IMG src="../images_new/plus.gif" width="9" height="9"> <input type=checkbox name=selAnnounce value="<%=rstype("typeid")%>" <%if rstype("top")=1 then response.write "checked"%> onclick="javascript:setting(<%=rstype("typeid")%>,<%=sortid%>)"><a href="type_2.asp?typeid=<%=rstype("typeid")%>"><%=rstype("typename")%></a>〖<a href=Admin_class_ok.asp?action=edit_class_2&id=<%=rstype("typeid")%>&sortid=<%=sortid%>><font color=#ff0000>修改</font></a>│<a href='javascript:confirmdel(<%=rstype("typeid")%>,<%=sortid%>)'><font color=#ff0000>刪除</font></a>〗
</td>
<%if j mod 3 = 0 then %></tr><tr ><%end if%>
<% rstype.movenext
j=j+1
loop
rstype.close
set rstype=nothing
end if
%>
</tr>
</TABLE></TD>
</TR>
</TABLE>
<br>
<%
sub deleteannounce(id)
conn.execute("update class_2 set top=1 where typeid="&cstr(id)&"")
End sub
%>
<!--#include file="../copy.asp" -->?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -