gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/admin/cai/Admin_ItemAddNew4.asp
<!--#include file="inc/conn.asp"--> <!--#include file="inc/function.asp"--> <% Dim ItemID Dim RsItem,SqlItem,FoundErr,ErrMsg Dim ListStr,LsString,LoString Dim ListPaingType,LPsString,LPoString,ListPaingStr1,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3,HsString,HoString,HttpUrlType,HttpUrlStr,ChannelDir Dim ListUrl,ListCode,NewsArrayCode,NewsArray,UrlTest,NewsCode dim Testi ItemID=Trim(Request("ItemID")) HsString=Request.Form("HsString") HoString=Request.Form("HoString") HttpUrlType=Trim(Request.Form("HttpUrlType")) HttpUrlStr=Trim(Request.Form("HttpUrlStr")) If ItemID="" Then FoundErr=True ErrMsg=ErrMsg & "<br><li>参数错误,请从有效链接进入</li>" Else ItemID=Clng(ItemID) End If If HsString="" Then FoundErr=True ErrMsg=ErrMsg & "<br><li>链接开始标记不能为空</li>" End If If HoString="" Then FoundErr=True ErrMsg=ErrMsg & "<br><li>链接结束标记不能为空</li>" End If If HttpUrlType="" Then FoundErr=True ErrMsg=ErrMsg & "<br><li>请选择链接处理类型</li>" Else HttpUrlType=Clng(HttpUrlType) If HttpUrlType=1 Then If HttpUrlStr="" Then FoundErr=True ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不能为空</li>" Else If Len(HttpUrlStr)<15 Then FoundErr=True ErrMsg=ErrMsg & "<br><li>绝对链接字符设置不正确(15个字符以上)</li>" End If End If End If End If If FoundErr<>True Then SqlItem="Select * from Item Where ItemID=" & ItemID Set RsItem=server.CreateObject("adodb.recordset") RsItem.Open SqlItem,ConnItem,2,3 RsItem("HsString")=HsString RsItem("HoString")=HoString RsItem("HttpUrlType")=HttpUrlType If HttpUrlType=1 Then RsItem("HttpUrlStr")=HttpUrlStr End If ListStr=RsItem("ListStr") LsString=RsItem("LsString") LoString=RsItem("LoString") ListPaingType=RsItem("ListPaingType") LPsString=RsItem("LPsString") ListPaingStr1=RsItem("ListPaingStr1") ListPaingStr2=RsItem("ListPaingStr2") ListPaingID1=RsItem("ListPaingID1") ListPaingID2=RsItem("ListPaingID2") ListPaingStr3=RsItem("ListPaingStr3") ChannelDir=RsItem("ChannelDir") RsItem.UpDate RsItem.Close Set RsItem=Nothing Select Case ListPaingType Case 0,1 ListUrl=ListStr Case 2 ListUrl=Replace(ListPaingStr2,"{$ID}",CStr(ListPaingID1)) Case 3 If Instr(ListPaingStr3,"|")>0 Then ListUrl=Left(ListPaingStr3,Instr(ListPaingStr3,"|")-1) Else ListUrl=ListPaingStr3 End If End Select ListCode=GetHttpPage(ListUrl,ChannelDir) If ListCode<>"$False$" Then ListCode=GetBody(ListCode,LsString,LoString,False,False) If ListCode<>"$False$" Then NewsArrayCode=GetArray(ListCode,HsString,HoString,False,False) If NewsArrayCode<>"$False$" Then NewsArray=Split(NewsArrayCode,"$Array$") For Testi=0 To Ubound(NewsArray) If HttpUrlType=1 Then NewsArray(Testi)=Replace(HttpUrlStr,"{$ID}",NewsArray(Testi)) Else NewsArray(Testi)=DefiniteUrl(NewsArray(Testi),ListUrl) End If Next UrlTest=NewsArray(0) NewsCode=GetHttpPage(UrlTest,ChannelDir) Else FoundErr=True ErrMsg=ErrMsg & "<br><li>在获取链接列表时出错。</li>" End If Else FoundErr=True ErrMsg=ErrMsg & "<br><li>在截取列表时发生错误。</li>" End If Else FoundErr=True ErrMsg=ErrMsg & "<br><li>在获取:" & ListUrl & "网页源码时发生错误。</li>" End If End If If FoundErr=True Then Call WriteErrMsg(ErrMsg) Else Call Main() End If '关闭数据库链接 Call CloseConn() Call CloseConnItem() %> <%Sub Main()%> <html> <head> <title>采集系统</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="../images/Admin_css.css"> </head> <body> <table width="100%" border="0" align="center" cellpadding="3" cellspacing="2" class="admintable"> <tr> <td height="30" class="b1_1"><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%>">链接设置</a> >> <font color=red>正文设置</font> >> 采样测试 >> 属性设置 >> 完成</td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="admintable" > <tr> <td height="22" colspan="2" class="admintitle">添加新项目--列表新闻链接测试</td> </tr> <tr> <td height="22" colspan="2" class="b1_1">以下是分析后所得到的文章绝对链接地址,请查看是否正确。<br> <% For Testi=0 To Ubound(NewsArray) Response.Write "<a href='" & NewsArray(Testi) & "' target=_blank>" & NewsArray(Testi) & "</a><br>" Next %> <br> 下一步将抽取第一条文章进行测试,在填写以下标记时尽量不要使用第一条文章。</td> </tr> </table> <form method="post" action="Admin_ItemAddNew5.asp" name="form1"> <table width="100%" border="0" align="center" cellpadding="3" cellspacing="2" bgcolor="#FFFFFF" class="admintable" > <tr> <td height="22" colspan="2" class="admintitle">添加新项目--正文设置 </td> </tr> <tr> <td width="20%" class="b1_1" ><strong>标题开始标记:</strong> <p> </p><p> </p> <strong>标题结束标记:</strong></td> <td width="75%" class="b1_1"> <textarea name="TsString" cols="49" rows="7"></textarea><br> <textarea name="ToString" cols="49" rows="7"></textarea></td> </tr> <tr> <td width="20%" class="b1_1" ><strong>正文开始标记:</strong> <p> </p><p> </p> <strong>正文结束标记:</strong></td> <td width="75%" class="b1_1"> <textarea name="CsString" cols="49" rows="7"></textarea><br> <textarea name="CoString" cols="49" rows="7"></textarea></td> </tr> <tr> <td width="20%" class="b1_1" ><b>时<span lang="en-us"> </span>间<span lang="en-us"> </span>设<span lang="en-us"> </span>置:</b></td> <td width="75%" class="b1_1"> <input name="DateType" type="radio" class="noborder" onClick="Date1.style.display='none'" value="0" checked> 不作设置 <input name="DateType" type="radio" class="noborder" onClick="Date1.style.display=''" value="1"> 设置标签 </tr> <tr id="Date1" style="display:none"> <td width="20%" class="b1_1" ><strong><font color=blue>时间开始标记:</font></strong> <p> </p> <p> </p> <strong><font color=blue>时间结束标记:</font></strong></td> <td width="75%" class="b1_1"> <textarea name="DsString" cols="49" rows="7"></textarea><br> <textarea name="DoString" cols="49" rows="7"></textarea></td> </tr> <tr> <td width="20%" class="b1_1" ><b>作 者<span lang="en-us"> </span>设<span lang="en-us"> </span>置:</b></td> <td width="75%" class="b1_1"> <input name="AuthorType" type="radio" class="noborder" onClick="Author1.style.display='none';Author2.style.display='none'" value="0" checked> 不作设置 <input name="AuthorType" type="radio" class="noborder" onClick="Author1.style.display='';Author2.style.display='none'" value="1"> 设置标签 <input name="AuthorType" type="radio" class="noborder" onClick="Author1.style.display='none';Author2.style.display=''" value="2"> 指定作者</td> </tr> <tr id="Author1" style="display:none"> <td width="20%" class="b1_1" ><strong><font color=blue>作者开始标记:</font></strong> <p> </p> <p> </p> <strong><font color=blue>作者结束标记:</font></strong></td> <td width="75%" class="b1_1"> <textarea name="AsString" cols="49" rows="7"></textarea><br> <textarea name="AoString" cols="49" rows="7"></textarea></td> </tr> <tr id="Author2" style="display:none"> <td width="20%" class="b1_1" ><strong><font color=blue>请指定作者:</font></strong></td> <td width="75%" class="b1_1"> <input name="AuthorStr" type="text" id="AuthorStr" value=""> </td> </tr> <tr> <td width="20%" class="b1_1" ><b>来 源 设 置:</b></td> <td width="75%" class="b1_1"> <input name="CopyFromType" type="radio" class="noborder" onClick="CopyFrom1.style.display='none';CopyFrom2.style.display='none'" value="0" checked> 不作设置 <input name="CopyFromType" type="radio" class="noborder" onClick="CopyFrom1.style.display='';CopyFrom2.style.display='none'" value="1"> 设置标签 <input name="CopyFromType" type="radio" class="noborder" onClick="CopyFrom1.style.display='none';CopyFrom2.style.display=''" value="2"> 指定来源</td> </tr> <tr id="CopyFrom1" style="display:none"> <td width="20%" class="b1_1" ><strong><font color=blue>来源开始标记:</font></strong> <p> </p> <p> </p> <strong><font color=blue>来源结束标记:</font></strong></td> <td width="75%" class="b1_1"> <textarea name="FsString" cols="49" rows="7"></textarea><br> <textarea name="FoString" cols="49" rows="7"></textarea></td> </tr> <tr id="CopyFrom2" style="display:none"> <td width="20%" class="b1_1" ><strong><font color=blue>请指定来源:</font></strong></td> <td width="75%" class="b1_1"> <input name="CopyFromStr" type="text" id="CopyFromStr" value=""> </td> </tr> <tr> <td width="20%" class="b1_1" ><b>关键字词设置:</b></td> <td width="75%" class="b1_1"> <input name="KeyType" type="radio" class="noborder" onClick="Key1.style.display='none';Key2.style.display='none'" value="3" checked> 根据词库生成[对采集速度有影响] <input name="KeyType" type="radio" class="noborder" onClick="Key1.style.display='none';Key2.style.display='none'" value="0"> 标题生成 <input name="KeyType" type="radio" class="noborder" onClick="Key1.style.display='';Key2.style.display='none'" value="1"> 标签生成 <input name="KeyType" type="radio" class="noborder" onClick="Key1.style.display='none';Key2.style.display=''" value="2"> 自定义关键字</td> </tr> <tr id="Key1" style="display:none"> <td width="20%" class="b1_1" ><strong><font color=blue>关键词开始标记:</font></strong> <p> </p> <p> </p> <strong><font color=blue>关键词结束标记:</font></strong></td> <td width="75%" class="b1_1"> <textarea name="KsString" cols="49" rows="7"></textarea><br> <textarea name="KoString" cols="49" rows="7"></textarea></td> </tr> <tr id="Key2" style="display:none"> <td width="20%" class="b1_1" ><strong><font color=blue>请指定关键:</font></strong></td> <td width="75%" class="b1_1"> <input name="KeyStr" type="text" id="KeyStr" value=""> <span class="note">格式:关键字之间用<font color=red>|</font>分隔,如:文章|IT</span> </td> </tr> <tr> <td width="20%" class="b1_1"><strong>正文分页设置:</strong></td> <td width="75%" class="b1_1"> <input name="NewsPaingType" type="radio" class="noborder" onClick="NewsPaing1.style.display='none';NewsPaing12.style.display='none';NewsPaing13.style.display='none';NewsPaing2.style.display='none'" value="0" checked> 不作设置 <input name="NewsPaingType" type="radio" class="noborder" onClick="NewsPaing1.style.display='';NewsPaing12.style.display='';NewsPaing13.style.display='';NewsPaing2.style.display='none'" value="1"> 设置标签 <input name="NewsPaingType" type="radio" class="noborder" onClick="NewsPaing1.style.display='none';NewsPaing12.style.display='none';NewsPaing13.style.display='none';NewsPaing2.style.display=''" value="2"> 智能设置 </td> </tr> <tr id="NewsPaing1" style="display:none"> <td width="20%" class="b1_1"><strong><font color=blue>下页开始标记:</font></strong> <p> </p><p> </p> <strong><font color=blue>下页结束标记:</font></strong></td> <td width="75%" class="b1_1"> <textarea name="NPsString" cols="49" rows="7"></textarea><br> <textarea name="NPoString" cols="49" rows="7"></textarea></td> </tr> <tr id="NewsPaing12" style="display:none"> <td width="20%" class="b1_1"><b><font color="#0000FF">分页绝对链接:</font></b></td> <td width="75%" class="b1_1"> <input name="NewsPaingStr" type="text" size="58"><br> 格式:http://www.laoy8.net/Article_Show.asp?ID=1&Page={$ID} </tr> <tr id="NewsPaing13" style="display:'none'"> <td width="20%" class="b1_1"><b><font color="#0000FF">分页链接字符:</font></b></td> <td width="75%" class="b1_1"> <input name="NewsPaingHtml" type="text" size="58" value=""></td> </tr> <tr id="NewsPaing2" style="display:none"> <td width="20%" class="b1_1"><strong><font color=blue>智 能 设 置:</font></strong></td> <td width="75%" class="b1_1"> <input name="NewsPaingStr2" type="text" value="预留功能" size="51"> </td> </tr> <tr> <td colspan="2" align="center" class="b1_1"><br> <input name="ItemID" type="hidden" value="<%=ItemID%>"> <input type="button" name="button1" value="上 一 步" onClick="window.location.href='javascript:history.go(-1)'" > <input type="submit" name="Submit" value="下 一 步"> <input name="ChannelDir" type="hidden" id="ChannelDir" value="<%=ChannelDir%>"></td> <input type="hidden" name="UrlTest" id="UrlTest" value="<%=UrlTest%>"> </tr> </table> </form> <!--#include file="../Admin_Copy.asp"--> </body> </html> <%End Sub%>