📄 admin_itemaddnew5.asp
字号:
Else
if CsType=1 then
CsType=true
elseif CsType=0 then
CsType=False
end if
if CoType=1 then
CoType=true
elseif CoType=0 then
CoType=False
end if
Content=GetBody(NewsCode,CsString,CoString,CsType,CoType)
If ContType1=1 Then
if CsType1=1 then
CsType1=true
elseif CsType1=0 then
CsType1=False
end if
if CoType1=1 then
CoType1=true
elseif CoType1=0 then
CoType1=False
end if
Content=GetBody(Content,CsString1,CoString1,CsType1,CoType1)
End If
If Content="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：" & NewsUrl & "</li>"
Else
If ContType2=2 Then
Content=DefiniteUrl(Content,NewsUrl)
if CsType2=1 then
CsType2=true
elseif CsType2=0 then
CsType2=False
end if
if CoType2=1 then
CoType2=true
elseif CoType2=0 then
CoType2=False
end if
ViewUrl=Content
ContentCode=GetHttpPage(ViewUrl,EquivType)
Content=GetBody(ContentCode,CsString2,CoString2,CsType2,CoType2)
If Content="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取正文的时候发生错误：" & ViewUrl & "</li>"
End If
End If
If JDTHType1=1 Then
Content=Replace(Content,JDTH1sStr,JDTH1oStr)
End If
If JDTHType2=1 Then
Content=Replace(Content,JDTH2sStr,JDTH2oStr)
End If
If JDTHType3=1 Then
Content=Replace(Content,JDTH3sStr,JDTH3oStr)
End If
End If
If cookType=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
cook=GetBody(NewsCode,cosString,cooString,cosType,cooType)
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
cook=GetBody(cook,cosString1,cooString1,cosType1,cooType1)
end if
ElseIf cookType=2 Then
cook=cookStr
ElseIf cookType=0 Then
cook="正文"
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>分卷标题类型参数错误，请从有效链接进入</li>"
End If
If cook="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取分卷标题的时候发生错误：" & NewsUrl & "</li>"
End If
If TitleTypes=0 Then
if TsType=1 then
TsType=true
elseif TsType=0 then
TsType=False
end if
if ToType=1 then
ToType=true
elseif ToType=0 then
ToType=False
end if
Title=GetBody(NewsCode,TsString,ToString,TsType,ToType)
If TitleType1=1 Then
if TsType1=1 then
TsType1=true
elseif TsType1=0 then
TsType1=False
end if
if ToType1=1 then
ToType1=true
elseif ToType1=0 then
ToType1=False
end if
Title=GetBody(Title,TsString1,ToString1,TsType1,ToType1)
end if
If Title="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取标题的时候发生错误：" & NewsUrl & "</li>"
End If
Elseif TitleTypes=1 Then
Title=TitleTest
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>标题参数错误，请从有效链接进入</li>"
End If
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取源码时发生错误："& NewsUrl &"</li>"
End If
End If
End If
If FoundErr=True Then
Call WriteErrMsg(ErrMsg)
Else
%><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
<tr align="center">
<td colspan="2" align="center" class="thead">项 目 管 理--采 样 测 试</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" style="LINE-HEIGHT: 150%">
<tr align="center" class="tdbg">
<td height="40" colspan="2" valign="bottom"><span lang="zh-cn">
<font size="5"><%=Title%></span></font></td>
</tr>
<tr align="center" class="tdbg">
<td colspan="2">分卷名称：<%=cook%></td>
</tr>
<tr class="tdbg">
<td colspan="2">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td height="200" valign="top">
<p><span lang="zh-cn"><%=Content%></span></p>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border" style="LINE-HEIGHT: 150%">
<form method="post" action="Admin_ItemAddNew6.asp" name="form1">
<tr id="NewsPaing2">
<td width="40%" align="right" class="alt2"><font color="blue">章节内容高级替换：</font></td>
<td colspan=3 width="60%" class="alt1">
<input type="radio" value="1" name="GJTHType1" class="form" onclick="GJTH1.style.display=''"><font color="blue">启用</font>第一个
<input type="radio" value="1" name="GJTHType2" class="form" onclick="GJTH2.style.display=''"><font color="blue">启用</font>第二个
<input type="radio" value="1" name="GJTHType3" class="form" onclick="GJTH3.style.display=''"><font color="blue">启用</font>第三个<br>
<input type="radio" value="0" name="GJTHType1" class="form" checked onclick="GJTH1.style.display='none'">废除第一个
<input type="radio" value="0" name="GJTHType2" class="form" checked onclick="GJTH2.style.display='none'">废除第二个
<input type="radio" value="0" name="GJTHType3" class="form" checked onclick="GJTH3.style.display='none'">废除第三个</td>
</tr>
<tr id="GJTH1" style="display:none">
<td colspan=3 width=70% align="center" class="alt2">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH1sStr" cols="25" rows="5" class="form"></textarea>
<textarea name="GJTH1oStr" cols="25" rows="5" class="form"></textarea></td>
<td class="alt1" align="center">替换内容：<br>
<textarea name="GJTH1cStr" cols="35" rows="5" class="form"></textarea>
</td>
</tr>
<tr id="GJTH2" style="display:none">
<td colspan=3 width=70% align="center" class="alt2">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH2sStr" cols="25" rows="5" class="form"></textarea>
<textarea name="GJTH2oStr" cols="25" rows="5" class="form"></textarea></td>
<td class="alt1" align="center">替换内容：<br>
<textarea name="GJTH2cStr" cols="35" rows="5" class="form"></textarea>
</td>
</tr>
<tr id="GJTH3" style="display:none">
<td colspan=3 width=70% align="center" class="alt2">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH3sStr" cols="25" rows="5" class="form"></textarea>
<textarea name="GJTH3oStr" cols="25" rows="5" class="form"></textarea></td>
<td class="alt1" align="center">替换内容：<br>
<textarea name="GJTH3cStr" cols="35" rows="5" class="form"></textarea>
</td>
</tr>
<textarea name="Content" style="display:none"><%=Content%></textarea>
<tr>
<td colspan="4" align="center" class="alt3">
<input name="ItemID" type="hidden" value="<%=ItemID%>">
<input name="readType" type="hidden" value="<%=readType%>">
<input type="button" name="button1" value="上 一 步" onclick="window.location.href='javascript:history.go(-1)'" class="button">
<input type="submit" name="Submit" value="下 一 步" class="button"></td>
</tr>
</form>
</table>
<%End If
end sub
Sub cookset()
cooksString=Request.Form("cooksString")
cookoString=Request.Form("cookoString")
cookTypes=Trim(Request.Form("cookTypes"))
cookType=Trim(Request.Form("cookType"))
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")
readType1=Trim(Request.Form("readType1"))
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"))
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")
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 cooksString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>分卷页面开始标记不能为空</li>"
End If
If cooksString="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>分卷页面结束标记不能为空</li>"
End If
If cookTypes=0 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
End If
If readType1=0 Then
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>"
else
HUrlType1=Clng(HUrlType1)
If 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>HUrlType1参数错误，请从有效链接进入</li>"
End If
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
ElseIf readType1=1 Then
If TsString="" or ToString="" or TsType="" or ToType="" Then
FoundErr=True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -