📄 admin_itemmodify4.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%>"><font color="red">分卷/章节页设置</font></a>
>> <a href="Admin_ItemModify5.asp?ItemID=<%=ItemID%>">章节采样测试</a> >>
<a href="Admin_ItemAttribute.asp?ItemID=<%=ItemID%>">其他设置</a> >> 完成</td>
</tr>
</table>
<%
Dim ItemID
Dim Rs,Sql,FoundErr,ErrMsg
Dim ListsUrl,ListStrUrl,LsString,LoString
Dim HsType,HoType,HsString,HoString,HttpUrlType,HttpUrlStr
Dim ListUrl,ListCode,NewsArrayCode,NewsArray,UrlTest,NewsCode
dim Testi
ItemID=Trim(Request("ItemID"))
ListsUrl=Request("ListsUrl")
ListStrUrl=Trim(Request("ListStrUrl"))
LsString=Request.Form("LsString")
LoString=Request.Form("LoString")
readType=Trim(Request.Form("readType"))
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>ItemID参数错误，请从有效链接进入</li>"
Else
ItemID=Clng(ItemID)
End If
If Listsurl="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>作品目录页面地址不能为空</li>"
End If
If ListStrUrl="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>测试作品ID不能为空</li>"
End If
If LsString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>作品目录页面开始标记不能为空</li>"
End If
If LoString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>作品目录页面结束标记不能为空</li>"
End If
If readType="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要从目录中获取的类型</li>"
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
response.End
end if
Select Case readType
Case "0"
Call viewset()
Case "1"
Call cookset()
Case "2"
Call cookse()
end select
Sub viewset()
HsType=Trim(Request.Form("HsType"))
HoType=Trim(Request.Form("HoType"))
HsString=Request.Form("HsString")
HoString=Request.Form("HoString")
HUrlType1=Request.Form("HUrlType1")
HsType1=Request.Form("HsType1")
HoType1=Request.Form("HoType1")
HsString1=Request.Form("HsString1")
HoString1=Request.Form("HoString1")
HttpUrlType=Trim(Request.Form("HttpUrlType"))
HttpUrlStr=Trim(Request.Form("HttpUrlStr"))
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")
If HsString="" or HsType="" or HoString="" or HoType="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>章节链接/章节ID开始/结束标记不能为空</li>"
End If
if HUrlType1="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要是否修正章节链接/章节ID</li>"
elseif HUrlType1=1 then
If HsString1="" or HsType1="" or HoString1="" or HoType1="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>修正章节链接/章节ID开始/结束标记不能为空</li>"
End If
elseif HUrlType1=0 then
else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
If HttpUrlType="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择链接处理类型</li>"
Else
HttpUrlType=Clng(HttpUrlType)
If HttpUrlType=1 Then
If HttpUrlStr="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不能为空</li>"
Else
If Len(HttpUrlStr)<10 Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不正确(10个字符以上)</li>"
End If
End If
End If
End If
If TitleTypes="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请设置章节标题类型</li>"
Else
TitleTypes=Clng(TitleTypes)
If TitleTypes=1 Then
If TsType="" or TsString="" or ToType="" or ToString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将章节标题的开始/结束标记填写完整</li>"
Else
if Titletype1="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择是否修正章节标题</li>"
elseif Titletype1=1 then
If TsType1="" or TsString1="" or ToType1="" or ToString1="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将修正章节标题的开始/结束标记填写完整</li>"
end if
end if
End If
ElseIf TitleTypes=0 Then
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>标题类型参数错误，请从有效链接进入</li>"
End If
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("ListStrUrl")=ListStrUrl
Rs("LsString")=LsString
Rs("LoString")=LoString
Rs("readType")=readType
Rs("HsType")=HsType
Rs("HoType")=HoType
Rs("HsString")=HsString
Rs("HoString")=HoString
Rs("HUrlType1")=HUrlType1
if HUrlType1=1 then
Rs("HsType1")=HsType1
Rs("HoType1")=HoType1
Rs("HsString1")=HsString1
Rs("HoString1")=HoString1
end if
Rs("HttpUrlType")=HttpUrlType
If HttpUrlType=1 Then
Rs("HttpUrlStr")=HttpUrlStr
End If
Rs("TitleTypes")=TitleTypes
if TitleTypes=1 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.UpDate
EquivType=Rs("EquivType")
VsString=Rs("VsString")
VoString=Rs("VoString")
TsType=Rs("TsType")
ToType=Rs("ToType")
TsString=Rs("TsString")
ToString=Rs("ToString")
TitleType1=Rs("TitleType1")
TsType1=Rs("TsType1")
ToType1=Rs("ToType1")
TsString1=Rs("TsString1")
ToString1=Rs("ToString1")
CsType=Rs("CsType")
CoType=Rs("CoType")
CsString=Rs("CsString")
CoString=Rs("CoString")
ContType1=Rs("ContType1")
CsType1=Rs("CsType1")
CoType1=Rs("CoType1")
CsString1=Rs("CsString1")
CoString1=Rs("CoString1")
ContType2=Rs("ContType2")
CsType2=Rs("CsType2")
CoType2=Rs("CoType2")
CsString2=Rs("CsString2")
CoString2=Rs("CoString2")
cookType=Rs("cookType")
cookStr=Rs("cookStr")
cosType=Rs("cosType")
cooType=Rs("cooType")
cosString=Rs("cosString")
cooString=Rs("cooString")
cookType1=Rs("cookType1")
cosType1=Rs("cosType1")
cooType1=Rs("cooType1")
cosString1=Rs("cosString1")
cooString1=Rs("cooString1")
JDTHType1=Rs("JDTHType1")
JDTH1sStr=Rs("JDTH1sStr")
JDTH1oStr=Rs("JDTH1oStr")
JDTHType2=Rs("JDTHType2")
JDTH2sStr=Rs("JDTH2sStr")
JDTH2oStr=Rs("JDTH2oStr")
JDTHType3=Rs("JDTHType3")
JDTH3sStr=Rs("JDTH3sStr")
JDTH3oStr=Rs("JDTH3oStr")
Rs.Close
Set Rs=Nothing
'----------------------------------------------------------------------------------------------------------
ListUrl=ListsUrl
ListCode=GetHttpPage(ListUrl,EquivType)
If ListCode<>"$False$" Then
'Response.Write ListCode
ListCode=GetBody(ListCode,LsString,LoString,True,True)
If ListCode<>"$False$" Then
if HsType=1 then
HsType=true
elseif HsType=0 then
HsType=False
end if
if HoType=1 then
HoType=true
elseif HoType=0 then
HoType=False
end if
NewsArrayCode=GetArray(ListCode,HsString,HoString,HsType,HoType)
If NewsArrayCode<>"$False$" Then
NewsArray=Split(NewsArrayCode,"$Array$")
For Testi=0 To Ubound(NewsArray)
If HUrlType1=1 Then
if HsType1=1 then
HsType1=true
elseif HsType1=0 then
HsType1=False
end if
if HoType1=1 then
HoType1=true
elseif HoType1=0 then
HoType1=False
end if
NewsArray(Testi)=GetBody(NewsArray(Testi),HsString1,HoString1,HsType1,HoType1)
If NewsArray(Testi)="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在修正章节连接/章节ID时出错。</li>"
End if
End if
If HttpUrlType=1 Then
NewsArray(Testi)=Replace(HttpUrlStr,"{$ID$}",NewsArray(Testi))
NewsArray(Testi)=Replace(NewsArray(Testi),"{$Bl_id$}",ListStrUrl)
Else
NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),ListUrl)
End If
Next
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取章节连接/章节ID时出错。</li>"
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -