📄 admin_itemmodify3.asp
字号:
B_PsType=False
end if
if B_PoType=1 then
B_PoType=true
elseif B_PoType=0 then
B_PoType=False
end if
B_Pic=GetBody(ListCode,B_PsString,B_PoString,B_PsType,B_PoType)
If B_PicType1=1 Then
if B_PsType1=1 then
B_PsType1=true
elseif B_PsType1=0 then
B_PsType1=False
end if
if B_PoType1=1 then
B_PoType1=true
elseif B_PoType1=0 then
B_PoType1=False
end if
B_Pic=GetBody(B_Pic,B_PsString1,B_PoString1,B_PsType1,B_PoType1)
If B_PicType2=1 Then
B_Pic=B_PicStr2&B_Pic
end if
else
If B_PicType2=1 Then
B_Pic=B_PicStr2&B_Pic
Else
B_Pic=DefiniteUrl(B_Pic,ListUrl)
end if
End If
if Instr(b_pic,B_PicStr1)>0 then
b_pic="images/0.jpg"
end if
ElseIf B_PicType=2 Then
B_Pic=B_PicStr
End If
If B_InfoType=0 Then
if B_IsType=1 then
B_IsType=true
elseif B_IsType=0 then
B_IsType=False
end if
if B_IoType=1 then
B_IoType=true
elseif B_IoType=0 then
B_IoType=False
end if
B_Info=GetBody(ListCode,B_IsString,B_IoString,B_IsType,B_IoType)
If B_InfoType1=1 Then
if B_IsType1=1 then
B_IsType1=true
elseif B_IsType1=0 then
B_IsType1=False
end if
if B_IoType1=1 then
B_IoType1=true
elseif B_IoType1=0 then
B_IoType1=False
end if
B_Info=GetBody(B_Info,B_IsString1,B_IoString1,B_IsType1,B_IoType1)
End If
B_Info=GetTextFrHtml(B_Info)
ElseIf B_InfoType=2 Then
B_Info=B_InfoStr
End If
If B_KeyType=0 Then
if B_KsType=1 then
B_KsType=true
elseif B_KsType=0 then
B_KsType=False
end if
if B_KoType=1 then
B_KoType=true
elseif B_KoType=0 then
B_KoType=False
end if
B_Key=GetBody(ListCode,B_KsString,B_KoString,B_KsType,B_KoType)
If B_KeyType1=1 Then
if B_KsType1=1 then
B_KsType1=true
elseif B_KsType1=0 then
B_KsType1=False
end if
if B_KoType1=1 then
B_KoType1=true
elseif B_KoType1=0 then
B_KoType1=False
end if
B_Key=GetBody(B_Key,B_KsString1,B_KoString1,B_KsType1,B_KoType1)
End If
ElseIf B_KeyType=2 Then
B_Key=B_KeyStr
ElseIf B_KeyType=3 Then
B_Key=B_Name
End If
If B_TaiType=0 Then
if B_TsType=1 then
B_TsType=true
elseif B_TsType=0 then
B_TsType=False
end if
if B_ToType=1 then
B_ToType=true
elseif B_ToType=0 then
B_ToType=False
end if
B_Tai=GetBody(ListCode,B_TsString,B_ToString,B_TsType,B_ToType)
If B_TaiType1=1 Then
if B_TsType1=1 then
B_TsType1=true
elseif B_TsType1=0 then
B_TsType1=False
end if
if B_ToType1=1 then
B_ToType1=true
elseif B_ToType1=0 then
B_ToType1=False
end if
B_Tai=GetBody(B_Tai,B_TsString1,B_ToString1,B_TsType1,B_ToType1)
End If
if Instr(B_Tai,"转载")> 0 then book_stateID = 1
if Instr(B_Tai,"连载")> 0 then book_stateID = 2
if Instr(B_Tai,"出版")> 0 then book_stateID = 3
if Instr(B_Tai,"暂")> 0 then book_stateID = 4
if Instr(B_Tai,"止")> 0 then book_stateID = 5
if Instr(B_Tai,"封")> 0 then book_stateID = 5
if Instr(B_Tai,"完成")> 0 then book_stateID = 6
if Instr(B_Tai,"完")> 0 then book_stateID = 6
ElseIf B_TaiType=2 Then
book_stateID=B_TaiStr
End If
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误</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">
<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%>"><font color="red">目录页设置</font></a>
>> <a href="Admin_ItemModify4.asp?ItemID=<%=ItemID%>">分卷/章节页设置</a> >>
<a href="Admin_ItemModify5.asp?ItemID=<%=ItemID%>">章节采样测试</a> >>
<a href="Admin_ItemAttribute.asp?ItemID=<%=ItemID%>">其他设置</a> >> 完成</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
<tr align="center">
<td colspan="4" class="thead">项 目 管 理--资 料 页 采 集 测 试</td>
</tr>
<tr>
<td width="20%" align="right" class="alt2">分类名称： </td>
<td width="40%" class="alt1">
<input name="B_Lei" type="text" class="form" value="<%=B_Lei%>" size="20">
<a href="Admin_Itemclassdo.asp?info=list&ItemID=<%=ItemID%>" target="_blank">
<font color="red">映射分类到本地</font></a></td>
<td width="15%" align="right" class="alt2">作品状态： </td>
<td width="25%" class="alt1"><select name="B_Tai" class="form">
<option value="1" <%if book_stateid="1" then response.write(" selected") end if%>>
转载中...</option>
<option value="2" <%if book_stateid="2" then response.write(" selected") end if%>>
连载中...</option>
<option value="3" <%if book_stateid="3" then response.write(" selected") end if%>>
出版中...</option>
<option value="4" <%if book_stateid="4" then response.write(" selected") end if%>>
已暂停...</option>
<option value="5" <%if book_stateid="5" then response.write(" selected") end if%>>
已停止...</option>
<option value="6" <%if book_stateid="6" then response.write(" selected") end if%>>
已完成...</option>
</select></td>
</tr>
<tr>
<td width="20%" align="right" class="alt2">作品名称： </td>
<td width="40%" class="alt1">
<input name="N_Name" type="text" class="form" value="<%=B_Name%>" size="20"></td>
<td width="15%" align="right" class="alt2">作品作者： </td>
<td width="25%" class="alt1">
<input name="B_Author" value="<%=B_Author%>" type="text" size="20" class="form">
</td>
</tr>
<tr>
<td width="20%" align="right" class="alt2">封面图片： </td>
<td width="80%" class="alt1" colspan="3">
<input name="B_Pic" type="text" class="form" value="<%=B_Pic%>" size="50"></td>
</tr>
<tr>
<td width="20%" align="right" class="alt2">搜索关键字： </td>
<td width="80%" class="alt1" colspan="3">
<input name="B_Key" type="text" class="form" value="<%=B_Key%>" size="45">
</td>
</tr>
<tr>
<td width="20%" align="right" class="alt2">内容介绍：<br>
(不能超过1500字)<br>
</td>
<td width="80%" class="alt1" colspan="3">
<textarea name="B_Info" cols="55" rows="8" class="form"><%=B_Info%></textarea>
</td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder">
<tr>
<td height="22" colspan="2"></td>
</tr>
</table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
<form method="post" action="Admin_ItemModify4.asp" name="myform">
<tr>
<td colspan="4" align="center" class="thead">项 目 编 辑--目 录 页 设 置</td>
</tr>
<tr>
<td width="75%" align="right" colspan="3" class="alt2">作品目录页面测试地址：<br>
<input name="ListsUrl" type="text" size="60" maxlength="200" class="form" value="<%=ListsUrl%>"><br>
如果上述地址不正确请返回修改。</td>
<td width="25%" valign="top" class="alt1"> 测试作品ID/Url： <br>
<input name="ListStrUrl" type="text" size="30" maxlength="200" class="form" value="<%=ShowStrUrl%>"><br>
延续上页数据不必更改</td>
</tr>
<tr>
<td width="50%" align="center" colspan="2" class="alt2">作品目录页面开始标记：<br>
<textarea name="LsString" cols="30" rows="6" class="form"><%=LsString%></textarea><br>
</td>
<td width="50%" align="center" colspan="2" class="alt1">作品目录页面结束标记：<br>
<textarea name="LoString" cols="30" rows="6" class="form"><%=LoString%></textarea><br>
</td>
</tr>
<tr>
<td width="40%" align="right" class="alt3">我要从目录中获取：</td>
<td width="60%" colspan="3" class="alt3">
<input type="radio" value="0" name="readType" <%if readtype=0 then response.write "checked"%> onclick="read1.style.display='';read2.style.display='none';read3.style.display='none'" class="form">章节连接/ID
<input type="radio" value="1" name="readType" <%if readtype=1 then response.write "checked"%> onclick="read1.style.display='none';read2.style.display='';read3.style.display='none'" class="form">分卷连接/ID
<input type="radio" value="2" name="readType" <%if readtype=2 then response.write "checked"%> onclick="read1.style.display='none';read2.style.display='none';read3.style.display=''" class="form">分卷区块</td>
</tr>
<tr id="read1" style="display:<%if readType=1 or readType=2 then response.write "none"%>">
<td colspan="4">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
<tr>
<td width="50%" align="center" colspan="2" class="alt2">章节链接/章节ID开始标记：
<input type="radio" name="HsType" value="1" <%if hstype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="HsType" value="0" <%if hstype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="HsString" cols="30" rows="6" class="form"><%=HsString%></textarea><br>
避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
<td width="50%" align="center" colspan="2" class="alt1">章节链接/章节ID结束标记：
<input type="radio" name="HoType" value="1" <%if hotype=1 then response.write "checked"%> class="form">包含
<input type="radio" name="HoType" value="0" <%if hotype=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="HoString" cols="30" rows="6" class="form"><%=HoString%></textarea><br>
避免填写包含有“(”、“)”等的内容，容易引起程序错误。</td>
</tr>
<tr>
<td width="50%" align="center" class="alt3" colspan="2">是否需要修正章节链接/章节ID</td>
<td width="50%" class="alt3" colspan="2">
<input type="radio" value="0" name="HUrlType1" <%if hurltype1=0 then response.write "checked"%> class="form" onclick="listed1.style.display='none'">不需要
<input type="radio" value="1" name="HUrlType1" <%if hurltype1=1 then response.write "checked"%> class="form" onclick="listed1.style.display=''">需要
</td>
</tr>
<tr id="listed1" style="display:<%if HUrlType1=0 then response.write "none"%>">
<td width="50%" align="center" colspan="2" class="alt2">修正章节链接/章节ID开始标记：
<input type="radio" name="HsType1" value="1" <%if hstype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="HsType1" value="0" <%if hstype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="HsString1" cols="30" rows="6" class="form"><%=HsString1%></textarea></td>
<td width="50%" align="center" colspan="2" class="alt1">修正章节链接/章节ID结束标记：
<input type="radio" name="HoType1" value="1" <%if hotype1=1 then response.write "checked"%> class="form">包含
<input type="radio" name="HoType1" value="0" <%if hotype1=0 then response.write "checked"%> class="form">不包含<br>
<textarea name="HoString1" cols="30" rows="6" class="form"><%=HoString1%></textarea></td>
</tr>
<tr align="center">
<td height="22" colspan="4" height="25" align="center" class="alt1">
<b>获取后的内容如果为ID形式请在下面的处理类型中选择"重新定向"并按照要求正确填写.</b><br>
例如:起点中文网获取后为ID形式<br>
<b>获取后的内容如果为连接形式,则获取内容必须是以当前页面为基准的相对或绝对地址</b><br>
例如:世纪文学获取后为连接形式</td>
</tr>
<tr>
<td width="40%" align="right" class="alt2">章节链接/章节ID处理类型：</td>
<td width="60%" colspan="3" class="alt1">
<input type="radio" value="0" name="HttpUrlType" <%if httpurltype=0 then response.write "checked"%> onclick="HttpUrl1.style.display='none'" class="form">自动处理
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -