📄 admin_itemmodify.asp
字号:
<!-- #include file="../conn.asp" -->
<!--#include file="../inc/config.asp"-->
<!-- #include file="session.asp" --><%
Dim Rs,Sql,FoundErr,ErrMsg
Dim ItemID,WebName,WebUrl,ItemDemo,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,IsLocked,IsSaveFiles
Dim InputerType,EditorType,Inputer,Editor
ItemID=Trim(Request("ItemID"))
If ItemID="" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，数据未找到！</li>"
Else
ItemID=Clng(ItemID)
End If
If FoundErr<>True Then
Set Rs=Server.CreateObject("adodb.recordset")
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 from [Item] where ItemID=" & ItemID
Rs.Open Sql,ConnItem,1,1
If Rs.Eof And Rs.Bof Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数错误，数据未找到！</li>"
Else
WebName=Rs("WebName")
WebUrl=Rs("WebUrl")
EquivType=Rs("EquivType")
LoginType=Rs("LoginType")
LoginUrl=Rs("LoginUrl")
LoginPostUrl=Rs("LoginPostUrl")
LoginUser=Rs("LoginUser")
LoginPass=Rs("LoginPass")
LoginFalse=Rs("LoginFalse")
Islisted=Rs("Islisted")
Islisted1=Rs("Islisted1")
listedUrl=Rs("listedUrl")
ListPaingsString=Rs("ListPaingsString")
ListPaingoString=Rs("ListPaingoString")
listedsType=Rs("listedsType")
listedoType=Rs("listedoType")
listedsString=Rs("listedsString")
listedoString=Rs("listedoString")
listedType1=Rs("listedType1")
listedsType1=Rs("listedsType1")
listedoType1=Rs("listedoType1")
listedsString1=Rs("listedsString1")
listedoString1=Rs("listedoString1")
ListPaingType=Rs("ListPaingType")
LPsType=Rs("LPsType")
LPsString=Rs("LPsString")
LPoType=Rs("LPoType")
LPoString=Rs("LPoString")
LPUrlType=Rs("LPUrlType")
ListPaingStr=Rs("ListPaingStr")
IsSaveFace=Rs("IsSaveFace")
IsSaveFiles=Rs("IsSaveFiles")
ShowType=Rs("ShowType")
InputerType=Rs("InputerType")
EditorType=Rs("EditorType")
Inputer=Rs("Inputer")
Editor=Rs("Editor")
ItemDemo=Rs("ItemDemo")
End If
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">
<script language="JavaScript">
function checkWebUrl()
{
var WebName = document.myform.WebName;
var WebUrl = document.myform.WebUrl;
if (WebName.value && WebUrl.value) {
window.open("admin_checkWebUrl.asp?info=Itemadd&WebName="+WebName.value+"&WebUrl="+WebUrl.value,"_blank","top=50,left=80,height=500,width=550,status=no,toolbar=no,menubar=no,location=no")
}
else {
alert("CnEndWeb（终点）提醒：\n\n请先填写好网站名称、网站网址！");
WebName.focus();
}
}
</script>
</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%>"><font color="red">基本设置</font></a>
>> <a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">资料页设置</a> >>
<a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">目录页设置</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%">
<form method="post" action="Admin_ItemModify2.asp" name="myform">
<tr align="center">
<td colspan="2" align="center" class="thead">项 目 编 辑--基 本 设 置</td>
</tr>
<tr>
<td width=25% class=alt2 align="right">网站名称：</td>
<td class=alt1>
<input name="WebName" type="text" size="27" maxlength="30" class="form" value="<%=WebName%>"><br>
要采集网站名称</td>
</tr>
<tr>
<td width=25% class=alt2 align="right">网站网址：</td>
<td class=alt1>
<input name="WebUrl" type="text" size="30" maxlength="150" class="form" value="<%=WebUrl%>"> <a onclick="checkWebUrl();" style="cursor:hand" class="form"><font color="red">检验本地服务器与目标站是否通信良好?</font></a><br>
该网站的网址</td>
</tr>
<tr>
<td width=25% class=alt2 align="right" class="alt2">页面编码：</td>
<td class=alt1>
<input type="radio" value="gb2312" name="EquivType" <%if EquivType="gb2312" then response.write "checked"%> class="form">GB2312
<input type="radio" value="gbk" name="EquivType" <%if EquivType="gbk" then response.write "checked"%> class="form">GBK
<input type="radio" value="utf-8" name="EquivType" <%if EquivType="utf-8" then response.write "checked"%> class="form">UTF-8
</td>
</tr>
<tr>
<td width=25% class=alt2 align="right">网站登录：</td>
<td class=alt1>
<input type="radio" value="0" name="LoginType" <%if logintype=0 then response.write "checked"%> onclick="Login.style.display='none'" class="form">不需要登录
<input type="radio" value="1" name="LoginType" <%if logintype=1 then response.write "checked"%> onclick="Login.style.display=''" class="form">设置参数<br>
需要登录才能访问的请设置登录参数（不支持验证码登录）</td>
</tr>
<tr id="Login" style="display:<%if logintype=0 then response.write "none"%>">
<td width=25% class=alt2 align="right">登录参数：</td>
<td class=alt1>登录地址：<input name="LoginUrl" type="text" size="40" maxlength="150" class="form" value="<%=LoginUrl%>"><br>
登陆页面的网址<br>
<br>
提交地址：<input name="LoginPostUrl" type="text" size="40" maxlength="150" class="form" value="<%=LoginPostUrl%>"><br>
点击 登录 按钮后用来验证用户名、密码的文件网址<br>
<br>
用户参数：<input name="LoginUser" type="text" size="30" maxlength="150" class="form" value="<%=LoginUser%>"><br>
用户名：<input type="text" name="<font color="#FF0000">UserName</font>"
value=""><br>
用户参数就是--name=后面的"<font color="#FF0000">UserName</font>"+"="+"你的用户名"如
UserName=终点<br>
<br>
密码参数：<input name="LoginPass" type="text" size="30" maxlength="150" class="form" value="<%=LoginPass%>"><br>
密码：<input type="password" name="<font color="#FF0000">Password</font>"
value=""><br>
密码参数就是--name=后面的"<font color="#FF0000">Password</font>"+"="+"你的密码"如
Password=cnendweb<br>
<br>
失败信息：<input name="LoginFalse" type="text" size="30" maxlength="150" class="form" value="<%=LoginFalse%>"><br>
用户名或者密码不正确时，登录后的失败提示信息，用于判断登录是否成功的一个标志 <br>
请一定要填写，否则不能采集，比如：您输入的用户名或密码不正确，请重新输入！ </td>
</tr>
<tr>
<td width="20%" align="right" valign="top" class="alt2">作品<font color="#FF0000">资料页面</font>连接形式：</td>
<td class="alt1">
<input type="radio" value="0" <%if ShowType=0 then response.write "checked"%> onclick="Islisteds1.style.display='';Islisteds2.style.display='none';Islisteds3.style.display='';Islisteds4.style.display='';Islist1.style.display='none'" name="ShowType" class="form">纯ID形式或单级目录
<input type="radio" value="1" <%if ShowType=1 then response.write "checked"%> onclick="Islisteds1.style.display='none';Islisteds2.style.display='';Islisteds3.style.display='none';Islisteds4.style.display='';Islist1.style.display=''" name="ShowType" class="form">多极目录、无规律目录或者是无规则文件名等
<br>纯ID格式例如：http://www.cmfu.com/showbook.asp?Bl_id=1或http://www.XXX.com/HTML/1.shtml<br>
单级目录格式例如：http://www.XXX.com/htmpage/33397/33397.htm<br>
多极目录格式例如：http://www.cuiweiju.com/htmpage/333/33397/index.htm<br>
无规律目录格式例如：http://blog.cnread.net/cnread1/netwx/y/yiming/dzsf/index.html<br>
无规则文件名格式例如：http://www.xxsy.net/wx/1_1_14.html<br>
</td>
</tr>
<tr>
<td width=25% class=alt2 align="right">作品采集方式：</td>
<td class=alt1><div id="Islisteds1" style="display:<%if ShowType=1 then response.write "none"%>">
<input type="radio" value="0" name="Islisted" <%if Islisted=0 then response.write "checked"%> onclick="Islist.style.display=''" class="form">
可按照ID列表或ID范围
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -