📄 collect_itemsuccess.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../SysCls/KS_CollectCommonCls.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_ItemSuccess
KSCls.Execute()
Set KSCls = Nothing
Class Collect_ItemSuccess
Private KSCMS
Private KMCObj
Private ConnItem
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
Set KMCObj=New CollectCommonCls
Set ConnItem = KSCMS.ConnItem()
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConnItem()
Call KSCMS.Closeconn
Set KSCMS=Nothing
Set KMCObj=Nothing
End Sub
Sub Execute()
Dim SqlItem, RsItem, FoundErr, ErrMsg
Dim ItemID, ItemName, ChannelID, strChannelDir, ClassID, SpecialID, PaginationType, MaxCharPerPage, ReadLevel
Dim Stars, ReadPoint, Hits, UpDateType, UpDateTime, Strip, Rolls, Comment, Recommend, Popular, FnameType, TemplateID
Dim Script_Iframe, Script_Object, Script_Script, Script_Div, Script_Class, Script_Span, Script_Img, Script_Font, Script_A, Script_Html, Script_Table, Script_Tr, Script_Td
Dim CollecListNum, CollecNewsNum, IntoBase, BeyondSavePic, CollecOrder, Verific, InputerType, Inputer, EditorType, Editor, ShowComment
Dim tClass, tSpecial
FoundErr = False
ItemID = Request("ItemID")
If ItemID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>参数错误，请从有效链接进入</li>"
Else
ItemID = CLng(ItemID)
End If
If FoundErr <> True Then
ItemName = Trim(Request.Form("ItemName"))
ChannelID = Trim(Request.Form("ChannelID"))
ClassID = Trim(Request.Form("ClassID"))
SpecialID = Trim(Request.Form("SpecialID"))
PaginationType = Trim(Request.Form("PaginationType"))
MaxCharPerPage = Trim(Request.Form("MaxCharPerPage"))
ReadLevel = Trim(Request.Form("ReadLevel"))
Stars = Trim(Request.Form("Stars"))
ReadPoint = Trim(Request.Form("ReadPoint"))
Hits = Trim(Request.Form("Hits"))
UpDateType = Trim(Request.Form("UpdateType"))
UpDateTime = Trim(Request.Form("UpDateTime"))
Strip = Trim(Request.Form("Strip"))
Rolls = Trim(Request.Form("Rolls"))
Comment = Trim(Request.Form("Comment"))
Recommend = Trim(Request.Form("Recommend"))
Popular = Trim(Request.Form("Popular"))
FnameType = Trim(Request.Form("FnameType"))
TemplateID = Trim(Request.Form("TemplateID"))
Script_Iframe = Trim(Request.Form("Script_Iframe"))
Script_Object = Trim(Request.Form("Script_Object"))
Script_Script = Trim(Request.Form("Script_Script"))
Script_Div = Trim(Request.Form("Script_Div"))
Script_Class = Trim(Request.Form("Script_Class"))
Script_Span = Trim(Request.Form("Script_Span"))
Script_Img = Trim(Request.Form("Script_Img"))
Script_Font = Trim(Request.Form("Script_Font"))
Script_A = Trim(Request.Form("Script_A"))
Script_Html = Trim(Request.Form("Script_Html"))
CollecListNum = Trim(Request.Form("CollecListNum"))
CollecNewsNum = Trim(Request.Form("CollecNewsNum"))
IntoBase = Trim(Request.Form("IntoBase"))
BeyondSavePic = Trim(Request.Form("BeyondSavePic"))
CollecOrder = Trim(Request.Form("CollecOrder"))
Verific = Trim(Request.Form("Verific"))
InputerType = Trim(Request.Form("InputerType"))
Inputer = Trim(Request.Form("Inputer"))
EditorType = Trim(Request.Form("EditorType"))
Editor = Trim(Request.Form("Editor"))
ShowComment = Trim(Request.Form("ShowComment"))
Script_Table = Trim(Request.Form("Script_Table"))
Script_Tr = Trim(Request.Form("Script_Tr"))
Script_Td = Trim(Request.Form("Script_Td"))
If ItemName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>项目名称不能为空！</li>"
End If
If ChannelID = "" Or ChannelID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择项目所属频道！</li>"
Else
ChannelID = CLng(ChannelID)
End If
If ClassID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择项目所属栏目！</li>"
Else
Set tClass = conn.Execute("select * From KS_Class where ID='" & ClassID & "'")
strChannelDir = tClass("Folder")
Set tClass = Nothing
End If
If SpecialID = "" Then
SpecialID = 0
Else
SpecialID = SpecialID
If SpecialID <> 0 Then
Set tSpecial = conn.Execute("select ID From KS_Special Where FolderID='" & ClassID & "'")
If tSpecial.BOF And tSpecial.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>在本频道内找不到指定的专题</li>"
End If
Set tSpecial = Nothing
End If
End If
If PaginationType = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择分页类型！</li>"
Else
PaginationType = CLng(PaginationType)
End If
If MaxCharPerPage = "" And PaginationType = 1 Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请输入每页字符数！</li>"
Else
MaxCharPerPage = CLng(MaxCharPerPage)
End If
If Stars = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择文章评分等级！</li>"
Else
Stars = Stars
End If
If ReadPoint = "" Then
ReadPoint = 0
Else
ReadPoint = CLng(ReadPoint)
End If
If Hits = "" Then
Hits = 0
Else
Hits = CLng(Hits)
End If
If UpDateType = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择文章录入时间类型！</li>"
Else
UpDateType = CLng(UpDateType)
If UpDateType = 2 Then
If IsDate(UpDateTime) = False Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>文章录入时间格式不正确！</li>"
Else
UpDateTime = CDate(UpDateTime)
End If
End If
End If
If FnameType = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择生成的扩展名！</li>"
Else
FnameType = FnameType
End If
If TemplateID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择设计模板！</li>"
Else
TemplateID = CLng(TemplateID)
End If
If CollecListNum = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请填写新闻列表深度！</li>"
Else
CollecListNum = CLng(CollecListNum)
End If
If CollecNewsNum = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请填写新闻采集数量！</li>"
Else
CollecNewsNum = CLng(CollecNewsNum)
End If
If InputerType = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择新闻录入者类型！</li>"
Else
InputerType = CLng(InputerType)
If InputerType = 1 And Inputer = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请填写新闻录入者！</li>"
End If
End If
If EditorType = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请选择责任编辑类型！</li>"
Else
EditorType = CLng(EditorType)
If EditorType = 1 And Editor = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请填写责任编辑！</li>"
End If
End If
End If
If FoundErr <> True Then
SqlItem = "Select * From KS_CollectItem Where ItemID=" & ItemID
Set RsItem = Server.CreateObject("adodb.recordset")
RsItem.Open SqlItem, ConnItem, 2, 3
If RsItem.EOF And RsItem.BOF Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>参数错误，没有找该项目</li>"
Else
RsItem("ItemName") = ItemName
RsItem("ChannelID") = ChannelID
RsItem("ChannelDir") = strChannelDir
RsItem("ClassID") = ClassID
RsItem("SpecialID") = SpecialID
RsItem("PaginationType") = PaginationType
RsItem("MaxCharPerPage") = MaxCharPerPage
RsItem("ReadLevel") = ReadLevel
RsItem("Stars") = Stars
RsItem("ReadPoint") = ReadPoint
RsItem("Hits") = Hits
RsItem("UpdateType") = UpDateType
If UpDateType = 2 Then
RsItem("UpDateTime") = UpDateTime
End If
If Strip = "" Then
RsItem("Strip") = 0
Else
RsItem("Strip") = 1
End If
If Rolls = "" Then
RsItem("Rolls") = 0
Else
RsItem("Rolls") = 1
End If
If Comment = "" Then
RsItem("Comment") = 0
Else
RsItem("Comment") = 1
End If
If Recommend = "" Then
RsItem("Recommend") = 0
Else
RsItem("Recommend") = 1
End If
If Popular = "" Then
RsItem("Popular") = 0
Else
RsItem("Popular") = 1
End If
RsItem("FnameType") = FnameType
RsItem("TemplateID") = TemplateID
If Script_Iframe = "yes" Then
RsItem("Script_Iframe") = -1
Else
RsItem("Script_Iframe") = 0
End If
If Script_Object = "yes" Then
RsItem("Script_Object") = -1
Else
RsItem("Script_Object") = 0
End If
If Script_Script = "yes" Then
RsItem("Script_Script") = -1
Else
RsItem("Script_Script") = 0
End If
If Script_Div = "yes" Then
RsItem("Script_Div") = -1
Else
RsItem("Script_Div") = 0
End If
If Script_Class = "yes" Then
RsItem("Script_Class") = -1
Else
RsItem("Script_Class") = 0
End If
If Script_Span = "yes" Then
RsItem("Script_Span") = -1
Else
RsItem("Script_Span") = 0
End If
If Script_Img = "yes" Then
RsItem("Script_Img") = -1
Else
RsItem("Script_Img") = 0
End If
If Script_Font = "yes" Then
RsItem("Script_Font") = -1
Else
RsItem("Script_Font") = 0
End If
If Script_A = "yes" Then
RsItem("Script_A") = -1
Else
RsItem("Script_A") = 0
End If
If Script_Html = "yes" Then
RsItem("Script_Html") = -1
Else
RsItem("Script_Html") = 0
End If
RsItem("CollecListNum") = CollecListNum
RsItem("CollecNewsNum") = CollecNewsNum
If IntoBase = "" Then
RsItem("IntoBase") = 0
Else
RsItem("IntoBase") = 1
End If
If BeyondSavePic = "" Then
RsItem("BeyondSavePic") = 0
Else
RsItem("BeyondSavePic") = 1
End If
If CollecOrder = "yes" Then
RsItem("CollecOrder") = -1
Else
RsItem("CollecOrder") = 0
End If
If Verific = "" Then
RsItem("Verific") = 0
Else
RsItem("Verific") = 1
End If
RsItem("InputerType") = InputerType
If InputerType = 1 Then
RsItem("Inputer") = Inputer
End If
RsItem("EditorType") = EditorType
If EditorType = 1 Then
RsItem("Editor") = Editor
End If
RsItem("ShowComment") = ShowComment
RsItem("Flag") = True
If Script_Table = "yes" Then
RsItem("Script_Table") = -1
Else
RsItem("Script_Table") = 0
End If
If Script_Tr = "yes" Then
RsItem("Script_Tr") = -1
Else
RsItem("Script_Tr") = 0
End If
If Script_Td = "yes" Then
RsItem("Script_Td") = -1
Else
RsItem("Script_Td") = 0
End If
End If
ErrMsg = "<br><li>“" & ItemName & "” 项目设置完成！</li>"
RsItem.Update
RsItem.Close
Set RsItem = Nothing
End If
If FoundErr = True Then
Call KMCObj.WriteErrMsg(ErrMsg)
Else
Call KMCObj.WriteSucced(ErrMsg)
End If
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -