📄 admin_itemaddnew3.asp
字号:
FoundErr=True
ErrMsg=ErrMsg & "<br><li>作品目录连接参数错误</li>"
End If
'----------------------------------------------------------------------------------------
If B_NameType=0 Then
if B_NsType=1 then
B_NsType=true
elseif B_NsType=0 then
B_NsType=False
end if
if B_NoType=1 then
B_NoType=true
elseif B_NoType=0 then
B_NoType=False
end if
B_Name=GetBody(ListCode,B_NsString,B_NoString,B_NsType,B_NoType)
If B_NameType1=1 Then
if B_NsType1=1 then
B_NsType1=true
elseif B_NsType1=0 then
B_NsType1=False
end if
if B_NoType1=1 then
B_NoType1=true
elseif B_NoType1=0 then
B_NoType1=False
end if
B_Name=GetBody(B_Name,B_NsString1,B_NoString1,B_NsType1,B_NoType1)
End If
B_Name=GetTextFromHtml(B_Name)
ElseIf B_NameType=2 Then
B_Name=B_NameStr
End If
If B_AuthorType=0 Then
if B_AsType=1 then
B_AsType=true
elseif B_AsType=0 then
B_AsType=False
end if
if B_AoType=1 then
B_AoType=true
elseif B_AoType=0 then
B_AoType=False
end if
B_Author=GetBody(ListCode,B_AsString,B_AoString,B_AsType,B_AoType)
If B_AuthorType1=1 Then
if B_AsType1=1 then
B_AsType1=true
elseif B_AsType1=0 then
B_AsType1=False
end if
if B_AoType1=1 then
B_AoType1=true
elseif B_AoType1=0 then
B_AoType1=False
end if
B_Author=GetBody(B_Author,B_AsString1,B_AoString1,B_AsType1,B_AoType1)
End If
B_Author=GetTextFromHtml(B_Author)
ElseIf B_AuthorType=2 Then
B_Author=B_AuthorStr
End If
If B_LeiType=0 Then
if B_LsType=1 then
B_LsType=true
elseif B_LsType=0 then
B_LsType=False
end if
if B_LoType=1 then
B_LoType=true
elseif B_LoType=0 then
B_LoType=False
end if
B_Lei=GetBody(ListCode,B_LsString,B_LoString,B_LsType,B_LoType)
If B_LeiType1=1 Then
if B_LsType1=1 then
B_LsType1=true
elseif B_LsType1=0 then
B_LsType1=False
end if
if B_LoType1=1 then
B_LoType1=true
elseif B_LoType1=0 then
B_LoType1=False
end if
B_Lei=GetBody(B_Lei,B_LsString1,B_LoString1,B_LsType1,B_LoType1)
End If
B_Lei=GetTextFromHtml(B_Lei)
ElseIf B_LeiType=2 Then
B_Lei=B_LeiStr
End If
If B_PicType=0 Then
if B_PsType=1 then
B_PsType=true
elseif B_PsType=0 then
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
%>
<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> >>
<font color="red">目录页设置</font> >> 分卷/章节页设置 >> 章节采样测试 >> 其他设置 >> 完成</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="30%" colspan="3" class="alt1">
<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="30%" colspan="3" class="alt1">
<input name="B_Key" type="text" class="form" value="<%=B_Key%>" size="45">
</td>
</tr>
<tr>
<td width="20%" align="right" class="alt2">内容介绍： (不能超过1500字)<br>
</td>
<td width="30%" colspan="3" class="alt1">
<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_ItemAddNew4.asp" name="myform">
<tr>
<td colspan="4" align="center" class="thead">添 加 新 项 目--目 录 页 设 置</td>
</tr>
<tr>
<td width="50%" 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="5" class="form"></textarea><br>
</td>
<td width="50%" align="center" colspan="2" class="alt1">作品目录页面结束标记：<br>
<textarea name="LoString" cols="30" rows="5" class="form"></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"checked onclick="read1.style.display='';read2.style.display='none';read3.style.display='none'" class="form">章节连接/ID
<input type="radio" value="1" name="readType" onclick="read1.style.display='none';read2.style.display='';read3.style.display='none'" class="form">分卷连接/ID
<input type="radio" value="2" name="readType" onclick="read1.style.display='none';read2.style.display='none';read3.style.display=''" class="form">分卷区块</td>
</tr>
<tr id="read1" style="display:">
<td colspan="4">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -