admin_shop.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 1,135 行 · 第 1/4 页
ASP
1,135 行
<!--#include file="setup.asp"-->
<!--#include file="../inc/ubbcode.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_editor.asp"-->
<%
Admin_header
'=====================================================================
' 商品名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com.0
' 文件名称：admin_article.asp
' 更新日期：2006-10-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,isEdit
Dim i,ClassID,RsObj,shopid,findword,keyword,strClass
Dim TextContent,ShopTop,ShopBest,ForbidEssay
Dim maxperpage,CurrentPage,totalnumber,TotalPageNum
Dim s_ClassName,ChildStr,FoundSQL,isAccept,selShopID
Dim InstallDir_ChannelDir
InstallDir_ChannelDir = Trim(Newasp.InstallDir & Newasp.ChannelDir)
ubb.BasePath = InstallDir_ChannelDir
ubb.setUbbcode = Join(Newasp.setUserEditor,"|")
ubb.Keyword = Newasp.ContentKeyword

If Request("isAccept") <> "" Then
	isAccept = 0
Else
	isAccept = 1
End If
If CInt(ChannelID) = 0 Then ChannelID = 3
Action = LCase(Request("action"))

Select Case Trim(Action)
Case "save"
	Call SaveShop
Case "modify"
	Call ModifyShop
Case "add"
	isEdit = False
	Call ShopEdit(isEdit)
Case "edit"
	isEdit = True
	Call ShopEdit(isEdit)
Case "del"
	Call ShopDel
Case "view"
	Call ShopView
Case "setting"
	Call BatchSetting
Case "saveset"
	Call SaveSetting
Case "move"
	Call BatchMove
Case "savemove"
	Call SaveMove
Case "reset"
	Call ResetDateTime
Case Else
	Call showmain
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub PageTop()
	Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>"
	Response.Write "	<tr>"
	Response.Write "	  <th colspan=2>" & sModuleName & "管理选项</th>"
	Response.Write "	</tr>"
	Response.Write "	<tr><form method=Post name=myform action='admin_Shop.asp' onSubmit='return JugeQuery(this);'>"
	Response.Write "	<input type=hidden name=ChannelID value='" & ChannelID & "'>"
	Response.Write "	<td class=TableRow1>搜索："
	Response.Write "	  <input name=keyword type=text size=20>"
	Response.Write "	  条件："
	Response.Write "	  <select name=queryopt>"
	Response.Write "		<option value='1' selected>" & sModuleName & "名称</option>"
	Response.Write "		<option value='2'>" & sModuleName & "规格</option>"
	Response.Write "		<option value='3'>不限条件</option>"
	Response.Write "	  </select> <input type=submit name=Submit value='开始查询' class=Button></td>"
	Response.Write "	  <td class=TableRow1>" & sModuleName & "导航："
	Dim srtClassMenu
	Response.Write "<select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">" & vbCrLf
	Response.Write "<option value='admin_Shop.asp?ChannelID=" & ChannelID & "'>≡全部" & sModuleName & "列表≡</option>" & vbCrLf
	srtClassMenu = Newasp.ClassJumpMenu(ChannelID)
	srtClassMenu = Replace(srtClassMenu, "{ClassID=" & Request("sortid") & "}", "selected")
	Response.Write srtClassMenu
	Response.Write "</select>"
	Response.Write "	  </td></form>"
	Response.Write "	</tr>"
	Response.Write "	<tr>"
	Response.Write "	  <td colspan=2 class=TableRow2><strong>操作选项：</strong> <a href='admin_Shop.asp?ChannelID=" & ChannelID & "'>管理首页</a> | "
	Response.Write "	  <a href='admin_Shop.asp?ChannelID=" & ChannelID & "&action=add'>添加" & sModuleName & "</a> | "
	Response.Write "	  <a href='admin_classify.asp?ChannelID=" & ChannelID & "&action=add'>添加" & sModuleName & "分类</a> | "
	Response.Write "	  <a href='admin_classify.asp?ChannelID=" & ChannelID & "'>" & sModuleName & "分类管理</a></td>"
	Response.Write "	</tr>"
	Response.Write "</table>"
	Response.Write "<br>"
End Sub
Private Sub showmain()
	If Not ChkAdmin("AdminShop" & ChannelID) Then
		Server.Transfer("showerr.asp")
		Response.End
	End If
	Dim strListName
	If Not IsEmpty(Request("selShopID")) Then
		selShopID = Request("selShopID")
		Select Case Newasp.CheckStr(Request("act"))
		Case "批量删除"
			Call batdel
		Case "批量推荐"
			Call isCommend
		Case "取消推荐"
			Call noCommend
		Case "批量置顶"
			Call isTop
		Case "取消置顶"
			Call noTop
		Case "生成HTML"
			Call BatCreateHtml
		Case Else
			Response.Write "无效参数！"
		End Select
	End If
	Call PageTop
	Dim specialID,sortid,Cmd,child
	Response.Write "<script language=""JavaScript"" src=""include/showpage.js""></script>" & vbNewLine
	Response.Write "<table  border=0 align=center cellpadding=3 cellspacing=1 class=TableBorder>"
	Response.Write "	<tr>"
	Response.Write "	  <th width='5%' nowrap>选择</th>"
	Response.Write "	  <th width='68%'>" & sModuleName & "名称</th>"
	Response.Write "	  <th width='9%' nowrap>管理操作</th>"
	Response.Write "	  <th width='9%' nowrap>" & sModuleName & "星级</th>"
	Response.Write "	  <th width='9%' nowrap>整理日期</th>"
	Response.Write "	</tr>"
	strListName = "&channelid="& ChannelID &"&sortid="& Request("sortid") &"&specialID="& Request("specialID") &"&isAccept="& Request("isAccept") &"&keyword=" & Request("keyword") 
	If Request("sortid") <> "" Then
		SQL = "select ClassID,ChannelID,ClassName,child,ChildStr from [NC_Classify] where ChannelID = " & ChannelID & " And ClassID=" & Request("sortid")
		Set Rs = Newasp.Execute(SQL)
		If Rs.bof And Rs.EOF Then
			Response.Write "Sorry！没有找到任何" & sModuleName & "分类。或者您选择了错误的系统参数!"
			Response.End
		Else
			s_ClassName = Rs("ClassName")
			ClassID = Rs("ClassID")
			child = Rs("child")
			ChildStr = Rs("ChildStr")
			sortid = CLng(Request("sortid"))
		End If
		Rs.Close
	Else
		s_ClassName = "全部" & sModuleName
		sortid = 0
		child = 0
	End If
	maxperpage = 30 '###每页显示数
	
	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 = CLng(Request("page"))
	Else
		CurrentPage = 1
	End If
	If CInt(CurrentPage) = 0 Then CurrentPage = 1
	If Not IsNull(Request("keyword")) And Request("keyword") <> "" Then
		keyword = Newasp.ChkQueryStr(Request("keyword"))
		If CInt(Request("queryopt")) = 1 Then
			findword = "A.TradeName like '%" & keyword & "%'"
		ElseIf CInt(Request("queryopt")) = 2 Then
			findword = "A.Marque like '%" & keyword & "%'"
		Else
			findword = "A.TradeName like '%" & keyword & "%' or A.Marque like '%" & keyword & "%'"
		End If
		FoundSQL = findword
		s_ClassName = "查询" & sModuleName
	Else
		specialID = 99999
		If Request("sortid") <> "" Then
			FoundSQL = "A.isAccept <> "& isAccept & " And A.ClassID in (" & ChildStr & ")"
		Else
			If Trim(Request("specialID")) <> "" Then
				specialID = CLng(Request("specialID"))
				If Request("specialID") <> 0 Then
					FoundSQL = "A.isAccept = " & isAccept & " And specialID =" & Request("specialID")
				Else
					FoundSQL = "A.isAccept = " & isAccept & " And specialID > 0"
				End If
			Else
				FoundSQL = "A.isAccept = " & isAccept
			End If
		End If
	End If
	TotalNumber = Newasp.Execute("SELECT COUNT(ShopID) FROM NC_ShopList A WHERE A.ChannelID = " & ChannelID & " And "& FoundSQL &"")(0)
	TotalPageNum = CLng(TotalNumber / maxperpage)  '得到总页数
	If TotalPageNum < TotalNumber / maxperpage Then TotalPageNum = TotalPageNum + 1
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > TotalPageNum Then CurrentPage = TotalPageNum
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT A.*,C.ClassName FROM [NC_ShopList] A INNER JOIN [NC_Classify] C ON A.ClassID=C.ClassID WHERE A.ChannelID = " & ChannelID & " And "& FoundSQL &" ORDER BY A.isTop DESC, A.addTime DESC ,A.ShopID DESC"
	If IsSqlDataBase = 1 Then
		If Trim(Request("keyword"))<>"" Or child > 0 Then
			Set Rs = Newasp.Execute(SQL)
		Else
			Set Cmd = Server.CreateObject("ADODB.Command")
			Set Cmd.ActiveConnection=conn
			Cmd.CommandText="NC_ShopAdminList"
			Cmd.CommandType=4
			Cmd.Parameters.Append cmd.CreateParameter("@ChannelID",3)
			Cmd.Parameters.Append cmd.CreateParameter("@sortid",3)
			Cmd.Parameters.Append cmd.CreateParameter("@specialID",3)
			Cmd.Parameters.Append cmd.CreateParameter("@isAccept",3)
			Cmd.Parameters.Append cmd.CreateParameter("@pagenow",3)
			Cmd.Parameters.Append cmd.CreateParameter("@pagesize",3)
			Cmd.Parameters.Append cmd.CreateParameter("@totalrec",3,2)
			Cmd("@ChannelID")=ChannelID
			Cmd("@sortid")=sortid
			Cmd("@specialID")=specialID
			Cmd("@isAccept")=isAccept
			Cmd("@pagenow")=CurrentPage
			Cmd("@pagesize")=maxperpage
			Set Rs=Cmd.Execute
			
		End If
	Else
		Rs.Open SQL, Conn, 1, 1
	End If
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	If Rs.BOF And Rs.EOF Then
		Response.Write "<tr><td align=center colspan=5 class=TableRow2>还没有找到任何" & sModuleName & "！</td></tr>"
	Else
		If IsSqlDataBase<>1 Or Trim(Request("keyword"))<>"" Or child > 0 Then
			Rs.MoveFirst
			If TotalPageNum > 1 then Rs.Move (CurrentPage - 1) * maxperpage
			If Rs.Eof Then Exit Sub
		End If
		i = 0

		Response.Write "	<tr>"
		Response.Write "	  <td colspan=5 class=TableRow2>"
		ShowListPage CurrentPage,TotalPageNum,totalnumber,maxperpage,strListName,s_ClassName
		Response.Write "</td>"
		Response.Write "	</tr>"
		Response.Write "	<form name=selform method=post action=""admin_shop.asp"">"
		Response.Write "	<input type=hidden name=ChannelID value='" & ChannelID & "'>"
		Response.Write "	<input type=hidden name=action value=''>"
		Do While Not Rs.EOF And i < CInt(maxperpage)
			If Not Response.IsClientConnected Then Response.End
			If (i mod 2) = 0 Then
				strClass = "class=TableRow1"
			Else
				strClass = "class=TableRow2"
			End If
			Response.Write "	<tr>"
			Response.Write "	  <td align=center " & strClass & "><input type=checkbox name=selShopID value=" & Rs("ShopID") & "></td>"
			Response.Write "	  <td " & strClass & ">"
			If Rs("isTop") <> 0 Then
				Response.Write "<img src=""images/istop.gif"" width=15 height=17 border=0 alt=置顶商品>"
			End If

			Response.Write "[<a href=?ChannelID=" & Rs("ChannelID") & "&sortid="
			Response.Write Rs("ClassID")
			Response.Write ">"
			Response.Write Rs("ClassName")
			Response.Write "</a>] "
			Response.Write "<a href=?action=view&ChannelID=" & Rs("ChannelID") & "&ShopID="
			Response.Write Rs("ShopID")
			Response.Write ">"
			Response.Write Rs("TradeName")
			Response.Write "</a>" 

			If Rs("isBest") <> 0 Then
				Response.Write "&nbsp;&nbsp;<font color=blue>荐</font>"
			End If
			Response.Write "	  </td>"
			Response.Write "	  <td align=center nowrap " & strClass & "><a href=?action=edit&ChannelID=" & Rs("ChannelID") & "&ShopID=" & Rs("ShopID") & ">编辑</a> | <a href=?action=del&ChannelID=" & Rs("ChannelID") & "&ShopID=" & Rs("ShopID") & " onclick=""{if(confirm('商品删除后将不能恢复，您确定要删除该商品吗?')){return true;}return false;}"">删除</a></td>"
			Response.Write "	  <td align=center nowrap " & strClass & ">"
			Response.Write "<font color=green>"
admin_shop.asp - 源码说明

本页面展示了「小游戏网站演示www.4399.io 拥有4万条游戏数据」中的 admin_shop.asp 源码文件，采用 ASP 编程语言编写，共 1,135 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与4399相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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