📄 admin_itemaddnew4.asp
字号:
<input type="radio" name="CoType" value="1" class="form">包含
<input type="radio" name="CoType" value="0" checked class="form">不包含<br>
<textarea name="CoString" cols="30" rows="6" class="form"></textarea><br>
避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
</tr>
<tr>
<td width="50%" align="center" class="alt3">是否需要修正：
</td>
<td width="50%" class="alt3">
<input type="radio" value="0" name="ContType1" checked class="form" onclick="Cont1.style.display='none'">不需要
<input type="radio" value="1" name="ContType1" class="form" onclick="Cont1.style.display=''">需要
</td>
</tr>
<tr id="Cont1" style="display:none">
<td width="50%" align="center" class="alt3">修正正文开始标记：
<input type="radio" name="CsType1" value="1" class="form">包含
<input type="radio" name="CsType1" value="0" checked class="form">不包含<br>
<textarea name="CsString1" cols="30" rows="6" class="form"></textarea></td>
<td width="50%" align="center" class="alt3">修正正文结束标记：
<input type="radio" name="CoType1" value="1" class="form">包含
<input type="radio" name="CoType1" value="0" checked class="form">不包含<br>
<textarea name="CoString1" cols="30" rows="6" class="form"></textarea></td>
</tr>
<tr>
<td width="50%" align="center" class="alt3">获取到的正文类型：
</td>
<td width="50%" class="alt3">
<input type="radio" value="0" name="ContType2" checked class="form" onclick="Cont2.style.display='none'">纯文字
<input type="radio" value="1" name="ContType2" class="form" onclick="Cont2.style.display='none'">图文混排
<input type="radio" value="2" name="ContType2" class="form" onclick="Cont2.style.display=''">TXT
文件
<input type="radio" value="3" name="ContType2" class="form" onclick="Cont2.style.display='none'">单张图片
</td>
</tr>
<tr id="Cont2" style="display:none">
<td width="50%" align="center" class="alt2">TXT文件中正文开始标记：
<input type="radio" name="CsType2" value="1" class="form">包含
<input type="radio" name="CsType2" value="0" checked class="form">不包含<br>
<textarea name="CsString2" cols="30" rows="6" class="form"></textarea></td>
<td width="50%" align="center" class="alt1">TXT文件中正文结束标记：
<input type="radio" name="CoType2" value="1" class="form">包含
<input type="radio" name="CoType2" value="0" checked class="form">不包含<br>
<textarea name="CoString2" cols="30" rows="6" class="form"></textarea></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="4" align="center" class="alt3">
<input type="button" name="button1" value="上 一 步" onclick="window.location.href='javascript:history.go(-1)'" class="button">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<input name="readType" type="hidden" value="<%=readType%>">
<input type="submit" name="Submit" value="下 一 步" class="button"></td>
<input type="hidden" name="UrlTest" value="<%=UrlTest%>">
<input type="hidden" name="TitleTest" value="<%=TitleTest%>">
</tr>
</table>
</form>
<%end if
end sub
Sub cookse()
cooksString=Request.Form("cooksString")
cookTypes=Request.Form("cookTypes2")
Costype=Request.Form("Costype2")
Cootype=Request.Form("Cootype2")
CosString=Request.Form("CosString2")
CooString=Request.Form("CooString2")
CookType1=Request.Form("CookType3")
Costype1=Request.Form("Costype3")
Cootype1=Request.Form("Cootype3")
CosString1=Request.Form("CosString3")
CooString1=Request.Form("CooString3")
HsType=Request.Form("HsType2")
HoType=Request.Form("HoType2")
HsString=Request.Form("HsString2")
HoString=Request.Form("HoString2")
HUrlType1=Request.Form("HUrlType3")
HsType1=Request.Form("HsType3")
HoType1=Request.Form("HoType3")
HsString1=Request.Form("HsString3")
HoString1=Request.Form("HoString3")
HttpUrlType=Request.Form("HttpUrlType2")
HttpUrlStr=Request.Form("HttpUrlStr2")
TitleTypes=Request.Form("TitleTypes2")
TsType=Request.Form("TsType2")
ToType=Request.Form("ToType2")
TsString=Request.Form("TsString2")
ToString=Request.Form("ToString2")
TitleType1=Request.Form("TitleType3")
TsType1=Request.Form("TsType3")
ToType1=Request.Form("ToType3")
TsString1=Request.Form("TsString3")
ToString1=Request.Form("ToString3")
if cooksString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将分卷区块分割标记填写完整</li>"
End if
If cookTypes="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请设置分卷标题类型</li>"
Else
cookTypes=Clng(cookTypes)
If cookTypes=1 Then
If cosType="" or cooType="" or cosString="" or cooString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将分卷标题的开始/结束标记填写完整</li>"
Else
if cooktype1="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择是否修正分卷标题</li>"
elseif cooktype1=1 then
If cosType1="" or cosString1="" or cooType1="" or cooString1="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请将修正分卷标题的开始/结束标记填写完整</li>"
end if
elseif cooktype1=0 then
else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数传递错误</li>"
End If
End If
ElseIf cookTypes=0 Then
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>分卷标题类型参数错误，请从有效链接进入</li>"
End If
End If
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("cooksString")=cooksString
Rs("cookTypes")=cookTypes
if cookTypes=1 then
Rs("cosType")=cosType
Rs("cooType")=cooType
Rs("cosString")=cosString
Rs("cooString")=cooString
Rs("cooktype1")=cooktype1
if cooktype1=1 then
Rs("cosType1")=cosType1
Rs("cooType1")=cooType1
Rs("cosString1")=cosString1
Rs("cooString1")=cooString1
end if
End if
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")
Rs.Close
Set Rs=Nothing
'--------------------------------------------------------------------------------------------------------
ListUrl=ListsUrl
readCode=GetHttpPage(ListUrl,EquivType)
If readCode<>"$False$" Then
readCode=GetBody(readCode,LsString,LoString,True,True)
If readCode<>"$False$" Then
If Instr(readCode,cooksString)>0 then
cooksArray=Split(readCode,cooksString)
okfile="共截取到"&Ubound(cooksArray)&"个分卷<br>"
For cooki=1 To Ubound(cooksArray)
ListCode=cooksArray(cooki)
if cookTypes=1 then
if cosType=1 then
cosType=true
elseif cosType=0 then
cosType=False
end if
if cooType=1 then
cooType=true
elseif cooType=0 then
cooType=False
end if
cookCode=GetBody(ListCode,cosString,cooString,cosType,cooType)
if cookCode<>"$False$" Then
If cookType1=1 Then
if cosType1=1 then
cosType1=true
elseif cosType1=0 then
cosType1=False
end if
if cooType1=1 then
cooType1=true
elseif cooType1=0 then
cooType1=False
end if
cookCode=GetBody(cookCode,cosString1,cooString1,cosType1,cooType1)
If cookCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在修正分卷标题时出错。</li>"
End if
End if
okfile=okfile&"分卷"&cooki&"："&cookCode&"<br>"
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取分卷标题时出错。</li>"
End If
end if
if TitleTypes=1 then
if TsType=1 then
TsType=true
elseif TsType=0 then
TsType=False
end if
if ToType=1 then
ToType=true
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -