admin_publish.asp

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

ASP
629 行
字号
123
        Rs.Open SQL, conn, 1, 1
        Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
        sortid = CStr(Rs("sortid"))
        rootid = CStr(Rs("rootid"))
        SoftTitle = "收录软件"
        Response.Write "<form name=""myform"" method=""post"" action=""admin_publish.asp"">" & vbCrLf
        Response.Write " <input type=""Hidden"" name=""action"" value='save'>" & vbCrLf
        Response.Write " <input type=""Hidden"" name=""sid"" value='"
        Response.Write Request("softid")
        Response.Write "'>" & vbCrLf
        Response.Write " <input type=""Hidden"" name=""username"" value='"
        Response.Write Rs("username")
        Response.Write "'>" & vbCrLf
        If CInt(Newasp.Setting(19)) = 1 Then
                Response.Write " <input type=""hidden"" name=""content1"" id=body value="""
                Response.Write Server.HTMLEncode(Rs("Content"))
                Response.Write """>" & vbCrLf
                Response.Write " "
        End If
        Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <th colspan=""2"">"
        Response.Write SoftTitle
        Response.Write "</th>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td width=""15%"" height=""22"" align=""right"" nowrap class=""forumRowHighlight"">软件分类：</td>" & vbCrLf
        Response.Write " <td width=""85%"" class=""forumRow"">" & vbCrLf
        srtSortingList = Newasp.SortingJumpList
        srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
        Response.Write srtSortingList
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">软件名称：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""><input name=""softname"" type=""text"" size=""25"" value="""
        Response.Write Rs("softname")
        Response.Write """> 版本: <input name=""softver"" type=""text"" size=""20"" value="""
        Response.Write Rs("softver")
        Response.Write """></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">运行环境：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""><input name=""RunSystem"" type=""text"" size=""50"" value="""
        Response.Write Rs("RunSystem")
        Response.Write """><BR>" & vbCrLf
        RunSystem = Split(Newasp.Setting(34), ",")
        For i = 0 To UBound(RunSystem)
                Response.Write "<a href='javascript:ToRunsystem(""" & Trim(RunSystem(i)) & "/"")'><u>" & Trim(RunSystem(i)) & "</u></a> | "
                If i = 7 Then Response.Write "<br>"
        Next
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">软件类型：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"">" & vbCrLf
        SoftType = Split(Newasp.Setting(35), ",")
        For i = 0 To UBound(SoftType)
                Response.Write "<input type=""radio"" name=""SoftType"" value=""" & Trim(SoftType(i)) & """ "
                If SoftType(i) = Rs("SoftType") Then Response.Write " checked"
                Response.Write ">" & Trim(SoftType(i)) & " "
                If i = 6 Then Response.Write "<br>"
        Next
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">界面预览：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""><input id=image2 name=""PreviewImg"" type=""text"" size=""40"" value="""
        Response.Write Rs("PreviewImg")
        Response.Write """><font color=""#808080""> 软件界面预览图片，大小不定</font></td>" & vbCrLf
        Response.Write " </tr" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">缩略图：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""><input id=image1 name=""Softimg"" type=""text"" size=""30""><font color=""#808080""> 软件的缩略图，建议大小为：120×95 px</font></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">图片上传：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""><iframe name=""image"" frameborder=0 width=100% height=40 scrolling=no src=upfile.asp?type=image&upnum=2></iframe></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">软件大小：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""> <input type=""text"" name=""SoftSize"" size=""14"" maxlength=""10"" value='"
        Response.Write Trim(Rs("SoftSize"))
        Response.Write "'> <input name=""SizeUnit"" type=""radio"" value=""KB"" checked>" & vbCrLf
        Response.Write " KB " & vbCrLf
        Response.Write " <input type=""radio"" name=""SizeUnit"" value=""MB"">" & vbCrLf
        Response.Write " MB <font color=""#FF0000"">！</font>" & vbCrLf
        Response.Write " 解压密码:<input type=""text"" name=""Decode"" size=""15"" maxlength=""100"" value='"
        Response.Write Trim(Rs("Decode"))
        Response.Write "'> <font color=""#808080"">没有请留空</font> </td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" nowrap class=""forumRowHighlight"">授权方式：</td>" & vbCrLf
        Response.Write " <td class=""forumRow"" nowrap> <select name=""impower"">" & vbCrLf
        Response.Write " "
        Response.Write "<option value=""" & Rs("impower") & """>" & Rs("impower") & "</option>"
        Response.Write " <option value=""共享软件"">共享软件</option>" & vbCrLf
        Response.Write " <option value=""免费软件"">免费软件</option>" & vbCrLf
        Response.Write " <option value=""自由软件"">自由软件</option>" & vbCrLf
        Response.Write " <option value=""试用软件"">试用软件</option>" & vbCrLf
        Response.Write " <option value=""演示软件"">演示软件</option>" & vbCrLf
        Response.Write " <option value=""商业软件"">商业软件</option>" & vbCrLf
        Response.Write " </select>" & vbCrLf
        Response.Write " 软件语言: <select name=""Language"">" & vbCrLf
        Response.Write " "
        Response.Write "<option value=""" & Rs("Language") & """>" & Rs("Language") & "</option>"
        Response.Write " <option value=""简体中文"">简体中文</option>" & vbCrLf
        Response.Write " <option value=""繁体中文"">繁体中文</option>" & vbCrLf
        Response.Write " <option value=""英文"">英文</option>" & vbCrLf
        Response.Write " </select>" & vbCrLf
        Response.Write " 软件等级: <select name=""Grades"" size=""1"">" & vbCrLf
        Response.Write " <option value=""1"" name=""Grades"" "
        If Trim(Rs("Grades")) = "1" Then
                Response.Write "selected"
        End If
        Response.Write ">一星级</option>" & vbCrLf
        Response.Write " <option value=""2"" name=""Grades"" "
        If Trim(Rs("Grades")) = "2" Then
                Response.Write "selected"
        End If
        Response.Write ">二星级</option>" & vbCrLf
        Response.Write " <option value=""3"" name=""Grades"" "
        If Trim(Rs("Grades")) = "3" Then
                Response.Write "selected"
        End If
        Response.Write ">三星级</option>" & vbCrLf
        Response.Write " <option value=""4"" name=""Grades"" "
        If Trim(Rs("Grades")) = "4" Then
                Response.Write "selected"
        End If
        Response.Write ">四星级</option>" & vbCrLf
        Response.Write " <option value=""5"" name=""Grades"" "
        If Trim(Rs("Grades")) = "5" Then
                Response.Write "selected"
        End If
        Response.Write ">五星级</option>" & vbCrLf
        Response.Write " </select>" & vbCrLf
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""22"" align=""right"" class=""forumRowHighlight"">联系作者：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""><input name=""Contact"" type=""text"" size=""25"" value="""
        Response.Write Rs("Contact")
        Response.Write """>" & vbCrLf
        Response.Write " 作者主页: <input name=""Homepage"" type=""text"" size=""30"" value="""
        Response.Write Rs("Homepage")
        Response.Write """>" & vbCrLf
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write "<TR height=""22"">" & vbCrLf
        Response.Write "<TD colspan=4 class=forumHeaderBackgroundAlternate><B>软件简介</B></TD>" & vbCrLf
        Response.Write "</TR>" & vbCrLf
        Response.Write "<TR height=""22"">" & vbCrLf
        Response.Write "<TD colspan=4 class=forumRow> "
        If CInt(Newasp.Setting(19)) = 1 Then
                NC_HtmlEdit.Init_HtmlEdit
        Else
                Response.Write "<textarea name=content1 style=""width:100%;"" rows=12>"
                Response.Write Rs("Content")
                Response.Write "</textarea>"
        End If
        Response.Write "</TD>" & vbCrLf
        Response.Write "</TR>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td height=""21"" align=""right"" class=""forumRowHighlight"">是否推荐：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""> <input name=""isCommend"" type=""radio"" value=""0"" checked>" & vbCrLf
        Response.Write " 不推荐　<input type=""radio"" name=""isCommend"" value=""1"">" & vbCrLf
        Response.Write " 推荐　</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr height=""22"">" & vbCrLf
        Response.Write " <td align=""right"" noWrap class=""forumRowHighlight"">是否推荐置顶：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""> <input name=""isCommend"" type=""radio"" value=""0"" checked>" & vbCrLf
        Response.Write " 不推荐　<input type=""radio"" name=""isCommend"" value=""1"">" & vbCrLf
        Response.Write " 软件推荐　<input name=""isTop"" type=""radio"" value=""0"" checked>" & vbCrLf
        Response.Write " 不置顶　<input type=""radio"" name=""isTop"" value=""1"">" & vbCrLf
        Response.Write " 软件置顶　</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr height=""22"">" & vbCrLf
        Response.Write " <td align=""right"" class=""forumRowHighlight"">会员软件设置：</td>" & vbCrLf
        Response.Write " <td class=""forumRow""> <select name=""isMember"" size=""1"">" & vbCrLf
        Set Rs1 = Newasp.Execute("select * from NC_UserGroup order by groupid")
        Do While Not Rs1.EOF
                Response.Write "<option value="""
                Response.Write Rs1("Grades")
                Response.Write """>"
                Response.Write Rs1("GroupName")
                Response.Write "</option>" & vbCrLf
                Rs1.movenext
        Loop
        Rs1.Close
        Set Rs1 = Nothing
        Response.Write " </select>&nbsp;&nbsp;" & vbCrLf
        Response.Write "下载软件所需的点数：<input name=""MoneyNum"" type=""text"" size=""6"" value=""20"">&nbsp;&nbsp;" & vbCrLf
        If CInt(Newasp.Setting(5)) = 0 Then Response.Write "<input type=checkbox name='isCreateHtml' value='yes' checked> 同时生成（HTML）"
        Response.Write "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr> " & vbCrLf
        Response.Write " <td class=""forumRowHighlight"">下载地址：<br> <font color=""#FF0000"">请复制到下面的下载地址框！</font></td>" & vbCrLf
        Response.Write " <td class=""forumRow"">下载地址1：<input type=""text"" value="""
        Response.Write Rs("Site_1")
        Response.Write """ size=""60""><BR>下载地址2：<input type=""text"" value="""
        Response.Write Rs("Site_2")
        Response.Write """ size=""60""><BR>下载地址3：<input type=""text"" value="""
        Response.Write Rs("Site_3")
        Response.Write """ size=""60""></td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        Response.Write " <tr height=""22"">" & vbCrLf
        Response.Write " <td colspan=""2"" class=""forumRow"">" & vbCrLf
        Response.Write " <script language=""javascript"">" & vbCrLf
        Response.Write " function setid()" & vbCrLf
123

admin_publish.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态ASP； 　无限制添加下载服务器」中的 admin_publish.asp 源码文件，采用 ASP 编程语言编写，共 629 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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