📄 admin_itemmodify5.asp
字号:
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")
GJTHType1=Rs("GJTHType1")
GJTH1sStr=Rs("GJTH1sStr")
GJTH1oStr=Rs("GJTH1oStr")
GJTH1cStr=Rs("GJTH1cStr")
GJTHType2=Rs("GJTHType2")
GJTH2sStr=Rs("GJTH2sStr")
GJTH2oStr=Rs("GJTH2oStr")
GJTH2cStr=Rs("GJTH2cStr")
GJTHType3=Rs("GJTHType3")
GJTH3sStr=Rs("GJTH3sStr")
GJTH3oStr=Rs("GJTH3oStr")
GJTH3cStr=Rs("GJTH3cStr")
Rs.Close
Set Rs=Nothing
End If
If FoundErr<>True Then
NewsCode=GetHttpPage(NewsUrl,EquivType)
If NewsCode<>"$False$" Then
If NewsCode<>"$False$" Then
NewsCode=GetBody(NewsCode,VsString,VoString,True,True)
If NewsCode="$False$" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取:" & NewsUrl & "章节内容页时发生错误</li>"
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">项 目 管 理--章 节 采 样 测 试</font></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_ItemAttribute.asp" name="form0">
<tr id="NewsPaing2">
<td width="40%" align="right" class="alt2"><font color="blue">章节内容高级替换：</font></td>
<td width="60%" colspan=3 class="alt1">
<input type="radio" value="1" name="GJTHType1" <%if gjthtype1=1 then response.write "checked"%> class="form" onclick="GJTH1.style.display=''"><font color="blue">启用</font>第一个
<input type="radio" value="1" name="GJTHType2" <%if gjthtype2=1 then response.write "checked"%> class="form" onclick="GJTH2.style.display=''"><font color="blue">启用</font>第二个
<input type="radio" value="1" name="GJTHType3" <%if gjthtype3=1 then response.write "checked"%> class="form" onclick="GJTH3.style.display=''"><font color="blue">启用</font>第三个<br>
<input type="radio" value="0" name="GJTHType1" <%if gjthtype1=0 then response.write "checked"%> class="form" onclick="GJTH1.style.display='none'">废除第一个
<input type="radio" value="0" name="GJTHType2" <%if gjthtype2=0 then response.write "checked"%> class="form" onclick="GJTH2.style.display='none'">废除第二个
<input type="radio" value="0" name="GJTHType3" <%if gjthtype3=0 then response.write "checked"%> class="form" onclick="GJTH3.style.display='none'">废除第三个</td>
</tr>
<tr id="GJTH1" style="display:<%if GJTHType1=0 then response.write "none"%>">
<td width="60%" colspan=3 align="center" class="alt2">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH1sStr" cols="25" rows="5" class="form"><%=GJTH1sStr%></textarea>
<textarea name="GJTH1oStr" cols="25" rows="5" class="form"><%=GJTH1oStr%></textarea></td>
<td width="40%" align="center" class="alt1">替换内容：<br>
<textarea name="GJTH1cStr" cols="35" rows="5" class="form"><%=GJTH1cStr%></textarea>
</td>
</tr>
<tr id="GJTH2" style="display:<%if GJTHType2=0 then response.write "none"%>">
<td width="60%" colspan=3 align="center" class="alt2">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH2sStr" cols="25" rows="5" class="form"><%=GJTH2sStr%></textarea>
<textarea name="GJTH2oStr" cols="25" rows="5" class="form"><%=GJTH2oStr%></textarea></td>
<td align="center" class="alt1">替换内容：<br>
<textarea name="GJTH2cStr" cols="35" rows="5" class="form"><%=GJTH2cStr%></textarea>
</td>
</tr>
<tr id="GJTH3" style="display:<%if GJTHType3=0 then response.write "none"%>">
<td width="60%" colspan=3 align="center" class="alt2">原文内容开始标记： 原文内容结束标记：<br>
<textarea name="GJTH3sStr" cols="25" rows="5" class="form"><%=GJTH3sStr%></textarea>
<textarea name="GJTH3oStr" cols="25" rows="5" class="form"><%=GJTH3oStr%></textarea></td>
<td align="center" class="alt1">替换内容：<br>
<textarea name="GJTH3cStr" cols="35" rows="5" class="form"><%=GJTH3cStr%></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="hidden" name="UrlTest" value="<%=UrlTest%>">
<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)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -