linkdel.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :[e-mail] [e-mail]
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New LinkDel
KSCls.Execute()
Set KSCls = Nothing

Class LinkDel
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub


		Public Sub Execute()
		
		   If Not KSCMS.ReturnPowerResult(0, "KMCT10001") Then                '检查友情链接操作(增和改)的权限检查
			  Call KSCMS.ReturnErr(0, "")
			  Exit Sub
		   End If
		   
		 Dim Verific
		 Dim k, LinkID
		 Dim RSObj
		 Dim FolderID
		 Dim Page
		 
		LinkID = Trim(KSCMS.G("LinkID"))
		Verific = KSCMS.G("Verific")
		LinkID = Split(LinkID, ",")
		Page = KSCMS.G("Page")
		Set RSObj = Server.CreateObject("AdoDb.Recordset")
		RSObj.Open " Select FolderID From KS_Link Where LinkID=" & LinkID(0), Conn, 1, 1
		FolderID = RSObj(0)
		RSObj.Close
		Set RSObj = Nothing
		For k = LBound(LinkID) To UBound(LinkID)
			 Conn.Execute ("Delete From KS_Link Where LinkID =" & LinkID(k))
		Next
		
		If Verific = 1 Then
		Response.Write ("<script>location.href='Link_Main.asp?Page=" & Page & "&FolderID=" & FolderID & "';</script>")
		Else
		 Response.Write ("<script>location.href='LinkVerific.asp?Page=" & Page & "';</script>")
		End If
			  
		End Sub
End Class
%>