admin_publish.asp

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

        Response.Write " {" & vbCrLf
        Response.Write " str='';" & vbCrLf
        Response.Write " if(!window.myform.no.value)" & vbCrLf
        Response.Write " window.myform.no.value=1;" & vbCrLf
        Response.Write " " & " for(i=1;i<=window.myform.no.value;i++)" & vbCrLf
        Response.Write " str+=''+'<input type=""text"" name=""SiteName'+i+'"" value=""下载地址'+i+'"" size=12>&nbsp;URL：<input type=""text"" name=""DownSite'+i+'"" size=40 value="""">&nbsp;"
        i = "'+i+'"
        SelDownServer 0, "serverid" & i
        Response.Write "<BR>';" & vbCrLf
        Response.Write " window.upid.innerHTML=str+' <font color=red>* 如果选择了下载服务器，请根据相应的下载地址输入软件名称，前面请不要添加“/”。</font>';" & vbCrLf
        Response.Write " }" & vbCrLf
        Response.Write " </script>设置添加地址的数量:&nbsp;<input type=""text"" name=""no"" value=""1"" size=2>&nbsp;&nbsp;<input type=""button"" name=""Button"" class=button onclick=""setid();"" value=""添加下载地址数"">" & vbCrLf
        Response.Write " <font color=red>* 如果没有选择下载服务器请输入完整的下载路径</font> " & vbCrLf
        Response.Write " </td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr height=""22"">" & vbCrLf
        Response.Write " <td colspan=""2"" id=""upid"" class=""forumRow""> </td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td class=""forumRowHighlight"">软件上传：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""><iframe name=""ad"" frameborder=0 width=100% height=45 scrolling=no src=upfile.asp?type=file></iframe> </td></tr>" & vbCrLf
        Response.Write " <tr>" & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">&nbsp;</td>" & vbCrLf
        Response.Write " <td align=""center"" class=""forumRow"">" & vbCrLf
        Response.Write "　<input type=button class=button value=""查看内容长度"" name=Button onclick=""checklength(document.myform);"">" & vbCrLf
        Response.Write "　<input type=button class=button value=""复制到剪贴板"" name=Button onclick=""HighlightAll('myform.TxtContent');"">" & vbCrLf
        Response.Write " <input type=reset name=Submit2 class=button value=""清 除"">　" & vbCrLf
        Response.Write " <input type=Submit class=button value=""提 交"" name=Submit>" & vbCrLf
        Response.Write " </td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write "</table>" & vbCrLf
        Response.Write "</form>" & vbCrLf
        Response.Write "</div>" & vbCrLf
        Rs.Close
        Set Rs = Nothing
        If CInt(Newasp.Setting(19)) = 0 Then
                Response.Write "<Script language=javascript>" & vbCrLf
                Response.Write "<!--//" & vbCrLf
                Response.Write "document.myform.content1.value = ubbcode(document.myform.content1.value);" & vbCrLf
                Response.Write "function ubbcode(temp) {" & vbCrLf
                Response.Write "temp = temp.replace(/<br>/ig,""\n"");" & vbCrLf
                Response.Write "temp = temp.replace(/<p>/ig,""\n"");" & vbCrLf
                Response.Write "temp = temp.replace(/<\/p>/ig,""\n"");" & vbCrLf
                Response.Write "return (temp);" & vbCrLf
                Response.Write "}" & vbCrLf
                Response.Write "function ClearReset()" & vbCrLf
                Response.Write "{" & vbCrLf
                Response.Write " document.myform.content1.value = '';" & vbCrLf
                Response.Write " focus();" & vbCrLf
                Response.Write "}" & vbCrLf
                Response.Write "function checklength(theform)" & vbCrLf
                Response.Write "{" & vbCrLf
                Response.Write " alert(""您的内容目前有 ""+theform.content1.value.length+"" 字节。"");" & vbCrLf
                Response.Write "}" & vbCrLf
                Response.Write "//-->" & vbCrLf
                Response.Write "</Script>" & vbCrLf
        End If
        Set NC_HtmlEdit = Nothing
End Sub

Private Function SelDownServer(intServerid, snid)
        Dim Rs_site
        Response.Write " <select name=""" & snid & """ size=""1"">"
        Response.Write "<option value=""0"""
        If intServerid = 0 Then Response.Write " selected"
        Response.Write ">↓请选择下载服务器↓</option>"
        Set Rs_site = CreateObject("adodb.recordset")
        SQL = "select serverid,ServerName,depth,rootid from NC_ServerSite where depth=0"
        Rs_site.Open SQL, conn, 1, 1
        Do While Not Rs_site.EOF
                Response.Write "<option value=""" & Rs_site("rootid") & """"
                If intServerid = Rs_site("rootid") Then Response.Write " selected"
                Response.Write ">" & Rs_site(1) & "</option>"
                Rs_site.movenext
        Loop
        Rs_site.Close
        Set Rs_site = Nothing
        Response.Write "</select>"
End Function

Private Sub checksave()
        If Len(Request.Form("softname")) = 0 Then
                Founderr = True
                ErrMsg = ErrMsg + "<li>软件名称不能为空！</li>"
                Exit Sub
        End If
        If Len(Request.Form("sortid")) = 0 Then
                Founderr = True
                ErrMsg = ErrMsg + "<li>软件分类不能为空！</li>"
                Exit Sub
        Else
                strSortid = Split(Trim(Request.Form("sortid")), ",")
        End If
        If Len(Request.Form("content1")) = 0 Then
                Founderr = True
                ErrMsg = ErrMsg + "<li>软件简介不能为空！</li>"
                Exit Sub
        End If
        If Len(Request.Form("RunSystem")) = 0 Then
                Founderr = True
                ErrMsg = ErrMsg + "<li>运行环境不能为空！</li>"
                Exit Sub
        End If
        If Len(Request.Form("SoftSize")) = 0 Then
                Founderr = True
                ErrMsg = ErrMsg + "<li>大小不能为空！</li>"
                Exit Sub
        End If
        If CInt(Newasp.Setting(19)) = 1 Then
                TxtContent = Request.Form("content1")
        Else
                TxtContent = Newasp.HtmlEncodes(Request.Form("content1"))
        End If
End Sub

Private Sub savenew()
        Dim SiteRs
        Call checksave
        If Founderr = False Then
                SQL = "select * from NC_SoftInfo where (softid is null)"
                Rs.Open SQL, conn, 1, 3
                Rs.addnew
                Rs("softname") = Server.HtmlEncode(Request.Form("softname"))
                Rs("SoftVer") = server.HtmlEncode(Request.Form("SoftVer"))
                Rs("rootid") = strSortid(0)
                Rs("sortid") = strSortid(1)
                Rs("SortName") = strSortid(2)
                Rs("content") = TxtContent
                Rs("Language") = Request.Form("Language")
                Rs("SoftType") = Request.Form("SoftType")
                Rs("isCommend") = Request.Form("isCommend")
                Rs("RunSystem") = Newasp.HtmlEncodes(Request.Form("RunSystem"))
                Rs("impower") = Request.Form("impower")
                If Trim(Request.Form("SizeUnit")) = "MB" Then
                        Rs("SoftSize") = CLng(Request.Form("SoftSize") * 1024)
                Else
                        Rs("SoftSize") = CLng(Request.Form("SoftSize"))
                End If
                Rs("RunSystem") = Request.Form("RunSystem")
                Rs("Grades") = Request.Form("Grades")
                Rs("Decode") = Request.Form("Decode")
                Rs("isMember") = Request.Form("isMember")
                Rs("Homepage") = Request.Form("Homepage")
                Rs("Contact") = Request.Form("Contact")
                Rs("PreviewImg") = Request.Form("PreviewImg")
                Rs("Softimg") = Request.Form("Softimg")
                Rs("Errcode") = 0
                Rs("username") = Request.Form("username")
                If Len(Request.Form("MoneyNum")) = 0 Then
                        Rs("MoneyNum") = 0
                Else
                        Rs("MoneyNum") = Request.Form("MoneyNum")
                End If
                Rs("isTop") = Request.Form("isTop")
                Rs("DayHits") = 0
                Rs("WeekHits") = 0
                Rs("MonthHits") = 0
                Rs("Hits") = 0
                Rs("HitsTime") = Newasp.NowTime
                Rs("SoftTime") = Newasp.NowTime
                Rs("isUpdate") = 1
                Rs("isLock") = 0
                Rs.Update
                Rs.Close
				Response.Flush
                Rs.Open "select top 1 softid from NC_SoftInfo order by softid desc", conn, 1, 1
                pubSoftID = Rs("softid")
                Rs.Close
				Response.Flush
                SQL = "update NC_SoftSort set SoftNum=SoftNum+1,isUpdate=1 where depth<>0 and sortid=" & CInt(strSortid(1))
                Newasp.Execute SQL
                SQL = "update NC_SoftSort set SoftNum=SoftNum+1,isUpdate=1 where depth=0 and rootid=" & CInt(strSortid(0))
                Newasp.Execute SQL
                '//////添加下载连接地址//////
				Response.Flush
                Set SiteRs = CreateObject("adodb.recordset")
                If Request.Form("no") <> "" And pubSoftID <> "" Then
                        For i = 1 To Request("no")
                                If Request("DownSite" & i & "") <> "" Then
                                        SQL = "select * from NC_SoftSite where (ID is null)"
                                        SiteRs.Open SQL, conn, 1, 3
                                        SiteRs.addnew
                                        SiteRs("SiteName") = Request.Form("SiteName" & i & "")
                                        SiteRs("DownSite") = Request.Form("DownSite" & i & "")
                                        SiteRs("sortid") = strSortid(1)
                                        SiteRs("SoftID") = pubSoftID
                                        SiteRs("serverid") = Request.Form("serverid" & i & "")
                                        SiteRs.Update
                                        SiteRs.Close
                                End If
                        Next
						
                End If
                Set SiteRs = Nothing
				Response.Flush
                Newasp.Execute ("update NC_SoftPublish set isAccept=1 where softid=" & Trim(Request.Form("sid")))
				Response.Flush
                NC_Admin.Succeed_Msg ("<li>添加" & Request.Form("softname") & "成功!</li>")
                Rs.Open "select top 1 SoftID from NC_SoftSite order by id desc", conn, 1, 1
                If Request.Form("isCreateHtml") = "yes" Then NC_SoftInfo.CreateSoftInfo (Rs("softid"))
                Rs.Close
                Set Rs = Nothing
				Set NC_SoftInfo = Nothing
                Response.Write "<meta http-equiv=""refresh"" content=""2;url='" & Request.ServerVariables("HTTP_REFERER") & "'"">" & vbCrLf
				Response.Flush
        End If
End Sub
%>