📄 admin_itemaddnew2.asp
字号:
elseif LPsType=0 then
LPsType=False
end if
if LPoType=1 then
LPoType=true
elseif LPoType=0 then
LPoType=False
end if
ListPaingNext=GetPaing(ListCode,LPsString,LPoString,LPsType,LPoType)
If ListPaingNext<>"$False$" Then
If LPUrlType=1 Then
ListPaingNext=Replace(ListPaingStr,"{$ID$}",ListPaingNext)
ElseIf LPUrlType=0 Then
ListPaingNext=DefiniteUrl(ListPaingNext,listedUrl)
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面下一页时出错。</li>"
End If
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在截取测试作品列表页面时出错。</li>"
End If
Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>在获取测试作品列表页面时出错。</li>"
End If
Else
If Islisted=2 and Islisted1=0 Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>当选择“仅按照URL列表”时只能选择“按照页面”获取。</li>"
End If
End If
End If
If FoundErr<>True Then
Sql ="select top 1 ItemID,WebName,WebUrl,EquivType,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,Islisted,Islisted1,listedUrl,ListPaingsString,ListPaingoString,listedsType,listedoType,listedsString,listedoString,listedType1,listedsType1,listedoType1,listedsString1,listedoString1,ListPaingType,LPsType,LPsString,LPoType,LPoString,LPUrlType,ListPaingStr,IsSaveFace,IsSaveFiles,ItemDemo,ShowType,InputerType,EditorType,Inputer,Editor,Itemfalst from [Item]"
Set Rs=server.CreateObject("adodb.recordset")
Rs.Open Sql,ConnItem,1,3
Rs.AddNew
Rs("WebName")=WebName
Rs("WebUrl")=WebUrl
Rs("EquivType")=EquivType
Rs("Islisted")=Islisted
If Islisted=0 or Islisted=2 Then
Rs("Islisted1")=Islisted1
If Islisted1=1 Then
Rs("listedUrl")=listedUrl
Rs("ListPaingsString")=ListPaingsString
Rs("ListPaingoString")=ListPaingoString
Rs("listedsType")=listedsType
Rs("listedoType")=listedoType
Rs("listedsString")=listedsString
Rs("listedoString")=listedoString
Rs("listedType1")=listedType1
If listedType1=1 Then
Rs("listedsType1")=listedsType1
Rs("listedoType1")=listedoType1
Rs("listedsString1")=listedsString1
Rs("listedoString1")=listedoString1
End If
Rs("ListPaingType")=ListPaingType
If ListPaingType=1 Then
Rs("LPsType")=LPsType
Rs("LPsString")=LPsString
Rs("LPoType")=LPoType
Rs("LPoString")=LPoString
Rs("LPUrlType")=LPUrlType
If LPUrlType=1 Then
Rs("ListPaingStr")=ListPaingStr
End If
End If
If ListPaingType=2 Then
Rs("ListPaingStr")=ListPaingStr2
End If
End If
End If
Rs("IsSaveFace")=IsSaveFace
Rs("IsSaveFiles")=IsSaveFiles
Rs("InputerType")=InputerType
Rs("ShowType")=ShowType
Rs("EditorType")=EditorType
Rs("Inputer")=Inputer
Rs("Editor")=Editor
If ItemDemo<>"" then
Rs("ItemDemo")=ItemDemo
End if
Rs("LoginType")=LoginType
If LoginType=1 Then
Rs("LoginUrl")=LoginUrl
Rs("LoginPostUrl")=LoginPostUrl
Rs("LoginUser")=LoginUser
Rs("LoginPass")=LoginPass
Rs("LoginFalse")=LoginFalse
End If
Rs("Itemfalst")=0
Rs.UpDate
ItemID=Rs("ItemID")
Rs.Close
Set Rs=Nothing
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> >> <font color="red">资料页设置</font>
>> 目录页设置 >> 分卷/章节页设置 >> 章节采样测试 >> 其他设置 >> 完成</td>
</tr>
</table>
<%If Islisted=0 or Islisted=2 then
if Islisted1=1 Then%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
<tr align="center">
<td align="center" class="thead">项 目 管 理--列 表 页 采 集 测 试</td>
</tr>
<tr>
<td height="22" class="alt2">以下是分析后所得到的作品Url/ID，请查看是否正确。<br>
<%For Testi=0 To Ubound(NewsArray)
Response.Write "" & NewsArray(Testi) & "<br>"
Next
%> <br></td>
</tr>
<%If ListPaingNext<>"" And ListPaingNext<>"$False$" Then%>
<tr>
<td height="22" class="alt3">
<%Response.Write "<br>下一页列表：<a href='" & ListPaingNext & "' target=_blank><font color=red>" & ListPaingNext & "</font></a>"%>
</td>
</tr>
</table>
<%End If
End If
End If%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="tborder" style="LINE-HEIGHT: 150%">
<form method="post" action="Admin_ItemAddNew3.asp" name="myform">
<tr align="center">
<td colspan="4" align="center" class="thead">添 加 新 项 目--资 料 页 设 置</td>
</tr>
<tr>
<td width=50% align=right class=alt2 colspan="2" valign="top"><b>作品资料页面地址：</b><br>
<input name="ShowStr" type="text" size="50" maxlength="200" class="form"><br>
填写作品资料页面的绝对地址，作品ID/Url使用 “{$Bl_id$}” （注意大小写）代替。<br>
例如：http://www.cmfu.com/showbook.asp?Bl_id=1<br>
填写：http://www.cmfu.com/showbook.asp?Bl_id={$Bl_id$}<br>
</td>
<td width="50%" valign="top" class=alt1 colspan="2"> <b>测试作品ID/Url：</b><br>
<input name="ShowStrUrl" type="text" size="30" maxlength="200" class="form" value="<%=ShowStrUrl%>"><br>
测试作品的作品ID号码（只能填写数字）。如：49632 <br>
测试作品的作品Url号码（可以填写字母、数字和其他字符）。如：1_1_1.html 等 <br></td>
</tr>
<tr>
<td width="50%" align="center" colspan="2" class=alt2>作品资料页面开始标记：<br>
<textarea name="SBsString" cols="30" rows="5" class="form"></textarea>
</td>
<td width="50%" align="center" colspan="2" class=alt1>作品资料页面结束标记：<br>
<textarea name="SBoString" cols="30" rows="5" class="form"></textarea>
</td>
</tr>
<tr>
<td width="30%" align="right" valign="top" class=alt2> <b>作品目录页面连接形式</b></td>
<td width="70%" colspan="3" valign="top" class=alt1>
<input type="radio" value="1" name="FolderType" checked onclick="Folder.style.display='none';Folder1.style.display=''" class="form">自定义
<input type="radio" value="0" name="FolderType" onclick="Folder.style.display='';Folder1.style.display='none'" class="form">从资料页获取
<input type="radio" value="2" name="FolderType" onclick="Folder.style.display='none';Folder1.style.display='none'" class="form">目录在资料页(与资料页连接相同)
</td>
</tr>
<tr id="Folder1" style="display:''">
<td width="30%" align="right" valign="top" class=alt2><b>作品目录页面地址：</b>
</td>
<td width="70%" colspan="3" valign="top" class=alt1><input name="ListStr" type="text" size="50" maxlength="200" class="form" value="<%=ListStr%>">
<br>填写作品目录页面的绝对地址，作品ID使用 “{$Bl_id$}” （注意大小写）代替。<br>
例如：http://www.cmfu.com/readbook.asp?Bl_id=1<br>
填写：http://www.cmfu.com/readbook.asp?Bl_id={$Bl_id$} </td>
</tr>
<tr id="Folder" style="display:none">
<td colspan="4" class=alt1>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#f0f0f0">
<tr>
<td width="50%" align="center">目录页面连接开始标记：
<input type="radio" name="B_readsType" value="1" class="form">包含
<input type="radio" name="B_readsType" value="0"checked class="form">不包含<br>
<textarea name="B_readsString" cols="30" rows="5" class="form"></textarea></td>
<td width="50%" align="center">目录页面连接结束标记：
<input type="radio" name="B_readoType" value="1" class="form">包含
<input type="radio" name="B_readoType" value="0" checked class="form">不包含<br>
<textarea name="B_readoString" cols="30" rows="5" class="form"></textarea></td>
</tr>
<tr>
<td width=50% align=right class=alt2><b>是否需要修正： </b></td>
<td width="50%">
<input type="radio" value="0" name="FolderType1" checked onclick="B_read.style.display='none'" class="form">不需要
<input type="radio" value="1" name="FolderType1" onclick="B_read.style.display=''" class="form">需要</td>
</tr>
<tr id="B_read" style="display:none">
<td width="50%" align="center">目录页面连接修正开始标记：
<input type="radio" name="B_readsType1" value="1" class="form">包含
<input type="radio" name="B_readsType1" value="0" checked class="form">不包含<br>
<textarea name="B_readsString1" cols="30" rows="5" class="form"></textarea></td>
<td width="50%" align="center">目录页面连接修正结束标记：
<input type="radio" name="B_readoType1" value="1" class="form">包含
<input type="radio" name="B_readoType1" value="0" checked class="form">不包含<br>
<textarea name="B_readoString1" cols="30" rows="5" class="form"></textarea></td>
</tr>
</table></td>
</tr>
<tr>
<td width=50% align=right class=alt2 colspan="2"><b>作品名称： </b></td>
<td colspan="2" class=alt1>
<input type="radio" value="0" name="B_NameType"checked onclick="B_Name1.style.display='';B_Name2.style.display='none'" class="form">设置参数
<input type="radio" value="2" name="B_NameType" onclick="B_Name1.style.display='none';B_Name2.style.display=''" class="form">指定名称</td>
</tr>
<tr id="B_Name2" style="display:none">
<td width="50%" align="center" colspan="2" class=alt2><font color="blue">请指定作品名称：</font></td>
<td width="50%" align="center" colspan="2" class=alt1>
<input name="B_NameStr" type="text" id="B_NameStr" class="form" size="30" value="">
</td>
</tr>
<tr id="B_Name1" style="display:">
<td colspan="4" class=alt1>
<div align="center">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
<tr>
<td width="50%" align="center">作品名称开始标记：
<input type="radio" name="B_NsType" value="1" class="form">包含
<input type="radio" name="B_NsType" value="0"checked class="form">不包含<br>
<textarea name="B_NsString" cols="30" rows="5" class="form"></textarea></td>
<td width="50%" align="center">作品名称结束标记：
<input type="radio" name="B_NoType" value="1" class="form">包含
<input type="radio" name="B_NoType" value="0" checked class="form">不包含<br>
<textarea name="B_NoString" cols="30" rows="5" class="form"></textarea></td>
</tr>
<tr>
<td width=50% align=right class=alt2><b>是否需要修正： </b></td>
<td width="50%" class=alt1>
<input type="radio" value="0" name="B_NameType1" checked onclick="B_Name3.style.display='none'" class="form">不需要
<input type="radio" value="1" name="B_NameType1" onclick="B_Name3.style.display=''" class="form">需要</td>
</tr>
<tr id="B_Name3" style="display:none">
<td width="50%" align="center">作品名称修正开始标记：
<input type="radio" name="B_NsType1" value="1" class="form">包含
<input type="radio" name="B_NsType1" value="0" checked class="form">不包含<br>
<textarea name="B_NsString1" cols="30" rows="5" class="form"></textarea></td>
<td width="50%" align="center">作品名称修正结束标记：
<input type="radio" name="B_NoType1" value="1" class="form">包含
<input type="radio" name="B_NoType1" value="0" checked class="form">不包含<br>
<textarea name="B_NoString1" cols="30" rows="5" class="form"></textarea></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width=50% align=right class=alt2 colspan="2"><b>作者名称： </b></td>
<td colspan="2" class=alt1>
<input type="radio" value="0" name="B_AuthorType" checked onclick="B_Author1.style.display='';B_Author2.style.display='none'" class="form">设置参数
<input type="radio" value="2" name="B_AuthorType" onclick="B_Author1.style.display='none';B_Author2.style.display=''" class="form">指定名称</td>
</tr>
<tr id="B_Author2" style="display:none">
<td width="50%" align="center" colspan="2" class=alt2><font color="blue">请指定作者名称：</font></td>
<td width="50%" align="center" colspan="2" class=alt1>
<input name="B_AuthorStr" type="text" id="B_AuthorStr" class="form" size="30" value="">
</td>
</tr>
<tr id="B_Author1" style="display:">
<td colspan="4" class=alt1>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0650D2" bordercolordark="#FFFFFF" bgcolor="#D9D9D9">
<tr>
<td width="50%" align="center">作者名称开始标记：
<input type="radio" name="B_AsType" value="1" class="form">包含
<input type="radio" name="B_AsType" value="0" checked class="form">不包含<br>
<textarea name="B_AsString" cols="30" rows="5" class="form"></textarea>
</td>
<td width="50%" align="center">作者名称结束标记：
<input type="radio" name="B_AoType" value="1" class="form">包含
<input type="radio" name="B_AoType" value="0" checked class="form">不包含<br>
<textarea name="B_AoString" cols="30" rows="5" class="form"></textarea>
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -