📄 collect_paste.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628个人Access版
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Collect_Paste
KSCls.Execute()
Set KSCls = Nothing
Class Collect_Paste
Private KSCMS
Private ConnItem
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
Set ConnItem = KSCMS.ConnItem()
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
'主体部分
Sub Execute()
If Not KSCMS.ReturnPowerResult(0, "KMCL10001") Then Call KSCMS.ReturnErr(1, "") '剪切、复制权限检查
Dim DisplayMode, Page
Dim PasteTypeID, DestFolderID, SourceFolderID, FolderID, ContentID
DisplayMode = KSCMS.G("DisplayMode")
Page = KSCMS.G("Page")
PasteTypeID = KSCMS.G("PasteTypeID")
DestFolderID = KSCMS.G("DestFolderID")
SourceFolderID = KSCMS.G("SourceFolderID")
FolderID = KSCMS.G("FolderID")
ContentID = KSCMS.G("ContentID")
If PasteTypeID = "" Then PasteTypeID = 0
If DestFolderID = "" Then DestFolderID = "0"
If FolderID = "" Then
FolderID = "0"
End If
If ContentID = "" Then
ContentID = "0"
Else
ContentID = "'" & Replace(ContentID, ",", "','") & "'"
End If
If ContentID = "" Then
Call KSCMS.AlertHistory("参数传递出错!", 1)
Set KSCMS = Nothing
Exit Sub
End If
If PasteTypeID = 2 Then '复制操作
Call PasteByCopy(SourceFolderID, DestFolderID, FolderID, ContentID)
Else
Call KSCMS.AlertHistory("非法操作!", 1)
Set KSCMS = Nothing
Exit Sub
End If
Response.Write "<script>location.href='Collect_main.asp?Page=" & Page & "';</script>"
End Sub
'过程:PasteByCopy复制粘贴
'参数:SourceFolderID--源目录,DestFolderID--目标目录,FolderID---被复制的目录,ContentID---被复制的文件
Sub PasteByCopy(SourceFolderID, DestFolderID, FolderID, ContentID)
Dim ItemName,ChannelID,ClassID,SpecialID,PaginationType,MaxCharPerPage,ReadLevel,Stars,ReadPoint
Dim Hits,UpDateType,UpDateTime,Strip,Rolls,Comment,Recommend,Popular,FnameType,TemplateID,Script_Iframe
Dim Script_Object,Script_Script,Script_Div,Script_Class,Script_Span,Script_Img,Script_Font,Script_A
Dim Script_Html,CollecListNum,CollecNewsNum,IntoBase,BeyondSavePic,CollecOrder,Verific,InputerType
Dim Inputer,EditorType,Editor,showComment,Script_Table,Script_Tr,Script_Td, strChannelDir
Dim WebName,WebUrl,ItemDemo,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse
Dim ListStr, ListPageStr1, ListPageStr2, ListPageID1, ListPageID2, ListPageStr3, HsString, HoString, HttpUrlType, HttpUrlStr
Dim LsString,LoString,ListPageType,LPsString,LPoString,Flag
Dim TsString, ToString, CsString, CoString, DateType, DsString, DoString, AuthorType, AsString, AoString, AuthorStr, CopyFromType, FsString, FoString, CopyFromStr, KeyType, KsString, KoString, KeyStr, NewsPageType, NPsString, NPoString, NewsPageStr, NewsPageEnd
ContentID=Replace(Replace(ContentID,"'",""),"""","")
Dim RS
Set RS=Server.CreateObject("Adodb.Recordset")
RS.Open "Select * From KS_CollectItem Where ItemID=" & ContentID,ConnItem,1,1
IF RS.Eof And RS.Bof Then
Call KSCMS.AlertHistory("操作失败!", 1)
Exit Sub
Else
ItemName = Trim(RS("ItemName"))
ChannelID = Trim(RS("ChannelID"))
strChannelDir=Trim(RS("ChannelDir"))
ClassID = Trim(RS("ClassID"))
SpecialID = Trim(RS("SpecialID"))
WebName=Trim(RS("WebName"))
WebUrl=Trim(RS("WebUrl"))
ItemDemo=Trim(RS("ItemDemo"))
LoginType=RS("LoginType")
LoginUrl=RS("LoginUrl")
LoginPostUrl=RS("LoginPostUrl")
LoginUser=RS("LoginUser")
LoginPass=RS("LoginPass")
LoginFalse=RS("LoginFalse")
ListStr = RS("ListStr")
LsString = RS("LsString")
LoString = RS("LoString")
ListPageType = RS("ListPageType")
LPsString = RS("LPsString")
LPoString = RS("LPoString")
ListPageStr1 = RS("ListPageStr1")
ListPageStr2 = RS("ListPageStr2")
ListPageID1 = RS("ListPageID1")
ListPageID2 = RS("ListPageID2")
ListPageStr3 = RS("ListPageStr3")
NewsPageType = RS("NewsPageType")
NPsString = RS("NPsString")
NPoString = RS("NPoString")
NewsPageStr = RS("NewsPageStr")
NewsPageEnd = RS("NewsPageEnd")
HsString = RS("HsString")
HoString = RS("HoString")
HttpUrlType = RS("HttpUrlType")
HttpUrlStr = RS("HttpUrlStr")
TsString = RS("TsString")
ToString = RS("ToString")
CsString = RS("CsString")
CoString = RS("CoString")
DateType = RS("DateType")
DsString = RS("DsString")
DoString = RS("DoString")
AuthorType = RS("AuthorType")
AsString = RS("AsString")
AoString = RS("AoString")
AuthorStr = RS("AuthorStr")
CopyFromType = RS("CopyFromType")
FsString = RS("FsString")
FoString = RS("FoString")
CopyFromStr = RS("CopyFromStr")
KeyType = RS("KeyType")
KsString = RS("KsString")
KoString = RS("KoString")
KeyStr = RS("KeyStr")
Flag=RS("Flag")
PaginationType = Trim(RS("PaginationType"))
MaxCharPerPage = Trim(RS("MaxCharPerPage"))
ReadLevel = Trim(RS("ReadLevel"))
Stars = Trim(RS("Stars"))
ReadPoint = Trim(RS("ReadPoint"))
Hits = Trim(RS("Hits"))
UpDateType = Trim(RS("UpdateType"))
UpDateTime = Trim(RS("UpDateTime"))
Strip = Trim(RS("Strip"))
Rolls = Trim(RS("Rolls"))
Comment = Trim(RS("Comment"))
Recommend = Trim(RS("Recommend"))
Popular = Trim(RS("Popular"))
FnameType = Trim(RS("FnameType"))
TemplateID = Trim(RS("TemplateID"))
Script_Iframe = Trim(RS("Script_Iframe"))
Script_Object = Trim(RS("Script_Object"))
Script_Script = Trim(RS("Script_Script"))
Script_Div = Trim(RS("Script_Div"))
Script_Class = Trim(RS("Script_Class"))
Script_Span = Trim(RS("Script_Span"))
Script_Img = Trim(RS("Script_Img"))
Script_Font = Trim(RS("Script_Font"))
Script_A = Trim(RS("Script_A"))
Script_Html = Trim(RS("Script_Html"))
CollecListNum = Trim(RS("CollecListNum"))
CollecNewsNum = Trim(RS("CollecNewsNum"))
IntoBase = Trim(RS("IntoBase"))
BeyondSavePic = Trim(RS("BeyondSavePic"))
CollecOrder = Trim(RS("CollecOrder"))
Verific = Trim(RS("Verific"))
InputerType = Trim(RS("InputerType"))
Inputer = Trim(RS("Inputer"))
EditorType = Trim(RS("EditorType"))
Editor = Trim(RS("Editor"))
ShowComment = Trim(RS("ShowComment"))
Script_Table = Trim(RS("Script_Table"))
Script_Tr = Trim(RS("Script_Tr"))
Script_Td = Trim(RS("Script_Td"))
End IF
RS.Close
RS.Open "Select * From KS_CollectItem",ConnItem,1,3
RS.AddNew
RS("ItemName") = GetNewTitle(ItemName)
RS("WebName") = WebName
RS("WebUrl") = WebUrl
RS("ChannelID") = ChannelID
RS("ChannelDir") = strChannelDir
RS("ClassID") = ClassID
RS("SpecialID") = SpecialID
RS("ItemDemo") = ItemDemo
RS("LoginType") = LoginType
RS("LoginUrl") = LoginUrl
RS("LoginPostUrl") = LoginPostUrl
RS("LoginUser") = LoginUser
RS("LoginPass") = LoginPass
RS("LoginFalse") = LoginFalse
RS("LsString") = LsString
RS("LoString") = LoString
RS("ListPageType") = ListPageType
RS("ListStr") = ListStr
RS("LPsString") = LPsString
RS("LPoString") = LPoString
RS("ListPageStr1") = ListPageStr1
RS("ListPageStr2") = ListPageStr2
RS("ListPageID1") = ListPageID1
RS("ListPageID2") = ListPageID2
RS("ListPageStr3") = ListPageStr3
RS("Flag")=Flag
RS("HsString") = HsString
RS("HoString") = HoString
RS("HttpUrlType") = HttpUrlType
RS("HttpUrlStr") = HttpUrlStr
RS("TsString") = TsString
RS("ToString") = ToString
RS("CsString") = CsString
RS("CoString") = CoString
RS("DateType") = DateType
RS("DsString") = DsString
RS("DoString") = DoString
RS("AuthorType") = AuthorType
RS("AsString") = AsString
RS("AoString") = AoString
RS("AuthorStr") = AuthorStr
RS("CopyFromType") = CopyFromType
RS("FsString") = FsString
RS("FoString") = FoString
RS("CopyFromStr") = CopyFromStr
RS("KeyType") = KeyType
RS("KsString") = KsString
RS("KoString") = KoString
RS("KeyStr") = KeyStr
RS("NewsPageType") = NewsPageType
RS("NPsString") = NPsString
RS("NPoString") = NPoString
RS("NewsPageStr") = NewsPageStr
RS("NewsPageEnd") = NewsPageEnd
RS("PaginationType") = PaginationType
RS("MaxCharPerPage") = MaxCharPerPage
RS("ReadLevel") = ReadLevel
RS("Stars") = Stars
RS("ReadPoint") = ReadPoint
RS("Hits") = Hits
RS("UpdateType") = UpDateType
RS("UpDateTime") = UpDateTime
RS("Strip") = Strip
RS("Rolls") = Rolls
RS("Comment") =Comment
RS("Recommend") = Recommend
RS("Popular") = Popular
RS("FnameType") = FnameType
RS("TemplateID") = TemplateID
RS("Script_Iframe") =Script_Iframe
RS("Script_Object") = Script_Object
RS("Script_Script") = Script_Script
RS("Script_Div") = Script_Div
RS("Script_Class") =Script_Class
RS("Script_Span") = Script_Span
RS("Script_Img") = Script_Img
RS("Script_Font") = Script_Font
RS("Script_A") = Script_A
RS("Script_Html") = Script_Html
RS("CollecListNum") = CollecListNum
RS("CollecNewsNum") = CollecNewsNum
RS("IntoBase") = IntoBase
RS("BeyondSavePic") = BeyondSavePic
RS("CollecOrder") = CollecOrder
RS("Verific") = Verific
RS("InputerType") = InputerType
RS("Inputer") = Inputer
RS("EditorType") = EditorType
RS("Editor") = Editor
RS("ShowComment") = ShowComment
RS("Script_Table") = Script_Table
RS("Script_Tr") = Script_Tr
RS("Script_Td") = Script_Td
RS.Update
RS.Close
End Sub
Function GetNewTitle(OriTitle)
Dim RSC
On Error Resume Next
Set RSC = Server.CreateObject("Adodb.RecordSet")
RSC.Open "Select * From KS_CollectItem Where ItemName Like '复制%" & OriTitle & "' Order By ItemID Desc", connItem, 1, 1
If Not RSC.EOF Then
RSC.MoveFirst
If RSC.RecordCount = 1 Then
RSC.Close
Set RSC = Nothing
GetNewTitle = "复制(1) " & OriTitle
Exit Function
Else
GetNewTitle = "复制(" & CInt(Left(Split(RSC("ItemName"), "(")(1), 1)) + 1 & ") " & OriTitle
End If
RSC.Close
Set RSC = Nothing
Else
RSC.Close
Set RSC = Nothing
GetNewTitle = "复制 " & OriTitle
Exit Function
End If
End Function
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -