<%
Dim Action
Dim bll,ui
Dim CD_ID,CD_Name,CD_TheOrder,CD_IsIndex
Dim arr1,arr2
Set CmsDjNews = New CmsDj_Com_News
Set CmsDjNewsClass = New CmsDj_Com_NewsClass
key=request.QueryString("key")
action=Request.QueryString("action")
Select Case Lcase(action)
Case "批量删除" : Call DelAll()
Case "classadd" : Call ClassAdd()
Case "classedit": Call ClassEdit()
Case "classdel" : Call ClassDel()
Case "class" : Call ClassMain()
Case "classisindex" : Call ClassIsIndex()
Case "add":Call Add()
Case "newsadd":Call NewsAdd()
Case "newsedit":Call NewsEdit()
Case "del" : Call Del()
Case "isindex" : Call IsIndex()
Case "edit" : Call Edit()
Case Else : Call Main()
End Select
Call Admin_FooterB
%>
<%
Sub EditBoard(ActionUrl,ActionName,emValues)
IF IsArray(emValues) Then
CD_ClassID = emValues(0)
CD_Name = emValues(1)
CD_Intro = emValues(2)
CD_IsIndex = emValues(3)
CD_Color = emValues(4)
End IF
IF Not IsNum(CD_IsIndex) Then CD_IsIndex=0
%>
<%
End Sub
Sub Main()
%>
<%
End Sub
Sub ClassMain()%>
<%
End Sub
Sub DelAll()
CD_ID = SafeRequest("CD_ID","get")
IF CD_ID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End
CD_ID=Split(CD_ID,", ")
For Each ID In CD_ID
Call CmsDjNews.del("CD_ID="&ID)
Next
Call AdminAlert("恭喜您，批量删除新闻成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
Sub NewsEdit()
CD_ID = SafeRequest("CD_ID","auto")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End
CD_Name = SafeRequest("CD_Name","post")
CD_ClassID = SafeRequest("CD_ClassID","post")
CD_IsIndex = SafeRequest("CD_IsIndex","post")
CD_Intro = SafeRequest("CD_Intro","post")
CD_TheOrder = SafeRequest("CD_TheOrder","post")
CD_Color = SafeRequest("CD_Color","post")
CD_HttpUrl = SafeRequest("CD_HttpUrl","post")
IF len(CD_Name) = 0 Then Call AdminAlert("出错了，新闻名称不能为空！",CD_HttpUrl,1):Response.End
arr1=Array("CD_Name","CD_ClassID","CD_IsIndex","CD_Intro","CD_Color")
arr2=Array(CD_Name,CD_ClassID,CD_IsIndex,CD_Intro,CD_Color)
Call CmsDjNews.update(arr1,arr2,"CD_ID="&CD_ID)
Call Cache.RemoveAll()
Call AdminAlert("恭喜您，编辑新闻成功！",CD_HttpUrl,0):Response.End
End Sub
Sub Edit()
CD_ID = SafeRequest("CD_ID","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End
Set Rs = CmsDjNews.GetRs("",0,"CD_ID="&CD_ID)
CD_ID = Rs("CD_ID")
CD_ClassID = Rs("CD_ClassID")
CD_Name = Rs("CD_Name")
CD_Intro = Rs("CD_Intro")
CD_IsIndex = Rs("CD_IsIndex")
CD_Color = Rs("CD_Color")
Arr1=Array(CD_ClassID,CD_Name,CD_Intro,CD_IsIndex,CD_Color)
Call EditBoard("?action=NewsEdit&CD_ID="&CD_ID,"编辑",Arr1)
End Sub
Sub IsIndex()
Dim Arr1,Arr2
Dim CD_ID:CD_ID=SafeRequest("CD_ID","get")
Dim CD_IsIndex:CD_IsIndex=SafeRequest("CD_IsIndex","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误","Admin_News.asp",0):Response.End
IF Not IsNum(CD_IsIndex) Then CD_IsIndex=1
Arr1=Array("CD_IsIndex")
Arr2=Array(CD_IsIndex)
Call CmsDjNews.Update(Arr1,Arr2,"CD_ID="&CD_ID&"")
Response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub
Sub Del()
CD_ID = SafeRequest("CD_ID","get")
Call CmsDjNews.del("CD_ID="&CD_ID)
Call Cache.ReMoveAll()
Response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub
Sub NewsAdd()
CD_Name = SafeRequest("CD_Name","post")
CD_ClassID = SafeRequest("CD_ClassID","post")
CD_IsIndex = SafeRequest("CD_IsIndex","post")
CD_Intro = SafeRequest("CD_Intro","post")
CD_Color = SafeRequest("CD_Color","post")
IF len(CD_Name) = 0 Then Call AdminAlert("出错了，新闻名称不能为空！","Admin_News.asp?action=add",1):Response.End
arr1=Array("CD_Name","CD_ClassID","CD_IsIndex","CD_Intro","CD_Hits","CD_AddTime","CD_Color","CD_IsBest")
arr2=Array(CD_Name,CD_ClassID,CD_IsIndex,CD_Intro,0,Now(),CD_Color,0)
Call CmsDjNews.add(arr1,arr2)
Call Cache.RemoveAll()
Call AdminAlert("恭喜您，添加新闻成功！","Admin_News.asp",0):Response.End
End Sub
Sub Add()
Call EditBoard("?action=NewsAdd","添加","")
End Sub
Sub ClassAdd()
CD_Name = SafeRequest("CD_Name","post")
CD_TheOrder = SafeRequest("CD_TheOrder","post")
IF len(CD_Name) = 0 Then Call AdminAlert("出错了，分类名称不能为空！","Admin_News.asp?action=class",1):Response.End
IF Not IsNum(CD_TheOrder) Then Call AdminAlert("出错了，序号必须是数字型！","Admin_News.asp?action=class",1):Response.End
arr1=Array("CD_Name","CD_TheOrder","CD_IsIndex")
arr2=Array(CD_Name,CD_TheOrder,0)
Call CmsDjNewsClass.add(arr1,arr2)
Call Cache.RemoveAll()
Call AdminAlert("恭喜您，添加分类成功！","Admin_News.asp?action=class",0):Response.End
End Sub
Sub ClassEdit()
CD_ID = SafeRequest("CD_ID","post")
IF CD_ID="" Then Call AdminAlert("出错了，请选择要操作的分类！","Admin_News.asp?action=class",1):Response.End
CD_ID=Split(CD_ID,", ")
For Each ID In CD_ID
CD_Name = trim(request.form("CD_Name"&ID))
CD_TheOrder = trim(request.form("CD_TheOrder"&ID))
IF len(CD_Name) > 50 Then Call AdminAlert("出错了，分类名称不能超过50个字符！","Admin_News.asp?action=class",1):Response.End
IF Not IsNum(CD_TheOrder) Then Call AdminAlert("出错了，序号必须是数字型！","Admin_News.asp?action=class",1):Response.End
arr1=Array("CD_Name","CD_TheOrder")
arr2=Array(CD_Name,CD_TheOrder)
Call CmsDjNewsClass.UpDate(arr1,arr2,"CD_ID="&ID)
Next
Call Cache.RemoveAll()
Call AdminAlert("恭喜您，分类更新成功！","Admin_News.asp?action=class",0):Response.End
End Sub
Sub ClassDel()
Dim CD_ID,CmsDjNews,Rs
Set CmsDjNews = New CmsDj_Com_News
CD_ID = SafeRequest("CD_ID","get")
Call CmsDjNewsClass.del("CD_ID="&CD_ID)
Set Rs=CmsDjNews.GetRs("",0,"CD_ClassID="&CD_ID&"")
Do while not rs.eof
Call CmsDjNews.del("CD_ID="&Rs("CD_ID")&"")
Rs.movenext
Loop
Call Cache.ReMoveAll()
'Call AdminAlert("恭喜您，分类删除成功！","Admin_Class.asp",0):Response.End
Response.redirect "Admin_News.asp?action=class":Response.End
End Sub
Sub ClassIsIndex()
Dim Arr1,Arr2
Dim CD_ID:CD_ID=SafeRequest("CD_ID","get")
Dim CD_IsIndex:CD_IsIndex=SafeRequest("CD_IsIndex","get")
IF Not IsNum(CD_ID) Then Call AdminAlert("出错了，参数传输错误","Admin_News.asp?action=class",0):Response.End
IF Not IsNum(CD_IsIndex) Then CD_IsIndex=1
Arr1=Array("CD_IsIndex")
Arr2=Array(CD_IsIndex)
Call CmsDjNewsClass.Update(Arr1,Arr2,"CD_ID="&CD_ID&"")
Response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub
%>