?? aa_neclass.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 產品名稱：CSYS.COM.CN企業全站管理系統（V2007簡體中文版）
' 聯系：QQ：61128110 Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved.
'***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_NeClass.asp?Action=Add>添加新聞分類</A> | <A HREF=Aa_NeClass.asp?Action=Manage>新聞分類列表</A> | <A HREF=Aa_NeClass.asp?Action=Merges>合并分類</A>"
Table_List="Tx_NeClass"
Table_Page="Aa_NeClass"
Table_formPage="Aa_NeClass"
Select case Action
case "Add"
Call Page_AdminFlag(40)
Page_BootmName="添加新聞分類"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_NeClass.asp?Action=sAdd>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>分類名稱：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Class_Name TYPE=text id=Class_Name size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR><TD HEIGHT=30 CLASS=Table8>所屬類別：</TD>"&_
"<TD CLASS=Table8><select NAME=ParentID id=ParentID><OPTION VALUE='0'>無（作為一級分類） </OPTION>"
strIfx = "</select></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>類別介紹：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Class_Content cols=44 rows=5 id=Class_Content></TEXTAREA> 100個字以內，HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>分類審核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio NAME=Class_Flag VALUE='1' CLASS=radio_all checked> 通過審核 <INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='0'>取消審核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交資料> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新輸入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
case "Adds"
Call Page_AdminFlag(40)
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_NeClass Where Class_Id=" & Id
Rs.open Sql,Conn,1,1
IF Rs("Class_ParentPath")<>"0" Then
arrClassId=split(Rs("Class_ParentPath"),"|")
For intTemp=0 to ubound(arrClassId)
Set Rs_n=server.createobject("adodb.recordset")
Sql="Select * From Tx_NeClass Where Class_Id=" & arrClassId(intTemp)
Rs_n.open Sql,Conn,1,1
Class_Name=Class_Name & Rs_n("Class_Name") & " > "
Rs_n.Close
Set Rs_n=Nothing
Next
End IF
Class_Name=Class_Name & Rs("Class_Name")
Rs.Close
Set Rs=Nothing
Page_BootmName=Class_Name & " > 添加子類"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_NeClass.asp?Action=sAdd>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>分類名稱：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Class_Name TYPE=text id=Class_Name size=45> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR><TD HEIGHT=30 CLASS=Table8>所屬類別：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=ParentID TYPE=hidden id=ParentID VALUE='" & Id & "'>" & Class_Name & ""&_
"</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>類別介紹：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Class_Content cols=44 rows=5 id=Class_Content></TEXTAREA> 100個字以內，HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>分類審核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio NAME=Class_Flag VALUE='1' CLASS=radio_all checked> 通過審核 <INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='0'>取消審核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT CLASS=submit_all NAME=ok TYPE=submit id=ok VALUE=提交資料> "&_
"<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新輸入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
case "Edit"
Call Page_AdminFlag(41)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_NeClass Where Class_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="新聞分類修改 > " & Rs_edit("Class_Name")
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
IF Rs_edit("Class_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_NeClass.asp?Action=sEdit&Id=" & Id & ">"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>分類名稱：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Class_Name TYPE=text id=Class_Name size=45 VALUE=" & Rs_edit("Class_Name") & "> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR><TD HEIGHT=30 CLASS=Table8>所屬類別：</TD>"&_
"<TD CLASS=Table8><select NAME=ParentID id=ParentID><OPTION VALUE='" & Rs_edit("ParentID") & "'>不改變新聞類別 </OPTION>"
strIfx = "</select></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=90 CLASS=Table8>類別介紹：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Class_Content cols=44 rows=5 id=Class_Content>" & Rs_edit("Class_Content") & "</TEXTAREA> 100個字以內，HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>分類審核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Class_Flag VALUE='1' " & checked1 & "> 通過審核 <INPUT CLASS=radio_all TYPE=radio NAME=Class_Flag VALUE='0' " & checked2 & ">取消審核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交資料> "&_
"<INPUT NAME=cl TYPE=reset CLASS=submit_all id=cl VALUE=重新輸入></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
case "Manage"
Call Page_AdminFlag(41)
Page_BootmName="新聞分類列表"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
PageClassM=1
ii=0
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD HEIGHT=23 CLASS=Table6>分類名稱</TD><TD WIDTH=8% CLASS=Table6>屬性</TD><TD WIDTH=13% CLASS=Table6>排序</TD><TD WIDTH=26% CLASS=Table6>操作</TD></TR>"
strIfb = "</TABLE>"
Call Page_aTable(0,0)
case "Merges"
Call Page_AdminFlag(41)
Page_BootmName="添加新聞分類"
Page_BootName="您現在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
PageClass=1
PageClassy=PageClass
ii=0
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Save method=post action=Aa_NeClass.asp?Action=Merges>"&_
"<TD HEIGHT=40 CLASS=Table8>將分類："&_
"<select NAME=OldClassId id=OldClassId><OPTION VALUE=''>請選擇原分類....</OPTION>"
strIfx = "</select> 合并到 <select NAME=NewClassId id=NewClassId><OPTION VALUE=''>請選擇目標分類..</OPTION>"
strIfb = "</select>，并刪除原分類</TD></TR>"&_
"<TR>"&_
"<TD HEIGHT=35 ALIGN=center CLASS=Table8><INPUT TYPE=submit NAME=Submit CLASS=submit_all VALUE=提交資料></TD>"&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
case "sAdd"
Set Rs=server.createobject("adodb.recordset")
Sql="select * from Tx_NeClass Where ParentID=" & Request.form("ParentID") & " and Class_Name='" & Request.form("Class_Name") & "'"
Rs.open Sql,Conn,1,1
crecordcount=Rs.Recordcount
Rs.Close
Set Rs=Nothing
IF Request.form("Class_Name")="" THEN
Errorst="請輸入分類名稱！"
founderr=True
ElseIF crecordcount<>0 THEN
Errorst="同分類下已有相同分類，請重新輸入分類名稱！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
ParentID=int(Request.form("ParentID"))
Parent=ParentID
Do while ParentID>0
ParentID=Conn.Execute("Select ParentID from Tx_NeClass Where Class_Id=" & ParentID)(0)
If ParentID>0 THEN
Parent=ParentID & "|" & Parent
End If
Loop
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_NeClass"
Rs.open Sql,Conn,1,3
Rs.addnew
Rs("ParentID")=Request.form("ParentID")
Rs("Class_Name")=Request.form("Class_Name")
Rs("Class_Content")=nohtml(Request.form("Class_Content"))
Rs("Class_ParentPath")=Parent
Rs("Class_Flag")=Request.form("Class_Flag")
Set Rs_Old=server.createobject("adodb.recordset")
Sql="select * from Tx_NeClass where ParentID=" & Rs("ParentID") & " order by Class_Order desc"
Rs_Old.open Sql,Conn,1,1
If Rs_Old.Recordcount=0 Then
ClassOrder=1
Else
ClassOrder=Rs_Old("Class_Order")+1
End If
Rs_Old.Close
Set Rs_Old=noting
Rs("Class_Order")=ClassOrder
Rs.update
Rs.Close
Set Rs=Nothing
ToHistory="Aa_NeClass.asp?Action=Manage"
saveok="新聞分類：[ " & Request.form("Class_Name") & " ] 添加成功！"
Call Form_Saveok()
End IF
case "sEdit"
Set Rs=server.createobject("adodb.recordset")
Sql="select * from Tx_NeClass Where ParentID=" & Request.form("ParentID") & " and Class_Name='" & Request.form("Class_Name") & "'"
Rs.open Sql,Conn,1,1
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -