⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 batchclassset.asp

📁 asp源码 图片ASP整站
💻 ASP
字号:
🔍 
<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Const.asp"-->
<%
Dim DBC,Conn,oConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set oConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>栏目参数设置</title>
</head>
<link href="/CSS/FS_css.css" rel="stylesheet">
<script language="JavaScript" src="../../SysJS/PublicJS.js"></script>
<body topmargin="2" leftmargin="2">


<%
if Not JudgePopedomTF(Session("Name"),"P010515") then Call ReturnError1()

dim Action,FoundErr
dim rs, sql,iCount,i,j,sSql,oRs
' 创建一个记录集
Set oRs = Server.CreateObject( G_FS_RS )
Action=trim(request("Action"))

if Action = "GetDomain" then
	call GetDomain()
elseif Action = "ShowME" then
    Call ShowME()
elseif Action = "Contribution" then
    Call Contribution()
elseif Action = "UpOrder" then 
	Call UpOrder() 
elseif Action = "DownOrder" then 
	Call DownOrder() 
else
	Call main()
end if
%>
<%
Sub Main()
	sSql="select id,classid,classcname,domain,showtf,Contribution,orders from FS_NewsClass where parentID='0' order by Orders"'这里只对大类进行查询
	oRs.Open sSql,oConn,1,1
	iCount=oRs.recordcount
	j=1

%>
<table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#DEDFDE">
  <tr bgcolor="#F7F7F7">
    <td><div align="center"><strong>栏目名称</strong></div></td>
    <td><div align="center"><strong>捆绑域名</strong></div></td>
    <td><div align="center"><strong>前台显示</strong></div></td>
    <td><div align="center"><strong>允许投稿</strong></div></td>
    <td colspan="2"><div align="center"><strong>排序操作</strong></div></td>
  </tr>
  <%do while not oRs.EOF %>
  <tr bgcolor="#FFFFFF" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#F7F8F8'">
    
	<!-- 栏目名称 --->
    <td><div align="center"><a href="ClassEdit.asp?ClassID=<%=oRs("ClassID")%>" title="点击栏目进行修改"><%=oRs("ClassCname")%></a><a href="#" title="序号"><font color=red>[<%=oRs("orders")%>]</font></a></div></td>

	
	<!-- 捆绑域名---->
	<form method="post" action="?Action=GetDomain">
	<input name="ID" type="hidden" value="<%=oRs("ID")%>">
    <td><div align="center"><input name="domain" type=text size=25 maxlength=60 value="<%=oRs("Domain")%>" style="font-size: 9pt;border: 1px solid #DEDFDE;"> <input type=submit value="修改" style="font-size: 9pt;border: 1px solid #DEDFDE;background-color: #ffffff"></div></td>
    </form>

	
	<!-- 前台显示 --->
	<form method="post" action="?Action=ShowME">
	<input name="ID" type="hidden" value="<%=oRs("ID")%>">
    <td><div align="center">
	<input name="showTF" type="checkbox" id="showTF" value="1" <% if oRs("showTF") = 1 then Response.Write("checked") %> style="font-size: 9pt;border: 1px solid #DEDFDE;">
          <%
    if oRs("showTF")="1" then
		response.write "<font color=#ff6600>是</font>"
	else
		response.write "否"
	end if
	%>
     <input type=submit value="修改" style="font-size: 9pt;border: 1px solid #DEDFDE;background-color: #ffffff"></div></td>
     </form>

	
	<!-- 允许投稿 --->
	<form method="post" action="?Action=Contribution">
	<input name="ID" type="hidden" value="<%=oRs("ID")%>">
    <td><div align="center">
	<input name="Contribution" type="checkbox" id="Contribution" value="1" <% if oRs("Contribution") = 1 then Response.Write("checked") %> style="font-size: 9pt;border: 1px solid #DEDFDE;">
	   <%
    if oRs("Contribution")="1" then
		response.write "<font color=#ff6600>是</font>"
	else
		response.write "否"
	end if
	%>
	 <input type=submit value="修改" style="font-size: 9pt;border: 1px solid #DEDFDE;background-color: #ffffff">
      </div>
	  </td>
	 </form>
     

	
	<!-- 栏目排序 向上移动 --->
    <form action='?Action=UpOrder' method='post'>
      <td width='120' align="center"> <% 
	if j>1 then 
		response.write "<select name=MoveNum size=1 style=""font-size: 9pt;border: 1px solid #DEDFDE;""><option value=0>上提</option>" 
		for i=1 to j-1 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=ID value="&oRs("ID")&">"
		response.write "<input type=hidden name=cOrders value="&oRs("Orders")&">&nbsp;<input type=submit name=Submit value=修改 style=""font-size: 9pt;border: 1px solid #DEDFDE;background-color: #ffffff"">" 
	else 
		response.write "&nbsp;" 
	end if 
