📄 admin_sourcemanage.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = ""   '其他权限

Dim TypeSelect, SelectedName

TypeSelect = Trim(Request("TypeSelect"))
'检查管理员操作权限
If AdminPurview > 1 Then
    Select Case TypeSelect
    Case "Keyword", "AddKeyword", "ModifyKeyword", "SaveAddKeyword", "SaveModifyKeyword", "DelKeyword", "DelAllKeyword"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Keyword_" & ChannelDir)
    Case "Author", "AddAuthor", "ModifyAuthor", "SaveAddAuthor", "SaveModifyAuthor", "DelAuthor", "AuthorDis", "AuthorEn", "AuthorDTop", "AuthorTop", "AuthorDElite", "AuthorElite"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Author_" & ChannelDir)
    Case "CopyFrom", "AddCopyFrom", "ModifyCopyFrom", "SaveAddCopyFrom", "SaveModifyCopyFrom", "DelCopyFrom", "CopyFromDis", "CopyFromEn", "CopyFromDTop", "CopyFromTop", "CopyFromDElite", "CopyFromElite"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Copyfrom_" & ChannelDir)
    Case "Producer", "AddProducer", "ModifyProducer", "SaveAddProducer", "SaveModifyProducer", "DelProducer", "ProducerDis", "ProducerEn", "ProducerDTop", "ProducerTop", "ProducerDElite", "ProducerElite"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Producer_Shop")
    Case "Trademark", "AddTrademark", "ModifyTrademark", "SaveAddTrademark", "SaveModifyTrademark", "DelTrademark", "TrademarkDis", "TrademarkEn", "TrademarkDTop", "TrademarkTop", "TrademarkDElite", "TrademarkElite"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Trademark_Shop")
    Case "KeyLink", "AddKeyLink", "ModifyKeyLink", "SaveAddKeyLink", "SaveModifyKeyLink", "DelKeyLink", "runKeyLink", "disKeyLink"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "KeyLink")
    Case "Rtext", "AddRtext", "ModifyRtext", "SaveAddRtext", "SaveModifyRtext", "DelRtext", "runRtext", "disRtext"
        PurviewPassed = CheckPurview_Other(AdminPurview_Others, "Rtext")
    Case Else
        PurviewPassed = False
    End Select
    If PurviewPassed = False Then
        Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>对不起，你没有此项操作的权限。</font></p>"
        Call WriteEntry(6, AdminName, "越权操作")
        Response.End
    End If
End If

XmlDoc.Load (Server.MapPath(InstallDir & "Language/Gb2312.xml"))

Dim ItemType
ItemType = Trim(Request("ItemType"))
If ItemType = "" Then
    ItemType = 999
Else
    ItemType = PE_CLng(ItemType)
End If

Select Case TypeSelect
Case "Keyword"
    SelectedName = "关键字管理"
Case "AddKeyword"
    SelectedName = "新增关键字"
Case "ModifyKeyword"
    SelectedName = "修改关键字"
Case "Author"
    SelectedName = "作者管理"
Case "AddAuthor"
    SelectedName = "新增作者信息"
Case "ModifyAuthor"
    SelectedName = "修改作者信息"
Case "CopyFrom"
    SelectedName = "来源管理"
Case "AddCopyFrom"
    SelectedName = "新增来源信息"
Case "ModifyCopyFrom"
    SelectedName = "修改来源信息"
Case "KeyLink"
    SelectedName = "站内链接管理"
Case "AddKeyLink"
    SelectedName = "新增站内链接"
Case "ModifyKeyLink"
    SelectedName = "修改站内链接"
Case "Rtext"
    SelectedName = "字符替换管理"
Case "AddRtext"
    SelectedName = "新增字符替换"
Case "ModifyRtext"
    SelectedName = "修改字符替换"
Case "Producer"
    SelectedName = "厂商管理"
Case "AddProducer"
    SelectedName = "新增厂商信息"
Case "ModifyProducer"
    SelectedName = "修改厂商信息"
Case "Trademark"
    SelectedName = "品牌管理"
Case "AddTrademark"
    SelectedName = "新增品牌"
Case "ModifyTrademark"
    SelectedName = "修改品牌"
Case Else
    SelectedName = "动易网站管理系统"
End Select
    
'取频道列表
Dim ChannelList, rsChannel
ChannelList = "<option value=0"
If ChannelID = 0 Then ChannelList = ChannelList & "selected"
ChannelList = ChannelList & ">全部频道</option>"

Set rsChannel = Conn.Execute("select ChannelID,ChannelName,OrderID,ModuleType,Disabled from PE_Channel where ChannelType<=1 and Disabled=" & PE_False & " order by OrderID")
If Not (rsChannel.BOF And rsChannel.EOF) Then
    Do While Not rsChannel.EOF
        If rsChannel("ModuleType") <> 4 Then
            If rsChannel("ModuleType") = 5 Then
                If ModuleName = "Product" Or InStr(TypeSelect, "Keyword") > 0 Then
                    If rsChannel("ChannelID") = ChannelID Then
                        ChannelList = (ChannelList & "<option value=" & rsChannel("ChannelID") & " selected>" & rsChannel("ChannelName") & "</option>")
                    Else
                        ChannelList = (ChannelList & "<option value=" & rsChannel("ChannelID") & ">" & rsChannel("ChannelName") & "</option>")
                    End If
                End If
            Else
                If rsChannel("ChannelID") = ChannelID Then
                    ChannelList = (ChannelList & "<option value=" & rsChannel("ChannelID") & " selected>" & rsChannel("ChannelName") & "</option>")
                Else
                    ChannelList = (ChannelList & "<option value=" & rsChannel("ChannelID") & ">" & rsChannel("ChannelName") & "</option>")
                End If
            End If
        End If
        rsChannel.MoveNext
    Loop
End If
rsChannel.Close
Set rsChannel = Nothing
   
strFileName = "Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect
If Keyword <> "" Then
    strFileName = strFileName & "&Field=" & strField & "&keyword=" & Keyword
End If
If ItemType < 999 Then
    strFileName = strFileName & "&ItemType=" & ItemType
End If

Response.Write "<html><head><title>" & SelectedName & "</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "<SCRIPT language=javascript>" & vbCrLf
Response.Write "function unselectall(){" & vbCrLf
Response.Write "    if(document.myform.chkAll.checked){" & vbCrLf
Response.Write " document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
Response.Write "    }" & vbCrLf
Response.Write "}" & vbCrLf

Response.Write "function CheckAll(form){" & vbCrLf
Response.Write "  for (var i=0;i<form.elements.length;i++){" & vbCrLf
Response.Write "    var e = form.elements[i];" & vbCrLf
Response.Write "    if (e.Name != 'chkAll'&&e.disabled!=true)" & vbCrLf
Response.Write "       e.checked = form.chkAll.checked;" & vbCrLf
Response.Write "    }" & vbCrLf
Response.Write "}" & vbCrLf

Response.Write "function CheckInput(){" & vbCrLf
Response.Write "  var CurrentMode=editor.CurrentMode;" & vbCrLf
Response.Write "  if (CurrentMode==0){" & vbCrLf
Response.Write "    document.myform.Intro.value=editor.HtmlEdit.document.body.innerHTML; " & vbCrLf
Response.Write "  }" & vbCrLf
Response.Write "  else if(CurrentMode==1){" & vbCrLf
Response.Write "    document.myform.Intro.value=editor.HtmlEdit.document.body.innerText;" & vbCrLf
Response.Write "  }" & vbCrLf
Response.Write "}" & vbCrLf

Response.Write "function CheckKeyLink(){" & vbCrLf
Response.Write "  if(document.myform.Source.value==''){" & vbCrLf
Response.Write "      alert('替换目标不能为空！');" & vbCrLf
Response.Write "   document.myform.Source.focus();" & vbCrLf
Response.Write "      return false;" & vbCrLf
Response.Write "    }" & vbCrLf
Response.Write "  if(document.myform.Target.value==''){" & vbCrLf
Response.Write "      alert('替换内容不能为空！');" & vbCrLf
Response.Write "   document.myform.Target.focus();" & vbCrLf
Response.Write "      return false;" & vbCrLf
Response.Write "    }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "</head>" & vbCrLf

Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
If InStr(TypeSelect, "Keyword") > 0 Then
    Call ShowPageTitle(ChannelName & "管理－－" & SelectedName, 10015)
ElseIf InStr(TypeSelect, "Author") > 0 Then
    Call ShowPageTitle(ChannelName & "管理－－" & SelectedName, 10016)
