admin_itemsuccess.asp

用ASP开发环境写出来的新闻采集系统

<%@language=vbscript codepage=936 %>
<%
'********************************************************
'程序名称:最强新闻采集系统
'版权所有:火红的五月(qq:88389917)
'程序制作:火红的五月
%>
<%
option explicit
response.buffer=true	
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<%
Dim SqlItem,RsItem,FoundErr,ErrMsg
Dim ItemID,ItemName,ChannelID,strChannelDir,ClassID,SpecialID,PaginationType,MaxCharPerPage,ReadLevel
Dim Stars,ReadPoint,Hits,UpDateType,UpDateTime,IncludePicYn,DefaultPicYn,OnTop,Elite,Hot,SkinID,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,Passed,SaveFiles,CollecOrder,LinkUrlYn,InputerType,Inputer,EditorType,Editor,ShowCommentLink
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"))
   IncludePicYn=Trim(Request.Form("IncludePicYn"))
   DefaultPicYn=Trim(Request.Form("DefaultPicYn"))
   OnTop=Trim(Request.Form("OnTop"))
   Elite=Trim(Request.Form("Elite"))
   Hot=Trim(Request.Form("Hot"))
   SkinID=Trim(Request.Form("SkinID"))
   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"))
   Passed=Trim(Request.Form("Passed"))
   SaveFiles=Trim(Request.Form("SaveFiles"))
   CollecOrder=Trim(Request.Form("CollecOrder"))
   LinkUrlYn=Trim(Request.Form("LinkUrlYn"))
   InputerType=Trim(Request.Form("InputerType"))
   Inputer=Trim(Request.Form("Inputer"))
   EditorType=Trim(Request.Form("EditorType"))
   Editor=Trim(Request.Form("Editor"))
   ShowCommentLink=Trim(Request.Form("ShowCommentLink"))
   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
      ClassID=CLng(ClassID)
      set tClass=conn.execute("select * From PE_Class where ClassID=" & ClassID)
      strChannelDir=tClass("ClassDir")
      Set tClass=Nothing
   End If
   If SpecialID="" Then
      SpecialID=0
   Else
      SpecialID=Clng(SpecialID)
      If SpecialID<>0 Then
         set tSpecial=conn.execute("select SpecialID From PE_Special Where ChannelID="  & ChannelID)
         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 ReadLevel="" then
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>请选择文章阅读等级！</li>"
   Else
      ReadLevel=Clng(ReadLevel)
   End if
   If Stars="" Then
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>请选择文章评分等级！</li>"
   Else
      Stars=Clng(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 SkinID="" Then
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>请选择配色风格！</li>"   
   Else
      SkinID=Clng(SkinID)
   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
   If ShowCommentLink="Yes" Then
      ShowCommentLink=True
   Else
      ShowCommentLink=False
   End If
End If
If FoundErr<>True Then
   SqlItem="Select * from Item 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 IncludePicYn="yes" Then
         RsItem("IncludePicYn")=-1
      Else
         RsItem("IncludePicYn")=0
      End If
      If DefaultPicYn="yes" Then
         RsItem("DefaultPicYn")=-1
      Else
         RsItem("DefaultPicYn")=0
      End If
      If OnTop="yes" Then
         RsItem("OnTop")=-1
      Else
         RsItem("OnTop")=0
      End If
      If Elite="yes" Then
         RsItem("Elite")=-1
      Else
         RsItem("Elite")=0
      End If
      If Hot="yes" Then
         RsItem("Hot")=-1
      Else
         RsItem("Hot")=0
      End If
      RsItem("SkinID")=SkinID
      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 Passed="yes" Then
         RsItem("Passed")=-1
      Else
         RsItem("Passed")=0
      End If
      If SaveFiles="yes" Then
         RsItem("SaveFiles")=-1
      Else
         RsItem("SaveFiles")=0
      End If
      If CollecOrder="yes" Then
         RsItem("CollecOrder")=-1
      Else
         RsItem("CollecOrder")=0
      End If
      If LinkUrlYn="yes" Then
         RsItem("LinkUrlYn")=-1
      Else
         RsItem("LinkUrlYn")=0
      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("ShowCommentLink")=ShowCommentLink
      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 WriteErrMsg(ErrMsg)
Else
   Call WriteSucced(ErrMsg)
End If
'关闭数据库链接
Call CloseConn()
Call CloseConnItem()
%>