admin_software5737.asp

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

ASP
1,290 行
字号
1234
<!--#include file="setup.asp"-->
<!--#include file="../inc/Create_SoftInfoCls.Asp" -->
<!--#include file="../inc/NC_HtmlEditCls.Asp" -->
<%
Dim isEdit
Dim skycnid
Dim Rs1
Dim Rs2
Dim softTitle
Dim SortName
Dim sortid
Dim rootid
Dim selSoftid
dim zyname
Dim SiteRs
Dim pubSoftID
Dim strSortid
Dim strskycnid
Dim totalPut
Dim strSortName
Dim j
Dim TxtContent
Dim keyword
Dim findword
Dim ii
Dim datNowTime
Dim ParentID
Dim strParent
Dim Child
Dim depth
Dim maxperpage
Dim CurrentPage
Dim totalnumber
Dim Pcount
Dim i
Dim n
Dim pagestart
Dim pageend
Dim maxpagecount
Dim ArraySoftid
Dim selSortid
Dim pagination
Dim GotoPageType
Dim SoftBody
Dim NC_Create
Set NC_Create = New Create_SoftInfo_Cls
Server.ScriptTimeout = 9999
NC_Admin.AdminChk = "11"
NC_Admin.Check
Newasp.admin_header
pagination = 0
GotoPageType = 0
Set Rs = Server.CreateObject("adodb.recordset")
Set Rs1 = Server.CreateObject("adodb.recordset")
Set Rs2 = Server.CreateObject("adodb.recordset")
Set SiteRs = Server.CreateObject("adodb.recordset")
Select Case Trim(Request("action"))
	Case "add"
		isEdit = False
		Call setclass(isEdit)
	Case "edit"
		isEdit = True
		Call setclass(isEdit)
	Case "save"
		Call saveAdd
	Case "modify"
		Call savemodify
	Case "delsite"
		Call delsite
	Case Else
		Call SoftMain
End Select
If Founderr = True Then
	NC_Admin.Error_Msg (ErrMsg)
End If
Newasp.admin_footer

Private Sub SoftMain()
	Dim srtSortingMenu
	Dim bookmark
	Dim srtSortingList
	If Not IsEmpty(Request("selSoftid")) Then
		ArraySoftid = Request("selSoftid")
		ArraySoftid = Split(ArraySoftid, "||")
		selSoftid = ArraySoftid(0)
		selSortid = Request("selSoftid")
		Select Case Request("action")
			Case "del"
				Call batdel
			Case "dele"
				Call batdele
			Case "move"
				Call batmove
			Case "isCommend"
				Call isCommend
			Case "noCommend"
				Call noCommend
			Case "indate"
				Call upindate
			Case "CreateHtml"
				Call BatCreateHtml
			Case "istop"
				Call isTop
			Case "notop"
				Call noTop
			Case Else
				Response.Write "无效参数！"
				Response.Write
		End Select
	End If
	Response.Write "<script language=""JavaScript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write "function SelectAll() {" & vbCrLf
	Response.Write Chr(9) & "for (var i=0;i<document.selform.selSoftid.length;i++) {" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "var e=document.selform.selSoftid[i];" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "e.checked=!e.checked;" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<script language=""JavaScript"">" & vbCrLf
	Response.Write "<!--//" & vbCrLf
	Response.Write "function Juge(myform)" & vbCrLf
	Response.Write "{" & vbCrLf
	Response.Write "if (myform.keyword.value == """")" & vbCrLf
	Response.Write Chr(9) & "{" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "alert(""请输入要查询的关键字!"");" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "myform.keyword.focus();" & vbCrLf
	Response.Write Chr(9) & Chr(9) & "return (false);" & vbCrLf
	Response.Write Chr(9) & "}" & vbCrLf
	Response.Write "}" & vbCrLf
	Response.Write "//-->" & vbCrLf
	Response.Write "</script>" & vbCrLf
	Response.Write "<table border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write " <th colspan=""5"">软件管理</th></tr>"
	Response.Write " <tr><form method=Post name=""myform"" action=""admin_software.asp"" onSubmit=""return Juge(this)"">"
	Response.Write " <td class=forumrow height=""22"" colspan=""5"">"
	Response.Write "查询： <input align=""absmiddle"" name=""keyword"" type=""text"" id=""keyword"" size=""30""> &nbsp;查询方法:"
	Response.Write " <select size=""1"" name=""key"">"
	Response.Write " <option value=""topic"">软件名称</option>"
	Response.Write " <option value=""body"">软件说明</option>"
	Response.Write " <option value="""">不限条件</option>"
	Response.Write " </select>"
	Response.Write " <input type=""submit"" name=""Submit"" align=""absmiddle"" value=""查 询..."" class=button>"
	Response.Write " </td></tr></form>"
	Response.Write " <tr>"
	Response.Write " <th nowrap>选择</th><th width=""70%"">软件标题　"
	srtSortingMenu = SortingJumpMenu
	srtSortingMenu = Replace(srtSortingMenu, "{SortID=" & Request("clasid") & "}", "selected")
	Response.Write srtSortingMenu
	Response.Write "</th><th nowrap>修改软件</th><th nowrap>推 荐</th><th nowrap>整理时间</th></tr>"
	If Request("clasid") <> "" Then
		SQL = "select sortid,SortName,skycnid,rootid,depth,ParentID,strParent,Child from [NC_SoftSort] where sortid = " & Request("clasid")
		Rs.Open SQL, Conn, 1, 1
		Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
		If Rs.bof And Rs.EOF Then
			Response.Write "Sorry！没有找到任何软件信息。或者您选择了错误的系统参数!"
			Response.Write
		Else
			strSortName = Rs("SortName")
			sortid = Rs("sortid")
			rootid = Rs("rootid")
			depth = Rs("depth")
			ParentID = Rs("ParentID")
			strParent = Rs("strParent")
			Child = Rs("Child")
		End If
		Rs.Close
	Else
		strSortName = "全部软件"
	End If
	keyword = Newasp.HTMLEncodes(Request("keyword"))
	maxperpage = 20 '###每页显示数
	If Not IsNumeric(Request("page")) And Len(Request("page")) <> 0 Then
		Response.Write "错误的系统参数!请输入整数"
		Response.End
	End If
	If Not IsEmpty(Request("page")) And Len(Request("page")) <> 0 Then
		CurrentPage = CInt(Request("page"))
	Else
		CurrentPage = 1
	End If
	If CInt(CurrentPage) = 0 Then CurrentPage = 1
	If Not IsNull(keyword) And keyword <> "" Then
		keyword = Replace(Replace(Replace(keyword, "'", "‘"), "<", "&lt;"), ">", "&gt;")
		If Request("key") = "topic" Then
			findword = "softname like '%" & keyword & "%'"
		ElseIf Request("key") = "body" Then
			findword = "content like '%" & keyword & "%'"
		Else
			findword = "softname like '%" & keyword & "%' or content like '%" & keyword & "%'"
		End If
		SQL = "select * from NC_SoftInfo where " & findword & " "
		SQL = SQL & " order by isTop desc,softTime desc"
	Else
		If Request("clasid") <> "" Then
			If depth <> 0 Then
				Dim Rss, AllSortID,ParentStr
				Set Rss = Newasp.Execute("select * from NC_SoftSort where strParent like '%"& sortid &"%'")
				If Rss.EOF And Rss.bof Then
					AllSortID = sortid
				Else
					Do While Not Rss.EOF
						ParentStr = Split(Rss("strParent"), ",")
						For i = 0 To UBound(ParentStr)
							If CLng(ParentStr(i)) = sortid Then
								AllSortID = AllSortID & Rss("sortid") &","
								Exit For
							End If
						Next
						Rss.movenext
					Loop
					AllSortID = AllSortID & sortid
				End If
				Rss.Close
				Set Rss = Nothing
				SQL = "select * from NC_SoftInfo where isLock=0 and sortid in (" & AllSortID & ") order by isTop desc,softTime desc,softid desc"
			Else
				SQL = "select * from NC_SoftInfo where isLock=0 and rootid=" & rootid & " order by isTop desc,softTime desc,softid desc"
			End If
		Else
			SQL = "select * from NC_SoftInfo where isLock=0 order by isTop desc,softTime desc,softid desc"
		End If
	End If
	Rs.Open SQL, Conn, 1, 1
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.bof And Rs.EOF Then
		Response.Write "<tr><td colspan=5 class=forumrow>还没有找到任何软件！</td></tr>"
	Else
		If pagination = 0 Then
			totalnumber = Rs.recordcount
			If (totalnumber Mod maxperpage) = 0 Then
				Pcount = totalnumber \ maxperpage
			Else
				Pcount = totalnumber \ maxperpage + 1
			End If
			Rs.MoveFiRst
			If CurrentPage > Pcount Then CurrentPage = Pcount
			If CurrentPage < 1 Then CurrentPage = 1
			If CurrentPage = Empty Then CurrentPage = 1
			Rs.Move (CurrentPage - 1) * maxperpage
			bookmark = Rs.bookmark
			i = 0
		Else
			totalnumber = Rs.recordcount
			Rs.pagesize = maxperpage
			maxpagecount = Rs.pagecount '###记录总页数
			Rs.absolutepage = CurrentPage '###当前页数
			pagestart = CurrentPage - 2
			pageend = CurrentPage + 2
			If pagestart < 1 Then
				pagestart = 1
			End If
			If pageend > maxpagecount Then
				pageend = maxpagecount
			End If
			If (totalnumber Mod maxperpage) = 0 Then
				Pcount = totalnumber \ maxperpage
			Else
				Pcount = totalnumber \ maxperpage + 1
			End If
			Rs.MoveFiRst
			If CurrentPage > Pcount Then CurrentPage = Pcount
			If CurrentPage < 1 Then CurrentPage = 1
			Rs.Move (CurrentPage - 1) * maxperpage
			bookmark = Rs.bookmark
			i = 0
		End If
		j = (CurrentPage - 1) * maxperpage + 1
		Response.Write " <tr>"
		Response.Write " <td height=""22"" colspan=""5"" class=""forumRowHighlight"">"
		Call showpage
		Response.Write "</td>"
		Response.Write Chr(9) & "</tr>"
		Response.Write "<form name=""selform"" method=""post"" action="""">"
		Do While Not Rs.EOF And i < CInt(maxperpage)
			Response.Write " <tr>"
			Response.Write " <td class=forumrow nowrap align=""center""><input type=""checkbox"" name=""selSoftid"" value="""
			Response.Write Rs("softid")
			Response.Write """ title='"
			Response.Write j
			Response.Write "'>"
			Response.Write j
			Response.Write "</td>"
			Response.Write " <td height=""22"" class=""forumrow"">"
			If Rs("istop") = 0 Or Rs("istop") = Empty Then
				Response.Write "<IMG SRC=""images/folder.gif"" WIDTH=""16"" HEIGHT=""16"" BORDER=0 ALT=""开放的软件"">"
			Else
				Response.Write "<IMG SRC=""images/istop.gif"" WIDTH=""15"" HEIGHT=""17"" BORDER=0 ALT=""置顶的软件"">"
			End If
			Response.Write Chr(9) & " [<a href=?clasid="
			Response.Write Rs("sortid")
			Response.Write ">"
			Response.Write Rs("SortName")
			Response.Write "</a>] <a href='"
			If CInt(Newasp.Setting(5)) = 0 Then
				Response.Write "../software/catalog"
				Response.Write Rs("sortid")
				Response.Write "/"
				Response.Write Rs("softid")
				Response.Write ".html"
			Else
				Response.Write "../software.asp?id="
				Response.Write Rs("softid")
			End If
			Response.Write "' target=_blank>"
			Response.Write Rs("softname")
			Response.Write " "
			Response.Write Rs("softver")
			Response.Write "</a>"
			If Rs("isMember") <> 0 Then Response.Write "<IMG SRC=""images/vip.gif"" WIDTH=""12"" HEIGHT=""11"" BORDER=0 ALT=""会员软件"">"
			Response.Write Chr(9) & Chr(9) & " </td>"
			Response.Write " <td class=forumrow align=""center""><a href=?action=edit&softid="
			Response.Write Rs("softid")
			Response.Write "&sortid="
			Response.Write Rs("sortid")
			Response.Write ">编 辑</a>"
			Response.Write "<font color=""#FF0000"">"
			Response.Write Rs("skycnid")
			Response.Write "</font>"
			Response.Write "</td>"
			Response.Write " <td class=forumrow align=""center"">"
1234

admin_software5737.asp - 源码说明

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

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

⌨️ 快捷键说明

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