%> </td>
    </form>

	<!-- 栏目排序 向下移动 --->
    <form action='?Action=DownOrder' method='post'>
      <td width='120' align="center"> <%
	if iCount>j then 
		response.write "<select name=MoveNum size=1 style=""font-size: 9pt;border: 1px solid #DEDFDE;""><option value=0>下移</option>" 
		for i=1 to iCount-j 
			response.write "<option value="&i&">"&i&"</option>" 
		next 
		response.write "</select>" 
		response.write "<input type=hidden name=ID value="&oRs("ID")&">"
		response.write "<input type=hidden name=cOrders value="&oRs("Orders")&">&nbsp;<input type=submit name=Submit value=修改 style=""font-size: 9pt;border: 1px solid #DEDFDE;background-color: #ffffff"">" 
	else 
		response.write "&nbsp;" 
	end if 
%> </td>
    </form>
  </tr>
    <%
     	j=j+1	
		oRs.MoveNext
   	loop
  %>

</table>
</body>
</html>
<%
oRs.Close
End Sub
%>





<%
'________________________________________

'捆绑域名
Sub GetDomain
Dim ID,DomainStr

'获取参数，此处尚未做字符过滤
ID = cint(trim(request("ID")))
DomainStr = request("domain")

'判断传入栏目ID
If ID="" or isnull(ID) Then
    Alert "参数传递错误"
	response.end
End If

'进行写库操作
If DomainStr <>"" or isnull(DomainStr)=false then
    sSql="select Domain from FS_NewsClass where ID="&ID'按照传入的ID从FS_NewsClass表里选择domain字段
    oRs.Open sSql,oConn,1,3'打开记录
    If Not oRs.Eof Then
       oRs("Domain")=DomainStr'写入参数
       oRs.Update
	   response.write "<script language=""javascript"">alert(""修改成功"");window.location=""BatchClassSet.asp"";</script>"
    End If
else
    response.write "<script language=""javascript"">alert(""有错误发生"");window.location=""BatchClassSet.asp"";</script>"
End if 

oRs.Close
End Sub



'____________________________________________________

'是否前台显示
Sub ShowME
Dim ID,ShowStr

'获取参数，此处尚未做字符过滤
ID = cint(trim(request("ID")))
ShowStr = Trim(request("ShowTF"))

If ID="" or isnull(ID) Then
    Alert "参数传递错误"
	response.end
End If

  sSql="select ShowTF from FS_NewsClass where ID="&ID
  oRs.Open sSql,oConn,1,3
    If Not oRs.Eof Then
       If ShowStr<>"" Then
		  oRs("ShowTF")=1
	   Else
		  oRs("ShowTF")=0
	   End If
       oRs.Update
	   response.write "<script language=""javascript"">alert(""修改成功"");window.location=""BatchClassSet.asp"";</script>"
    End If

oRs.Close
End Sub




'____________________________________________________

'是否允许投稿
Sub Contribution
Dim ID,ContributionStr

'获取参数，此处尚未做字符过滤
ID = cint(trim(request("ID")))
ContributionStr = Trim(request("Contribution"))

If ID="" or isnull(ID) Then
    Alert "参数传递错误"
	response.end
End If

  sSql="select Contribution from FS_NewsClass where ID="&ID
  oRs.Open sSql,oConn,1,3
    If Not oRs.Eof Then
       If ContributionStr<>"" Then
		  oRs("Contribution")=1
	   Else
		  oRs("Contribution")=0
	   End If
       oRs.Update
	   response.write "<script language=""javascript"">alert(""修改成功"");window.location=""BatchClassSet.asp"";</script>"
    End If

oRs.Close
End Sub





'__________________________________________________________

'向上移动
sub UpOrder()
	dim ID,sqlOrder,rsOrder,MoveNum,cOrders,tOrders,i,rs
	ID=cint(trim(request("ID")))
	cOrders=cint(Trim(request("cOrders")))
	MoveNum=cint(trim(request("MoveNum")))
	if ID="" or cOrders="" then
       Alert "参数传递错误"
	   response.end
	end if

	if MoveNum="" or isnull(MoveNum) then
       Alert "参数传递错误"
	   response.end
	else
		if MoveNum=0 then
		   Alert "请选择要提升的数字！"
		   response.end
		end if
	end if
	if FoundErr=True then
		exit sub
	end if

	dim mrs,MaxOrders
	set mrs=oConn.execute("select max(Orders) from FS_NewsClass where parentID='0'")
	MaxOrders=mrs(0)+1'122+1=123

	'先将当前栏目移至最后，包括子栏目
	oConn.execute("update FS_NewsClass set Orders='" & MaxOrders & "' where parentID='0' and ID=" & ID)
	
	'然后将位于当前栏目以上的栏目的Orders依次加一，范围为要提升的数字
	sqlOrder="select * from FS_NewsClass where Orders < '" & cOrders & "' and parentID='0' order by Orders"
	set rsOrder=server.CreateObject("adodb.recordset")
	rsOrder.open sqlOrder,oConn,1,3
	if rsOrder.bof and rsOrder.eof then
		exit sub        '如果当前栏目已经在最上面，则无需移动
	end if
	i=1
	do while not rsOrder.eof
		tOrders=rsOrder("Orders")       '得到要提升位置的Orders，包括子栏目
		oConn.execute("update FS_NewsClass set Orders=Orders+1 where  parentID='0' and Orders=" & tOrders)
		i=i+1
		if i>MoveNum then
			exit do
		end if
		rsOrder.movenext
	loop
	rsOrder.close
	set rsOrder=nothing
	
	'然后再将当前栏目从最后移到相应位置，包括子栏目
	oConn.execute("update FS_NewsClass set Orders=" & tOrders & " where  parentID='0' and ID=" & ID)
	response.write "<script language=""javascript"">alert(""修改成功"");window.location=""BatchClassSet.asp"";</script>"
end sub



'___________________________________________________

'向下移动
sub DownOrder()
	dim ID,sqlOrder,rsOrder,MoveNum,cOrders,tOrders,i,rs,PrevID,NextID
	ID=cint(trim(request("ID")))
	cOrders=cint(Trim(request("cOrders")))
	MoveNum=cint(trim(request("MoveNum")))
	if ID="" or cOrders="" then
       Alert "参数传递错误"
	   response.end
	end if
	
	if MoveNum="" or isnull(MoveNum) then
		 Alert "参数传递错误"
		 response.end
	else
		if MoveNum=0 then
			 Alert "请选择要提升的数字！"
			 response.end
		end if
	end if
	if FoundErr=True then
		exit sub
	end if

	dim mrs,MaxOrders
	set mrs=oConn.execute("select max(Orders) from FS_NewsClass where  parentID='0'")
	MaxOrders=mrs(0)+1
	'先将当前栏目移至最后，包括子栏目
	oConn.execute("update FS_NewsClass set Orders=" & MaxOrders & " where  parentID='0' and ID=" & ID)
	
	'然后将位于当前栏目以下的栏目的Orders依次减一，范围为要下降的数字
	sqlOrder="select * from FS_NewsClass where Orders>" & cOrders & " and  parentID='0' order by Orders"
	set rsOrder=server.CreateObject("adodb.recordset")
	rsOrder.open sqlOrder,oConn,1,3
	if rsOrder.bof and rsOrder.eof then
		exit sub        '如果当前栏目已经在最下面，则无需移动
	end if
	i=1
	do while not rsOrder.eof
		tOrders=rsOrder("Orders")       '得到要提升位置的Orders
		oConn.execute("update FS_NewsClass set Orders=Orders-1 where  parentID='0' and Orders=" & tOrders)
		i=i+1
		if i>MoveNum then
			exit do
		end if
		rsOrder.movenext
	loop
	rsOrder.close
	set rsOrder=nothing
	
	'然后再将当前栏目从最后移到相应位置
	oConn.execute("update FS_NewsClass set Orders=" & tOrders & " where  parentID='0' and ID=" & ID)
	response.write "<script language=""javascript"">alert(""修改成功"");window.location=""BatchClassSet.asp"";</script>"
end sub



'定义错误提示
Function Alert(InfoStr)
%>
<script language="JavaScript">
alert('<% = InfoStr %>');
history.back();
window.close();
</script>
<%
End Function
%>

⌨️ 快捷键说明

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