?? dqe_class.asp
字號:
response.redirect ThisFileName&"?Result=編輯大類成功！"
End If
If Action="DelSmallClass" then
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_SmallClass Where SmallClassID="&Request("ID")
rs.open sql,conn,1,3
rs.Delete
rs.close
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_News Where SmallClassID="&Request("ID")
rs.open sql,conn,1,1
For i=0 to rs.RecordCount
Set Rs_Pinglun=Server.CreateObject("Adodb.RecordSet")
Sql_Pinglun="Delete * From DQE_Pinglun Where NewsID="&Rs("ID")
rs_Pinglun.open sql_Pinglun,conn,1,3
rs_Pinglun.close
rs.MoveNext
Next
rs.close
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_News Where SmallClassID="&Request("ID")
rs.open sql,conn,1,3
rs.Delete
rs.close
response.redirect ThisFileName&"?Result=刪除子類成功！"
End If
If Action="51EditSmallClass" then
'如果Action="Edit"表示是點了編輯按鈕,則表單ID不為空,取出該新聞類別的ID和名字
'并賦給參數,如ID=rs("ID"),設定表單各項的默認值等于相應參數
'如果Action="",則表示不是點了編輯按鈕,則不進行一下11行程序
'所以表單各項的默認值等于空了,如ID
'然后依次作為區別來判斷提交的數據是更改還是添加
'即使表單的Action的值都是Add
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_SmallClass Where SmallClassID="&Request("ID")
rs.open sql,conn,1,1
ID=rs("SmallClassID")
TheClassName=rs("SmallClassName")
TheClassURL=rs("SmallClassURL")
rs.close
ButtonValue=" 編 輯 " '當前是新聞編輯狀態,重新設定按鈕的值為"編 輯"
End If
If Action="EditSmallClass" then
If Request("TheClassName")="" then
response.Write "<br><br><br><center>新聞子類名稱不能為空..<br><br><a href="&ThisFileName&">》》返回...</a></center><body><html>"
Conn.Close
response.End()
End If
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_SmallClass Where SmallClassID="&Request("ID")
rs.open sql,conn,1,3
rs("SmallClassName")=Request("TheClassName")
rs("SmallClassURL")=Request("TheClassURL")
rs.update
rs.close
response.redirect ThisFileName&"?Result=編輯子類成功！"
End If
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" valign="middle"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" background="../images/3.jpg"><div align="center" class="style2">欄目管理</div></td>
</tr>
</table>
<table width="760" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<form name="form1" method="post" action="<%=ThisFileName%>?Action=<%
If Action="51AddSmallClass" then
response.Write "AddSmallClass"
ElseIf Action="51EditBigClass" then
response.Write "EditBigClass"
ElseIf Action="51EditSmallClass" then
response.Write "EditSmallClass"
Else
response.Write "AddBigClass"
End If
%>">
<tr>
<td width="85" height="30" align="center" valign="middle" bgcolor="#FFFFFF">
<%If Action="51AddSmallClass" then %>
<input type="Hidden" name="ID" Value="<%=Request("ID")%>">
<%Else%>
<input type="Hidden" name="ID" Value="<%=ID%>">
<%End If%>
類別名稱：</td>
<td width="*" align="left" valign="middle" bgcolor="#FFFFFF"> <input type="text" name="TheClassName" value="<%=TheClassName%>" size="50" /><%
If Action="51AddSmallClass" then Response.Write " 所屬大類：<Font color=#FF0000>"&Request("TheBigClassName")&"</Font>"
%></td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#FFFFFF">外部URL：</td>
<td align="left" valign="middle" bgcolor="#FFFFFF"> <input name="TheClassURL" type="text" value="<%=TheClassURL%>" size="50"> 不用請留空</td>
</tr>
<tr>
<td height="30" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF"><input type="submit" name="submit" value="<%=ButtonValue%>" /></td>
</tr>
<tr>
<td height="20" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" class="cuti_red"><%=Request("Result")%></td>
</tr></form>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#8F6DC4" class="Heitable">
<tr><td height="5"></td></tr>
<tr><td align="center" valign="middle" bordercolor="#8F6DC4" bgcolor="#FFFFFF">
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From DQE_BigClass Order By BigClassID Desc"
rs.open sql,conn,1,1
if rs.RecordCount=0 then
%>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#E9E2F3">
<tr><td align="center" valign="middle" bgcolor="#FFFFFF" height="25">沒有數據..</td>
</tr></table>
<%
Else
page=request.QueryString("page")
rs.pagesize=10
total=rs.recordcount
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page>rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif page <= 0 then
page = 1
else
rs.AbsolutePage = page
end if
End if
page = rs.AbsolutePage
%>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bordercolorlight="#636EA2" bordercolordark="#FFFFFF" bgcolor="#E9E2F3">
<tr bordercolor="#8F6DC4" bgcolor="#E9E2F3" background="../images/3.jpg">
<td width="5%" height="30" align="center" valign="middle"><span class="style6">ID</span></td>
<td width="*" height="30" align="left" valign="middle"><span class="style6"> [ID] 欄目名稱 (該類下新聞數量) {權值}</span></td>
<td width="10%" height="30" align="center" valign="middle"><span class="style6">添加子類</span></td>
<td width="5%" height="30" align="center" valign="middle"><span class="style6">編輯</span></td>
<td width="5%" height="30" align="center" valign="middle"><span class="style6">刪除</span></td>
</tr>
<%
For i=1 to rs.PageSize
if rs.EOF then
Exit For
end if
Set Rs_News=Server.CreateObject("Adodb.RecordSet")
SQL_News="Select * From DQE_News Where BigClassID="&Rs("BigClassID")
Rs_News.open sql_News,conn,1,1
NewsNum=Rs_News.RecordCount
Rs_News.Close
%>
<tr bordercolor="#8F6DC4" bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#F7F2FB'" onMouseOut="this.style.backgroundColor='#ffffff'" >
<td height="25" align="center" valign="middle"><%=rs("BigClassID")%></td>
<td align="left" valign="middle">├ <%="[<font color=#FF0000>"&rs("BigClassID")&"</font>] "&rs("BigClassName")%> (<font color=#0000FF><%=" "&NewsNum%></font> ) <u><%'=rs("BigClassURL")%></u><%
Set Rs1=Server.CreateObject("Adodb.RecordSet")
Sql1="Select * From DQE_SmallClass Where ForBigClassID="&Rs("BigClassID")&" Order By SmallClassID Desc"
rs1.open sql1,conn,1,1
If Rs1.recordcount<>0 then
Do while Not rs1.eof
Response.Write "<br>│ ├ [<font color=#FF0000>"&rs1("SmallClassID")&"</font>] "&rs1("SmallClassName")
Set Rs_News=Server.CreateObject("Adodb.RecordSet")
SQL_News="Select * From DQE_News Where SmallClassID="&Rs1("SmallClassID")
Rs_News.open sql_News,conn,1,1
response.Write " ( <font color=#0000FF>"&Rs_News.RecordCount&"</font> )"
response.Write " ——— <a href="&ThisFileName&"?Action=51EditSmallClass&ID="&rs1("SmallClassID")&">編輯</a> —— <a href="&ThisFileName&"?Action=DelSmallClass&ID="&rs1("SmallClassID")&" onClick='return confirm(""刪除小類："&rs1("SmallClassName")&"\n\n確定要執行操作嗎？\n\n該操作將刪除該分類下的所有文章以及所有相關評論\n\n請慎重！！！！"");'>刪除</a>"
Rs_News.Close
Rs1.MoveNext
Loop
End If
Rs1.Close
%></td>
<td width="10%" align="center" valign="middle"><a href="<%=ThisFileName%>?Action=51AddSmallClass&ID=<%=rs("BigClassID")%>&TheBigClassName=<%=rs("BigClassName")%>">添加子類</a></td>
<td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=51EditBigClass&ID=<%=rs("BigClassID")%>">編輯</a></td>
<td align="center" valign="middle"><a href="<%=ThisFileName%>?Action=DelBigClass&ID=<%=rs("BigClassID")%>" onClick='return confirm("刪除大類：<%=rs("BigClassName")%>\n\n確定要執行操作嗎？\n\n該操作將刪除該分類下的所有二級分類和所有文章以及所有相關評論\n\n請慎重！！！！");'>刪除</a></td>
</tr>
<%
rs.MoveNext
Next
%>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" height="5"><tr><td></td></tr></table>
<table width="98%" border="1" cellpadding="0" cellspacing="2" bordercolor="#8F6DC4" bgcolor="#C4ABE2">
<tr><td height="25" align="center" bgcolor="#FFFFFF">
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<%if page<rs.pagecount then%>
<%if page=1 then %>
[首頁] [上一頁]
<%else%>
[<a href="<%=ThisFileName%>?page=<%=1%>">首頁</a>]
[<a href="<%=ThisFileName%>?page=<% =page-1 %>">上一頁</a>]
<% end if %>
[<a href="<%=ThisFileName%>?page=<%=page+1%>">下一頁</a>]
[<a href="<%=ThisFileName%>?page=<%=rs.PageCount%>">尾頁</a>]
<%else%>
[<a href="<%=ThisFileName%>?page=<% = 1%>">首頁</a>]
[<a href="<%=ThisFileName%>?page=<% =page -1 %>">上一頁</a>]
[下一頁] [尾頁]
<%end if %>
<%else%>
[首頁] [上一頁] [下一頁] [尾頁]
<%end if%>
[頁次:<font color="red"><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>條 <font color="red"><b><%=rs.PageSize%></b></font>條/頁]
</td></tr></table>
<%
rs.Close
End If
Conn.Close
%>
</td></tr><tr><td height="5"></td></tr></table>
<br>
<br>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -