admin_publish.asp

来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 629 行 · 第 1/3 页

<!--#include file="setup.asp" -->
<!--#include file="../inc/Create_SoftInfoCls.Asp" -->
<!--#include file="../inc/NC_HtmlEditCls.Asp" -->
<%
Private NC_SoftInfo
Private Const MaxPerPage = 25
Private i
Private CurrentPage
Private TotalPages
Private j
Private SoftDownName
Private updown
Private img
Private isEdit
Private totalnumber
Private filename
Private maxpagecount
Private Pcount
Private sortid
Private rootid
Private SoftTitle
Private TxtContent
Private pubSoftID
Private strSortid
Admin_Publish

Public Sub Admin_Publish()
        Response.Write "<SCRIPT language = ""JavaScript"">" & vbCrLf
        Response.Write "<!--//" & vbCrLf
        Response.Write "function SelectAll() {" & vbCrLf
        Response.Write "for (var i=0;i<document.myform.selSoftID.length;i++) {" & vbCrLf
        Response.Write "var e=document.myform.selSoftID[i];" & vbCrLf
        Response.Write "e.checked=!e.checked;" & vbCrLf
        Response.Write "}" & vbCrLf
        Response.Write "}" & vbCrLf
        Response.Write "//-->" & vbCrLf
        Response.Write "</script>" & vbCrLf
        NC_Admin.AdminChk = "15"
        NC_Admin.Check
        Newasp.admin_header
        Set NC_SoftInfo = New Create_SoftInfo_Cls
        Select Case Trim(Request("Action"))
                Case "accept"
                        Call Acceptsoft
                Case "save"
                        Call savenew
                Case Else
                        Call SoftMain
        End Select
        If Founderr = True Then
                NC_Admin.Error_Msg (ErrMsg)
        End If
        Newasp.admin_footer
End Sub

Private Sub SoftMain()
        Dim selSoftID
        Dim bookmark
        Dim n
        If Not IsEmpty(Request("page")) Then
                CurrentPage = CInt(Request("page"))
        Else
                CurrentPage = 1
        End If
        If Not IsEmpty(Request.Form("selSoftID")) Then
                selSoftID = Request.Form("selSoftID")
                If Request("action") = "Del" Then
                        Newasp.Execute ("delete from NC_SoftPublish where softid in (" & selSoftID & ")")
                        Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
                         Err.Raise -19691969
                End If
        End If
        filename = "Admin_Publish.asp"
        Set Rs = CreateObject("adodb.recordset")
        SQL = "select softid,sortid,rootid,SoftName,SoftVer,SoftSize,SoftTime,UserName,isAccept from NC_SoftPublish "
        SQL = SQL & " order by SoftTime desc,softid desc"
        Rs.Open SQL, conn, 1, 1
        Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
        Response.Write "<table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""99%"" class=""tableBorder"" align=center>" & vbCrLf
        Response.Write "<form name=""myform"" method=""post"" action="""">" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <th width=""100%"" height=""22"">软件名称</th>" & vbCrLf
        Response.Write " <th nowrap>发布用户</th>" & vbCrLf
        Response.Write "<th nowrap>操 作</th>" & vbCrLf
        Response.Write " <th nowrap>收 录</th>" & vbCrLf
        Response.Write " <th nowrap>发布时间</th>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        If Rs.EOF And Rs.bof Then
                Response.Write "<tr><td border=""0"" colspan=""5"" class=""forumRow""><p align='center'>没有发布或没有找到任何软件!</p></td></tr>"
        Else
                totalnumber = Rs.recordcount
                If Not IsEmpty(Request("page")) Then
                        CurrentPage = CInt(Request("page"))
                Else
                        CurrentPage = 1
                End If
                If (totalnumber Mod MaxPerPage) = 0 Then
                        Pcount = totalnumber \ MaxPerPage
                Else
                        Pcount = totalnumber \ MaxPerPage + 1
                End If
                Rs.Move (CurrentPage - 1) * MaxPerPage
                bookmark = Rs.bookmark
                If CurrentPage > Pcount Then CurrentPage = Pcount
                If CurrentPage < 1 Then CurrentPage = 1
                i = 0
                Do While Not Rs.EOF And i < CLng(MaxPerPage)
                        Response.Write "<tr>" & vbCrLf
                        Response.Write "<td class=""forumRow""><input type=""checkbox"" name=""selSoftID"" value="""
                        Response.Write Rs("softid")
                        Response.Write """>"
                        Response.Write Rs("SoftName")
                        Response.Write " "
                        Response.Write Rs("SoftVer")
                        Response.Write "</td>" & vbCrLf
                        Response.Write "<td class=""forumRow"" align=center nowrap>"
                        Response.Write Rs("UserName")
                        Response.Write "</td>" & vbCrLf
                        Response.Write "<td class=""forumRow"" align=center nowrap><a href=admin_Publish.asp?action=accept&softid="
                        Response.Write Rs("softid")
                        Response.Write "&sortid="
                        Response.Write Rs("sortid")
                        Response.Write ">收录软件</a></td>" & vbCrLf
                        Response.Write "<td class=""forumRow"" align=center nowrap>"
                        If Rs("isAccept") = 0 Then
                                Response.Write ("未收录")
                        Else
                                Response.Write ("已收录")
                        End If
                        Response.Write "</td>" & vbCrLf
                        Response.Write "<td class=""forumRow"" align=center nowrap>"
                        If Rs("SoftTime") = Date Then
                                Response.Write "<font color=red>" & Rs("SoftTime") & "</font>"
                        Else
                                Response.Write Rs("SoftTime")
                        End If
                        Response.Write "</td>" & vbCrLf
                        Response.Write "</tr>" & vbCrLf
                        Response.Write " "
                        i = i + 1
                        If i >= MaxPerPage Then Exit Do
                        Rs.movenext
                Loop
                Response.Write "<tr><td border=""0"" colspan=""5"" class=""forumRow"">"
                Response.Write "<input name=""selSoftID"" type=""checkbox"" value=""on"" onclick=SelectAll(this.form)><a href=""javascript:SelectAll()"">全选/反选</a>　" & vbCrLf
                Response.Write " 批量删除<input name=""Action"" type=""hidden"" id=""Action"" value=""Del"">" & vbCrLf
                Response.Write " <input type=""submit"" class=button name=""Submit"" value=""删除选中的文件"">" & vbCrLf
                Response.Write "</td></tr></form><tr><td border=""0"" colspan=""5"" class=""forumRow"">"
                If totalnumber Mod MaxPerPage = 0 Then
                        n = totalnumber \ MaxPerPage
                Else
                        n = totalnumber \ MaxPerPage + 1
                End If
                Response.Write "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action=" & filename & "?CateID=" & Request("CateID") & "&SubID=" & Request("SubID") & "><tr><td align=center> "
                Response.Write "<p><font color='red'>" & SoftDownName & "</font> "
                If CurrentPage < 2 Then
                        Response.Write "" & totalnumber & "个&nbsp;首页 上一页&nbsp;"
                Else
                        Response.Write "" & totalnumber & "个&nbsp;<a href=" & filename & "?page=1&CateID=" & Request("CateID") & "&SubID=" & Request("SubID") & ">首页</a>&nbsp;"
                        Response.Write "<a href=" & filename & "?page=" & CurrentPage - 1 & "&CateID=" & Request("CateID") & "&SubID=" & Request("SubID") & ">上一页</a>&nbsp;"
                End If
                If n - CurrentPage < 1 Then
                        Response.Write "下一页 尾页"
                Else
                        Response.Write "<a href=" & filename & "?page=" & (CurrentPage + 1) & "&CateID=" & Request("CateID") & "&SubID=" & Request("SubID") & ">"
                        Response.Write "下一页</a> <a href=" & filename & "?page=" & n & "&CateID=" & Request("CateID") & "&SubID=" & Request("SubID") & ">尾页</a>"
                End If
                Response.Write "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
                Response.Write "&nbsp;<b>" & MaxPerPage & "</b>个软件/页 "
                Response.Write "  转到： "
                Response.Write "  <select name=page size=1 style=""font-size: 9pt"" onChange='javascript:submit()'>"
                For i = 1 To n
                        Response.Write "    <option value=""" & i & """ "
                        If CurrentPage = CInt(i) Then
                                Response.Write " selected "
                        End If
                        Response.Write ">第" & i & "页</option>"
                Next
                Response.Write "  </select> "
                Response.Write "</td></tr></FORM></table>"
                Response.Write "</td></tr>" & vbCrLf
        End If
        Response.Write "</table>" & vbCrLf
End Sub


Private Sub Acceptsoft()
        Dim Count
        Dim Rs1
        Dim sel
        Dim NC_HtmlEdit
        Dim srtSortingList
        Dim RunSystem
        Dim SoftType
        Set Rs = CreateObject("adodb.recordset")
        Set Rs1 = CreateObject("adodb.recordset")
        Response.Write "<script language=""javascript"">" & vbCrLf
        Response.Write "<!--//" & vbCrLf
        Response.Write "function ToRunsystem(addTitle) { " & vbCrLf
        Response.Write "var revisedTitle; " & vbCrLf
        Response.Write "var currentTitle;" & vbCrLf
        Response.Write "currentTitle = document.myform.RunSystem.value; " & vbCrLf
        Response.Write "revisedTitle = currentTitle+addTitle; " & vbCrLf
        Response.Write "document.myform.RunSystem.value=revisedTitle; " & vbCrLf
        Response.Write "document.myform.RunSystem.focus(); " & vbCrLf
        Response.Write "return; }" & vbCrLf
        Response.Write "//-->"
        Response.Write "</script>" & vbCrLf
        Set NC_HtmlEdit = New HtmlEditor_Cls
        SQL = "select * from NC_SoftPublish where softid=" & Request("softid")