📄 admin_publish.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="setup.asp" -->
<!--#include file="../inc/NC_HtmlEditCls.Asp" -->
<%
Dim NC_SoftInfo
Const MaxPerPage = 25
Dim i,CurrentPage,TotalPages,j
Dim SoftDownName,updown,img,isEdit
Dim totalnumber,filename,maxpagecount,Pcount
Dim sortid,rootid,SoftTitle,TxtContent
Dim pubSoftID,strSortid
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
DownsysClass.admin_header
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
DownsysClass.admin_footer
NothingObject

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
			DownsysClass.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
	DownsysClass.SqlQueryNum = DownsysClass.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")
	Rs.Open SQL, conn, 1, 1
	DownsysClass.SqlQueryNum = DownsysClass.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(DownsysClass.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 = DownsysClass.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
12 3 下一页
⌨️ 快捷键说明

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