ElseIf InStr(TypeSelect, "CopyFrom") > 0 Then
    Call ShowPageTitle(ChannelName & "管理－－" & SelectedName, 10017)
ElseIf InStr(TypeSelect, "KeyLink") > 0 Then
    Call ShowPageTitle(ChannelName & "管理－－" & SelectedName, 10029)
ElseIf InStr(TypeSelect, "Rtext") > 0 Then
    Call ShowPageTitle(ChannelName & "管理－－" & SelectedName, 10030)
ElseIf InStr(TypeSelect, "Producer") > 0 Then
    Call ShowPageTitle(ChannelName & "管理－－" & SelectedName, 10018)
ElseIf InStr(TypeSelect, "Trademark") > 0 Then
    Call ShowPageTitle(ChannelName & "管理－－" & SelectedName, 10019)
End If

Response.Write "  <tr class='tdbg'>" & vbCrLf
Response.Write "    <td width='88' height='30'><strong>管理导航：</strong></td>" & vbCrLf
If InStr(TypeSelect, "Keyword") > 0 Then
    Response.Write "    <td height='30'><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Keyword'>关键字管理首页</a>&nbsp;|&nbsp;<a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=AddKeyword'>新增关键字</a></td>" & vbCrLf
ElseIf InStr(TypeSelect, "Author") > 0 Then
    Response.Write "    <td height='30'><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Author'>作者管理首页</a>&nbsp;|&nbsp;<a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=AddAuthor'>添加作者</a></td>" & vbCrLf
ElseIf InStr(TypeSelect, "CopyFrom") > 0 Then
    Response.Write "    <td height='30'><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=CopyFrom'>来源管理首页</a>&nbsp;|&nbsp;<a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=AddCopyFrom'>新增来源</a></td>" & vbCrLf
ElseIf InStr(TypeSelect, "KeyLink") > 0 Then
    Response.Write "    <td height='30'><a href='Admin_SourceManage.asp?TypeSelect=KeyLink'>站内链接管理首页</a>&nbsp;|&nbsp;<a href='Admin_SourceManage.asp?TypeSelect=AddKeyLink'>新增站内链接</a></td>" & vbCrLf
ElseIf InStr(TypeSelect, "Rtext") > 0 Then
    Response.Write "    <td height='30'><a href='Admin_SourceManage.asp?TypeSelect=Rtext'>字符替换管理首页</a>&nbsp;|&nbsp;<a href='Admin_SourceManage.asp?TypeSelect=AddRtext'>新增字符替换</a></td>" & vbCrLf
ElseIf InStr(TypeSelect, "Producer") > 0 Then
    Response.Write "    <td height='30'><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Producer'>厂商管理首页</a>&nbsp;|&nbsp;<a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=AddProducer'>新增厂商</a></td>" & vbCrLf
ElseIf InStr(TypeSelect, "Trademark") > 0 Then
    Response.Write "    <td height='30'><a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=Trademark'>品牌管理首页</a>&nbsp;|&nbsp;<a href='Admin_SourceManage.asp?ChannelID=" & ChannelID & "&TypeSelect=AddTrademark'>新增品牌</a></td>" & vbCrLf
End If

Response.Write "  </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf

Select Case TypeSelect
Case "Keyword"
    Call KeywordManage
Case "AddKeyword"
    Call AddKeyword
Case "ModifyKeyword"
    Call ModifyKeyword
Case "SaveAddKeyword"
    Call SaveAddKeyword
Case "SaveModifyKeyword"
    Call SaveModifyKeyword
Case "DelKeyword"
    Call DelKeyword
Case "DelAllKeyword"
    Call DelAllKeyword
Case "Author"
    Call Author
Case "AddAuthor"
    Call AddAuthor
Case "ModifyAuthor"
    Call ModifyAuthor
Case "SaveAddAuthor"
    Call SaveAddAuthor
Case "SaveModifyAuthor"
    Call SaveModifyAuthor
Case "DelAuthor"
    Call DelAuthor
Case "AuthorDis"
    Call SetStat("Author", 1)
Case "AuthorEn"
    Call SetStat("Author", 2)
Case "AuthorDTop"
    Call SetStat("Author", 3)
Case "AuthorTop"
12 3 4 5 下一页
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -