admin_repeatcheck.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="Inc/Const.asp"-->
<%
Dim InfoID,Action
Action=Trim(Request("Action"))
Header
if Action="Check" then
	RepeatCheck
else
	Main
end if
Footer
Sub main()
%>
<table cellpadding="0" cellspacing="1" border="0" class="border" align=center>
<tr class="title" Colspan=2>
	<td align="center"><strong>重复<%=Cl.GetChannelName(ChannelID)%>检测管理</strong></td>
</tr>
  <form action="Admin_RepeatCheck.asp?Action=Check" method="post" name="MyForm">
  <tr class="tdbg">
    <td>桉文章ID检测：开始ID：<input name="BeginID" type="text" id="BeginID" style="width:10%" value="1">&nbsp;&nbsp;结束ID：<input name="EndID" type="text" id="EndID" style="width:10%" value="500">
	<input name="ChannelID" type=hidden value="<%=ChannelID%>">
	<input name="Type" type=hidden value="ID">
    &nbsp;&nbsp;<input name="Submit" type=Submit value=" 开 &nbsp;始 "> 
      </td>
  </tr>
 </form>
<form action="Admin_RepeatCheck.asp?Action=Check" method="post" name="MyForm">
  <tr class="tdbg">
    <td> 按栏目检测：<select name="ClassID">
	<%=ShowClass_Option(ChannelID,0,0,1)%>
    </select>
        &nbsp;&nbsp;<input name="Submit" type=Submit value=" 开 &nbsp;始 "> 
		<input name="Type" type=hidden value="Class">
		<input name="ChannelID" type=hidden value="<%=ChannelID%>">
      </td>
  </tr>
  </form>
   <form action="Admin_RepeatCheck.asp?Action=Check" method="post" name="Form2">
  <tr class="tdbg">
    <td><input name="Submit" type=Submit value="全部检测"> 
	<input name="Type" type=hidden value="All">
	<input name="ChannelID" type=hidden value="<%=ChannelID%>">
	友情提示：全部检测耗费资料较大，如数据量大，建议不要使用。
      </td>
  </tr>
 </form>
</table>
<%
End Sub

Sub RepeatCheck()
	Dim rs1,rs2,sql1,sql2,BeginID,EndID,sType
	Dim IDColumn,TitleColumn,TableName
	Dim n,dn,ClassID,tClass
	n=0:dn=0
	BeginID=Trim(request("BeginID"))
	EndID=Trim(request("EndID"))
	sType=Trim(request("Type"))
	if sType="" then Cl.ShowErr("参数错误！")
	Cl.Load_ChannelSetting(ChannelID)
	Select Case Clng(Cl.Channel.selectSingleNode("@moduleid").text)
	Case 1
		IDColumn	= "InfoID"
		TitleColumn	= "Title"
		TableName	= "Cl_Article"
	Case 2
		IDColumn	= "InfoID"
		TitleColumn	= "SoftName,SoftVersion"
		TableName	= "Cl_Soft"
	Case 3
		IDColumn	= "InfoID"
		TitleColumn	= "PhotoName"
		TableName	= "Cl_Photo"
	Case 4
		IDColumn	= "InfoID"
		TitleColumn	= "MovieName"
		TableName	= "Cl_Movie"
	Case 5
		IDColumn	= "InfoID"
		TitleColumn	= "ProductName"
		TableName	= "Cl_Product"
	Case else
		Cl.ShowErr("参数错误！")
	End Select
	Select Case Lcase(sType)
	Case "all"
		sql1="select "&IDColumn&","&TitleColumn&" from "&TableName&" where Deleted="&FalseType&" order by "&IDColumn&" desc"
		sql2="select "&IDColumn&","&TitleColumn&" from "&TableName&" where {$temp} Deleted="&FalseType&" order by "&IDColumn&" desc"
	Case "class"
		ClassID=Cl.GetClng(request("ClassID"))
		if ClassID=0 then
			Cl.ShowErr("请指定栏目ID！")
		end if
		set tClass=Cl.Execute("select ClassID,Child,arrChildID from Cl_Class where ClassID=" & ClassID)
		if tClass(1)>0 then
			sql1="select "&IDColumn&","&TitleColumn&" from "&TableName&" where ClassID in (" & tClass(2) & ") and Deleted="&FalseType&" order by "&IDColumn&" desc"
			sql2="select "&IDColumn&","&TitleColumn&" from "&TableName&" where {$temp} ClassID in (" & tClass(2) & ") and Deleted="&FalseType&" order by "&IDColumn&" desc"
		else
			sql1="select "&IDColumn&","&TitleColumn&" from "&TableName&" where ClassID="&ClassID&" and Deleted="&FalseType&" order by "&IDColumn&" desc"
			sql2="select "&IDColumn&","&TitleColumn&" from "&TableName&" where {$temp} ClassID="&ClassID&" and Deleted="&FalseType&" order by "&IDColumn&" desc"
		end if
	Case else
		if Not IsNumeric(BeginID) then
			Cl.ShowErr("<br /><li>请填写正确的开始ID！</li>")
		else
			BeginID=clng(BeginID)
		end if
		if Not IsNumeric(EndID) then
			Cl.ShowErr("<br /><li>请填写正确的结束ID！</li>")
		else
			EndID=clng(EndID)
		end if
		if BeginID>EndID then
			Cl.ShowErr("<br /><li>结束ID必须大于或等于开始ID！</li>")
		end if
		sql1="select "&IDColumn&","&TitleColumn&" from "&TableName&" where "&IDColumn&">="&BeginID&" and "&IDColumn&"<="&EndID&" and Deleted="&FalseType&" order by "&IDColumn&" desc"
		sql2="select "&IDColumn&","&TitleColumn&" from "&TableName&" where {$temp} "&IDColumn&">="&BeginID&" and "&IDColumn&"<="&EndID&" and Deleted="&FalseType&" order by "&IDColumn&" desc"
	End Select
	set rs1=Cl.Execute(sql1)
	if rs1.eof and rs1.bof then
		Cl.ShowErr("<br /><li>无符合条件的记录！</li>")
	else
		Dim TempVal,i
		TempVal = rs1.GetRows(-1)
		For i=0 to Ubound(TempVal)
			n=n+1
			if Clng(Cl.Channel.selectSingleNode("@moduleid").text)=2 then
				sql2=Replace(sql2,"{$temp}","SoftName='"&TempVal(1,i)&"' and SoftVersion='"&TempVal(2,i)&"' and "&IDColumn&"<>"&TempVal(0,i)&" and ")
			else
				sql2=Replace(sql2,"{$temp}",""&TitleColumn&"='"&TempVal(1,i)&"' and "&IDColumn&"<>"&TempVal(0,i)&" and ")
			end if
			set rs2=Cl.Execute(sql2)
			if not(rs2.eof and rs2.bof) then
				do while not rs2.eof
					dn=dn+1
					Cl.Execute("Update "&TableName&" set Deleted="&TrueType&" where "&IDColumn&"="&rs2(IDColumn))
					rs2.movenext
				loop
			end if
			rs2.close:set rs2=Nothing
		Next
	end if
	rs1.close:set rs1=Nothing

	Cl.SaveAdminLog
	if dn>0 then
	Call Cl.ShowSuc("<li>恭喜您，检测工作完成</li><li>重复的记录： "&n&" 个</li><li>共删除了重复记录： "&dn&" 个</li>")
	else
	Call Cl.ShowSuc("<li>恭喜您，检测工作完成</li><li>无重复记录出现！</li>")
	end if
End Sub

'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>