<%
Dim Action,CD_HtmlID,page
Dim CD_ID,CD_Name
Dim arr1,arr2
Dim key,HttpUrl
Dim CmsDjPage:Set CmsDjPage = New CmsDj_Com_Page
action=Request.QueryString("action")
page=int(request.QueryString ("page"))
key=request.QueryString("key")
Select Case Lcase(action)
Case "批量删除" : Call DelAll()
Case "add":Call Add()
Case "edit":Call Edit()
Case "saveadd" : Call SaveAdd()
Case "saveedit": Call SaveEdit()
Case "del" : Call Del()
Case "import" : Call AdminAlert("对不起，导入标签功能未开放！","Admin_Label.asp",0):Response.End
Case "export" : Call AdminAlert("对不起，导出标签功能未开放！","Admin_Label.asp",0):Response.End
Case Else : Call Main()
End Select
Call Admin_FooterB
%>
<%
Sub EditBoard(ActionUrl,ActionName,emValues)
IF IsArray(emValues) Then
CD_Name = emValues(0)
CD_Type = emValues(1)
CD_SelfLable = emValues(2)
CD_Url = emValues(3)
CD_Html = emValues(4)
End IF
IF Not IsNum(CD_Html) Then CD_Html=0
%>
<%
End Sub
Sub Main()
%>
自定义页面管理
#FF0000<%end if%>">全部分类 |
<%
Set rsbb=CmsDjPage.GetRs("distinct (CD_Type)",0,"")
do while not rsbb.eof
response.write ""&rsbb("CD_Type")&" | "
rsbb.movenext
loop
rsbb.close
set rsbb=nothing
%>
<%
End Sub
Sub DelAll()
CD_ID = SafeRequest("CD_ID","get")
IF CD_ID="" Then
Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End IF
CD_ID=Split(CD_ID,", ")
For Each ID In CD_ID
Call CmsDjPage.del("CD_ID="&ID)
Next
Call AdminAlert("恭喜您，批量删除数据成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
Sub Add()
Call EditBoard("?action=SaveAdd","添加","")
End Sub
Sub SaveEdit()
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_Type = SafeRequest("CD_Type","post")
CD_SelfLable = Request("CD_SelfLable")
CD_Html = SafeRequest("CD_Html","post")
CD_Url = SafeRequest("CD_Url","post")
CD_HttpUrl = SafeRequest("CD_HttpUrl","post")
IF CD_Html=0 Then
IF CD_Url="" Then Call AdminAlert("出错了，自定义页面路径不能为空！",Request.ServerVariables("HTTP_REFERER"),1):Response.End
IF LCase(Left(CD_Url,1))="/" Then Call AdminAlert("出错了，页面路径前面不用填 / 符号！",Request.ServerVariables("HTTP_REFERER"),1):Response.End
End IF
Arr1=Array("CD_Name","CD_Type","CD_SelfLable","CD_Html","CD_Url")
Arr2=Array(CD_Name,CD_Type,CD_SelfLable,CD_Html,FormatStrHtml(CD_Url))
Call CmsDjPage.update(Arr1,Arr2,"CD_ID="&CD_ID)
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 = CmsDjPage.GetRs("",0,"CD_ID="&CD_ID)
CD_ID = Rs("CD_ID")
CD_Name = Rs("CD_Name")
CD_Type = Rs("CD_Type")
CD_SelfLable = Rs("CD_SelfLable")
CD_Html = Rs("CD_Html")
CD_Url = Rs("CD_Url")
Arr1=Array(CD_Name,CD_Type,CD_SelfLable,CD_Url,CD_Html)
Call EditBoard("?action=SaveEdit&CD_ID="&CD_ID,"编辑",Arr1)
End Sub
Sub SaveAdd()
CD_Name = SafeRequest("CD_Name","post")
CD_Type = SafeRequest("CD_Type","post")
CD_SelfLable = Request("CD_SelfLable")
CD_Html = SafeRequest("CD_Html","post")
CD_Url = SafeRequest("CD_Url","post")
IF LCase(Left(CD_Url,1))="/" Then Call AdminAlert("出错了，页面路径前面不用填 / 符号！",Request.ServerVariables("HTTP_REFERER"),1):Response.End
Arr1=Array("CD_Name","CD_Type","CD_SelfLable","CD_Url","CD_Html","CD_AddTime")
Arr2=Array(CD_Name,CD_Type,CD_SelfLable,CD_Url,CD_Html,Now())
Call CmsDjPage.add(Arr1,Arr2)
Call AdminAlert("恭喜您，添加自定义页面成功！","Admin_Page.asp",0)
Response.End
End Sub
Sub Del()
CD_ID = SafeRequest("CD_ID","get")
IF CD_ID="" Then
Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End IF
Call CmsDjPage.del("CD_ID="&CD_ID)
Call AdminAlert("恭喜您，删除自定义页面成功！",Request.ServerVariables("HTTP_REFERER"),0)
Response.End
End Sub
%>