📄 admin_itemaddnew5.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<div id="topmomo">
	长篇采集系统项目管理</div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
	<tr align="center">
		<td height="30"><a href="Admin_ItemManage.asp">管理首页</a> &gt;&gt;
		<a href="Admin_ItemAddNew.asp">添加项目</a> &gt;&gt;
		<a href="Admin_ItemModify.asp?ItemID=<%=ItemID%>">基本设置</a> &gt;&gt;
		<a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">资料页设置</a> &gt;&gt;
		<a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">目录页设置</a> &gt;&gt;
		<a href="Admin_ItemModify4.asp?ItemID=<%=ItemID%>">分卷/章节页设置</a> &gt;&gt;
		<font color="red">章节采样测试</font> &gt;&gt; 其他设置 &gt;&gt; 完成</td>
	</tr>
</table>
<%
Dim ItemID
Dim Rs,Sql,FoundErr,ErrMsg
Dim UrlTest,TsString,ToString,CsString,CoString

ItemID=Trim(Request.Form("ItemID"))
readType=Trim(Request.Form("readType"))
UrlTest=Trim(Request.Form("UrlTest"))
if UrlTest="" or UrlTest=null then
Call WriteErrMsg("<br><li>您需要选择一个测试分卷/章节！</li>")
Response.end
end if

Select Case readType
	Case "0"
		Call viewset()
	Case "1"
		Call cookset()
	Case "2"
		Call cookse()
end select

Sub viewset()

VsString=Request.Form("VsString")
VoString=Request.Form("VoString")
TitleTypes=Trim(Request.Form("TitleTypes"))
TsType=Trim(Request.Form("TsType"))
ToType=Trim(Request.Form("ToType"))
TsString=Request.Form("TsString")
ToString=Request.Form("ToString")
TitleType1=Trim(Request.Form("TitleType1"))
TsType1=Trim(Request.Form("TsType1"))
ToType1=Trim(Request.Form("ToType1"))
TsString1=Request.Form("TsString1")
ToString1=Request.Form("ToString1")

CsType=Trim(Request.Form("CsType"))
CoType=Trim(Request.Form("Cotype"))
CsString=Request.Form("CsString")
CoString=Request.Form("CoString")
ContType1=Trim(Request.Form("ContType1"))
CsType1=Trim(Request.Form("CsType1"))
CoType1=Trim(Request.Form("Cotype1"))
CsString1=Request.Form("CsString1")
CoString1=Request.Form("CoString1")
ContType2=Trim(Request.Form("ContType2"))
CsType2=Trim(Request.Form("CsType2"))
CoType2=Trim(Request.Form("Cotype2"))
CsString2=Request.Form("CsString2")
CoString2=Request.Form("CoString2")

cookType=Trim(Request.Form("cookType"))
cookStr=Request.Form("cookStr")
costype=Trim(Request.Form("costype"))
cootype=Trim(Request.Form("cootype"))
cosString=Request.Form("cosString")
cooString=Request.Form("cooString")
cookType1=Trim(Request.Form("cookType1"))
costype1=Trim(Request.Form("costype1"))
cootype1=Trim(Request.Form("cootype1"))
cosString1=Request.Form("cosString1")
cooString1=Request.Form("cooString1")

JDTHType1=Trim(Request.Form("JDTHType1"))
JDTHType2=Trim(Request.Form("JDTHType2"))
JDTHType3=Trim(Request.Form("JDTHType3"))
JDTH1sStr=Request.Form("JDTH1sStr")
JDTH1oStr=Request.Form("JDTH1oStr")
JDTH2sStr=Request.Form("JDTH2sStr")
JDTH2oStr=Request.Form("JDTH2oStr")
JDTH3sStr=Request.Form("JDTH3sStr")
JDTH3oStr=Request.Form("JDTH3oStr")

	
If ItemID="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
   ItemID=Clng(ItemID)
End If
If UrlTest="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数错误，数据传递时发生错误</li>"
Else
   NewsUrl=UrlTest
End If

If VsString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>章节页面开始标记不能为空</li>"
End If
If VoString="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>章节页面结束标记不能为空</li>" 
End If

If CsString="" or CsType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文开始标记不能为空</li>"
End If
If CoString="" or CoType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>正文结束标记不能为空</li>" 
End If
If ContType1="" then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否修正章节正文</li>" 
Else
   ContType1=Clng(ContType1)
   If ContType1=1 Then
      If CsString1="" or CoString1="" or CsType1="" or CoType1="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将章节正文修正的开始/结束标记填写完整</li>"
      End If
   ElseIf ContType1=0 Then
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>ContType1参数错误，请从有效链接进入</li>"
   End If
End If
If ContType2="" then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择获取到的正文类型</li>" 
Else
   ContType2=Clng(ContType2)
   If ContType2=2 Then
      If CsString2="" or CoString2="" or CsType2="" or CoType2="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将TXT文件中正文的开始/结束标记填写完整</li>"
      End If
   ElseIf ContType2=3 Then
   ElseIf ContType2=1 Then
   ElseIf ContType2=0 Then
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>正文类型参数错误，请从有效链接进入</li>"
   End If
End If

If cookType="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请设置分卷标题</li>" 
Else
   cookType=Clng(cookType)
   If cookType=0 Then
   ElseIf cookType=1 Then
      If cosString="" or cooString="" or cosType="" or cooType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将分卷标题的开始/结束标记填写完整！</li>" 
      Else
         If cookType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正分卷标题</li>" 
         Else
            cookType1=Clng(cookType1)
            If cookType1=1 Then
               If cosString1="" or cooString1="" or cosType1="" or cooType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将分卷标题修正的开始/结束标记填写完整</li>"
               End If
            ElseIf cookType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>cookType1参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
   ElseIf cookType=2 Then
      If cookStr="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请指定分卷标题</li>" 
      End If
   Else
      FoundErr=True
      ErrMsg=ErrMsg & "<br><li>分卷标题<参数错误，请从有效链接进入</li>" 
   End If 
End If

If TitleTypes=0 Then
      If TsString="" or ToString="" or TsType="" or ToType="" Then
         FoundErr=True
         ErrMsg=ErrMsg & "<br><li>请将章节标题的开始/结束标记填写完整</li>" 
      Else
         If TitleType1="" Then
            FoundErr=True
            ErrMsg=ErrMsg & "<br><li>请选择是否修正章节标题</li>" 
         Else
            TitleType1=Clng(TitleType1)
            If TitleType1=1 Then
               If TsString1="" or ToString1="" or TsType1="" or ToType1="" Then
                  FoundErr=True
                  ErrMsg=ErrMsg & "<br><li>请将章节标题修正的开始/结束标记填写完整</li>"
               End If
            ElseIf TitleType1=0 Then
            Else
               FoundErr=True
               ErrMsg=ErrMsg & "<br><li>TitleType1参数错误，请从有效链接进入</li>"
            End If
         End If
      End If
End If


If JDTHType1="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType1=1 then
	If JDTH1sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType1=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If JDTHType2="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType2=1 then
	If JDTH2sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType2=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
	
If JDTHType3="" Then
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>请选择是否替换章节内容一</li>"
ElseIf JDTHType3=1 then
	If JDTH3sStr="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>第一个原文内容不能为空</li>"
	End If
ElseIf JDTHType3=0 then
Else
   FoundErr=True
   ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If

If FoundErr<>True Then
   Sql="Select * from Item Where ItemID=" & ItemID
   Set Rs=server.CreateObject("adodb.recordset")
   Rs.Open Sql,ConnItem,2,3

   Rs("VsString")=VsString
   Rs("VoString")=VoString

If TitleTypes=0 Then
   Rs("TsType")=TsType
   Rs("ToType")=ToType
   Rs("TsString")=TsString
   Rs("ToString")=ToString
   Rs("TitleType1")=TitleType1
IF TitleType1=1 THEN
   Rs("TsType1")=TsType1
   Rs("ToType1")=ToType1
   Rs("TsString1")=TsString1
   Rs("ToString1")=ToString1
END IF
END IF

   Rs("CsType")=CsType
   Rs("CoType")=CoType
   Rs("CsString")=CsString
   Rs("CoString")=CoString
   Rs("ContType1")=ContType1
   Rs("ContType2")=ContType2
IF ContType1=1 THEN
   Rs("CsType1")=CsType1
   Rs("CoType1")=CoType1
   Rs("CsString1")=CsString1
   Rs("CoString1")=CoString1
END IF
IF ContType2=2 THEN
   Rs("CsType2")=CsType2
   Rs("CoType2")=CoType2
   Rs("CsString2")=CsString2
   Rs("CoString2")=CoString2
END IF


   Rs("CookType")=CookType
   Rs("CookType1")=CookType1
   If CookType=1 Then
      Rs("CosType")=CosType
      Rs("CooType")=CooType
      Rs("CosString")=CosString
      Rs("CooString")=CooString
   If CookType1=1 Then
      Rs("CosType1")=CosType1
      Rs("CooType1")=CooType1
      Rs("CosString1")=CosString1
      Rs("CooString1")=CooString1
   End If
   ElseIf CookType=2 Then
      Rs("CookStr")=CookStr
   End If

   Rs("JDTHType1")=JDTHType1

If JDTHType1=1 Then
	Rs("JDTH1sStr")=JDTH1sStr
	Rs("JDTH1oStr")=JDTH1oStr
End If

   Rs("JDTHType2")=JDTHType2
If JDTHType2=1 Then
	Rs("JDTH2sStr")=JDTH2sStr
	Rs("JDTH2oStr")=JDTH2oStr
End If

   Rs("JDTHType3")=JDTHType3
If JDTHType3=1 Then
	Rs("JDTH3sStr")=JDTH3sStr
	Rs("JDTH3oStr")=JDTH3oStr
End If

   Rs.UpDate
   EquivType=Rs("EquivType")
   Rs.Close
   Set Rs=Nothing
End If


If FoundErr<>True Then
   NewsCode=GetHttpPage(NewsUrl,EquivType)
   If NewsCode<>"$False$" Then
12 3 4 5 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -