📄 admin_itemmodify5.asp
字号:
<!-- #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> >>
<a href="Admin_ItemAddNew.asp">添加项目</a> >>
<a href="Admin_ItemModify.asp?ItemID=<%=ItemID%>">基本设置</a> >>
<a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">资料页设置</a> >>
<a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">目录页设置</a> >>
<a href="Admin_ItemModify4.asp?ItemID=<%=ItemID%>">分卷/章节页设置</a> >>
<a href="Admin_ItemModify5.asp?ItemID=<%=ItemID%>"><font color="red">章节采样测试</font></a>
>> <a href="Admin_ItemAttribute.asp?ItemID=<%=ItemID%>">其他设置</a> >> 完成</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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -