?? fenlei.asp
字號:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<script>
function loadThreadFollow(t_id,b_id){
var targetImg =eval("document.all.followImg" + t_id);
var targetDiv =eval("document.all.follow" + t_id);
if ("object"==typeof(targetImg)){
if (targetDiv.style.display!='block'){
targetDiv.style.display="block";
}else{
targetDiv.style.display="none";
}
}
}
</script>
<%
dim rs,sql,class1,i,k
if request("cnmai")="class1" then
call add()
response.end
end if
if request("cnmai")="del" then
call del()
response.end
end if
k=1
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] order by paixu desc"
rs.open sql,conn,1,1
%>
<link href="inc_style.css" rel="stylesheet" type="text/css">
<p align="center"><img border="0" src="img/list_bo.gif" width="600" height="12"><br>
改變分類后請點擊[<a href="fenlei_html.asp"><font color="#0000FF">生成html分類頁面</font></a>] <font color="#666666">說明：排序數字越大越靠前顯示</font></p>
<div align="center">
<form method="POST" action="fenlei.asp?cnmai=class1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="451" height="105">
<tr>
<td height="25" width="449" bgcolor="#FEEEBC" align="center">分類總數:<font color="#666666"><b><%=rs.Recordcount%></b></font></td>
</tr>
<tr>
<td width="449" height="29" align="center" style="border-bottom-style: none; border-bottom-width: medium">
<p>增加大類：<input type="text" name="class1" size="20" value=""> </p>
</td>
</tr>
<tr>
<td width="449" height="26" align="center" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<p>排序數字：<input type="text" name="paixu" size="20" value="0"></td>
</tr>
<tr>
<td width="449" height="26" style="border-top-style: none; border-top-width: medium">
<p align="center">
<input type="submit" value=" 提 交 " name="B1" style="color: #000000; "></td>
</tr>
</table>
</form>
</center>
</div>
<div align="center">
<center>
<table cellspacing="0" width="456" style="border-collapse: collapse" cellpadding="0" border="0" background="img/bg.gif">
<tr>
<td width="51" valign="bottom" bgcolor="#FEEEBC" style="border-bottom-style: none; border-bottom-width: medium">
<p align="center">編號</td>
<td valign="bottom" width="175" bgcolor="#FEEEBC" style="border-bottom-style: none; border-bottom-width: medium">
名稱</td>
<td style="border-bottom-style: none; border-bottom-width: medium" valign="bottom" width="130" colspan="3" bgcolor="#FEEEBC">
<p align="center">操作</td>
<td valign="bottom" width="95" bgcolor="#FEEEBC" style="border-bottom-style: none; border-bottom-width: medium">
<p align="center">排序</td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="50" style="border-bottom-style: none; border-bottom-width: medium; border-left-style:none; border-left-width:medium; border-top-style:none; border-top-width:medium" height="20" valign="bottom">
<div align="center">
<font color="#000000"><b><%=k%></b></font></div>
</td>
<td style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium" height="20" valign="bottom" width="175">
<p align="left">
<font color="#FF0000">
<span id="followImg<%=k%>" style="CURSOR: hand" onclick="loadThreadFollow(<%=k%>,5)"><%=rs("class1")%></span></font></td>
<td style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium" height="20" valign="bottom" width="31">
<p align="center">
<font color="#800000"><span style="text-decoration: none"><a href="fenlei.asp?id=<%=rs("id")%>&cnmai=del">
<font color="#FF0000">[刪]</font></a></span></font></td>
<td style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium" height="20" valign="bottom" width="78">
<p align="center"><font color="#FF0000">[</font><a href="fenlei_2.asp?id=<%=rs("id")%>"><font color="#FF0000">添加分類</font></a><font color="#FF0000">]</font></td>
<td style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium" height="20" valign="bottom" width="24">
<p align="center">
<font color="#800000"><span style="text-decoration: none"><a href="#" ONCLICK="window.open('fenleiedit.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=325,height=100,left=100,top=100')">
<font color="#FF0000">[修]</font></a></span></font></td>
<td style="border-bottom-style: none; border-bottom-width: medium; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium" height="20" valign="bottom">
<p align="center"><font color="#FF0000"><%=rs("paixu")%></font></td>
</tr>
<tr style="display:none" id="follow<%=k%>">
<td width="456" height="20" valign="bottom" colspan="6">
<div >
<center>
<table cellpadding=0 cellspacing=0 width="405" border="0" style="border-collapse: collapse" bordercolor="#111111" >
<%
dim rs1,sql1
i=1
set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1="select * from [class2] where class1="&cstr(rs("id"))&" order by paixu desc"
rs1.open sql1,conn,1,1
if rs1.eof then
response.write "<tr><td><font color=""#ff0000""><p align=""center"">沒有類別</font></td></tr>"
else
%>
<tr>
<%do while not rs1.eof%>
<td height=20 width="72">
<p align="center"><font color="#666666"><%=i%></font></td><td height=20 width="200">
<font color="#666666"><%=rs1("class2")%></font></td>
<td height=20 width="27">
<font color="#800000"><span style="text-decoration: none"><a href="fenlei_2editdel.asp?id=<%=rs1("id")%>&cnmai=del">
<font color="#666666">[刪]</font></a></span></font></td>
<td height=20 width="29">
<font color="#800000"><span style="text-decoration: none"><a href="#" ONCLICK="window.open('fenlei_2edit.asp?paixu=<%=rs1("paixu")%>&class1=<%=rs1("class1")%>&class2=<%=rs1("class2")%>&classid=<%=rs1("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=325,height=100,left=100,top=100')">
<font color="#666666">[修]</font></a></span></font></td>
<td height=20 width="31"> </td>
<td height=20 width="46">
<p align="center"><font color="#666666"><%=rs1("paixu")%></font></td></tr>
<%
i=i+1
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</table>
</center>
</div>
</td>
</tr>
<%
k=k+1
rs.movenext
loop
%>
</table>
</div>
<%
rs.close
set rs=nothing
%>
<%
sub add()
class1=trim(request("class1"))
if class1="" then
response.write "<li>錯誤，類別為空！"
response.write "<meta http-equiv=refresh content=""2;URL=fenlei.asp"">"
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class1] where class1='"&trim(request("class1"))&"'"
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
rs("class1")=trim(request("class1"))
rs("paixu")=trim(request("paixu"))
rs.update
response.write "<li>添加大類成功。"
response.write "<meta http-equiv=refresh content=""1;URL=fenlei.asp"">"
rs.close
set rs=nothing
else
response.write "<li>錯誤，名稱已經存在！"
rs.close
set rs=nothing
response.write "<meta http-equiv=refresh content=""2;URL=fenlei.asp"">"
response.end
end if
end sub
sub del()
dim rs,sql1,sql2,id
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>參數錯誤！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql1="delete from [class1] where id="&cstr(id)
rs.open sql1,conn,1,3
sql2="delete from [class2] where class1="&id&""
rs.open sql2,conn,1,3
sql="delete from [xinxi] where class1="&id&""
rs.open sql,conn,1,3
response.write "<font size=2>刪除大類成功!</font><br>"
response.write "<meta http-equiv=refresh content=""1;URL=fenlei.asp"">"
end sub
closedb
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -