📄 system_gathercompany.asp
字号:
If WR.CheckStr(Request.Form("LinkReset"), 1) = 0 Then
LinkReset = "0|"
Else
LinkReset = "1|"&WR.CheckStr(Request.Form("LinkResetUrl"), 0)
End If
Call ConnOpen()
If Ucase(Request("Save")) <> "NO" Then
If WR.CheckStr(Request.Form("LinkReset"), 1) = 1 and WR.CheckStr(Request.Form("LinkResetUrl"), 0) = "" Then Call WRMPS.ErrView("·你选择了重新链接位置，请做好相关设置", 0)
Set Grs = Gconn.Execute("Update WR_Item Set WR_ListBegin='"&ListBegin&"',WR_ListEnd='"&ListEnd&"',WR_LinkBegin='"&LinkBegin&"',WR_LinkEnd='"&LinkEnd&"',WR_LinkReset='"&LinkReset&"' Where WR_ID="&ID)
End If
Set Grs = Gconn.Execute("Select Top 1 WR_Content,WR_BaseSetting,WR_ListBegin,WR_ListEnd,WR_LinkBegin,WR_LinkEnd From WR_Item Where WR_ID="&ID)
If Not Grs.Eof Then
HtmlContent = Grs(0)
BaseSetting = Grs(1)
ListBegin = Grs(2)
ListEnd = Grs(3)
LinkBegin = Grs(4)
LinkEnd = Grs(5)
End If
Grs.Close
GUrl = Split(BaseSetting,"§§§")(0)
GEncoding = Split(BaseSetting,"§§§")(1)
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<form name=myform method='post' action='?Action=ItemTest&Page="&Page&"'>" & vbCrLf
Content = Content & "<input name=ID type=hidden value=" & ID & ">" & vbCrLf
If WR.CheckStr(Request.Form("ShowCode"), 1) = 1 Then
ShowCode = GetHttpPage(GUrl,GEncoding)
ShowCode = HCode(ShowCode,ListBegin,ListEnd)
ShowCode = ListCode(ShowCode,LinkBegin,LinkEnd,Split(BaseSetting,"§§§")(8))
If Instr(ShowCode,"§") > 0 Then
If Instr(ShowCode,"§") > 0 Then Url = GetUrl(Split(ShowCode,"§")(0),LinkReset) Else Url = GetUrl(ShowCode,LinkReset)
Content = Content & "<tr class=td4><td colspan=2><strong>采集测试</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td colspan=2 align=center><textaRea style='width:100%;height:180'>"&WRMPS.GetHTMLEncode(GetHttpPage(Url,GEncoding))&"</textaRea><div style='width:100%; height:150px; z-index:1;overflow:auto;text-align:left' class=div>"
For i=0 To Ubound(Split(ShowCode,"§"))
Content = Content & " 目标地址：<a href="&GetUrl(Split(ShowCode,"§")(i),LinkReset)&" target=_blank>"&GetUrl(Split(ShowCode,"§")(i),LinkReset)&"</a> <a href='view-source:"&GetUrl(Split(ShowCode,"§")(i),LinkReset)&"' target=_blank>点击查看目标源代码</a><br>"
Next
Content = Content & "</div></td></tr>" & vbCrLf
End If
End If
If HtmlContent = "" or IsNull(HtmlContent) Then HtmlContent = Sign1&Sign&"0"&Sign1&Sign1&Sign&"0"&Sign1&Sign1&Sign&"0"&Sign1&Sign1&Sign&"0"&Sign1&Sign1&Sign&"0"&Sign1&Sign1&Sign&"0"&Sign1&Sign1&Sign&"0"&Sign1&Sign1&Sign&"0"&Sign1&Sign1
HtmlContent = Split(HtmlContent,Sign)
Content = Content & "<tr class=td4><td colspan=2><strong>采集项目设置 <a href=?Action=Item&ID="&ID&"&Page="&Page&">第一步</a> >> <a href=?Action=ItemTwo&ID="&ID&"&Save=NO&Page="&Page&">第二步</a> >> <a href=?Action=ItemThree&ID="&ID&"&Save=NO&Page="&Page&"><span class=font2>第三步</span></a> >> <a href=?Action=ItemTest&ShowCode=1&Save=No&ID="&ID&"&Page="&Page&">测试</a></strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='30%'><strong>店铺名称开始代码</strong></td><td width='70%'><textaRea name=Begin1 cols=50 rows=5>"&Split(HtmlContent(0),Sign1)(0)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺名称结束代码</strong></td><td><textaRea name=End1 cols=50 rows=5>"&Split(HtmlContent(0),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺介绍设置</strong></td><td><input type=radio value=0 name=Intro checked onClick=""IT1.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(1),Sign1)(0)), 1) & ">不作设置 <input type=radio value=1 name=Intro onClick=""IT1.style.display=''""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(1),Sign1)(0)), 1) & ">设置标签</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=IT1"
If Int(Split(HtmlContent(1),Sign1)(0)) < 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>店铺介绍开始代码</strong></td><td width='70%'><textaRea name=ITBegin cols=50 rows=5>"&Split(HtmlContent(1),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>店铺介绍结束代码</strong></td><td><textaRea name=ITEnd cols=50 rows=5>"&Split(HtmlContent(1),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>联系地址设置</strong></td><td><input type=radio value=0 name=AddRess checked onClick=""AR1.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(2),Sign1)(0)), 1) & ">不作设置 <input type=radio value=1 name=AddRess onClick=""AR1.style.display=''""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(2),Sign1)(0)), 1) & ">设置标签</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=AR1"
If Int(Split(HtmlContent(2),Sign1)(0)) < 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>联系地址开始代码</strong></td><td width='70%'><textaRea name=ARBegin cols=50 rows=5>"&Split(HtmlContent(2),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>联系地址结束代码</strong></td><td><textaRea name=ARend cols=50 rows=5>"&Split(HtmlContent(2),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>电话设置</strong></td><td><input type=radio value=0 name=TEL checked onClick=""TL1.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(3),Sign1)(0)), 1) & ">不作设置 <input type=radio value=1 name=TEL onClick=""TL1.style.display=''""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(3),Sign1)(0)), 1) & ">设置标签</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=TL1"
If Int(Split(HtmlContent(3),Sign1)(0)) < 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>电话开始代码</strong></td><td width='70%'><textaRea name=TLBegin cols=50 rows=5>"&Split(HtmlContent(3),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>电话结束代码</strong></td><td><textaRea name=TLEnd cols=50 rows=5>"&Split(HtmlContent(3),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>手机设置</strong></td><td><input type=radio value=0 name=Mobile checked onClick=""MO1.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(4),Sign1)(0)), 1) & ">不作设置 <input type=radio value=1 name=Mobile onClick=""MO1.style.display=''""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(4),Sign1)(0)), 1) & ">设置标签</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=MO1"
If Int(Split(HtmlContent(4),Sign1)(0)) < 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>手机开始代码</strong></td><td width='70%'><textaRea name=MOBegin cols=50 rows=5>"&Split(HtmlContent(4),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>手机结束代码</strong></td><td><textaRea name=MOEnd cols=50 rows=5>"&Split(HtmlContent(4),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>传真设置</strong></td><td><input type=radio value=0 name=Fax checked onClick=""FX1.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(5),Sign1)(0)), 1) & ">不作设置 <input type=radio value=1 name=Fax onClick=""FX1.style.display=''""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(5),Sign1)(0)), 1) & ">设置标签</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=FX1"
If Int(Split(HtmlContent(5),Sign1)(0)) < 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>传真开始代码</strong></td><td width='70%'><textaRea name=FXBegin cols=50 rows=5>"&Split(HtmlContent(5),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>传真结束代码</strong></td><td><textaRea name=FXEnd cols=50 rows=5>"&Split(HtmlContent(5),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>网址设置</strong></td><td><input type=radio value=0 name=WEB checked onClick=""WB1.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(6),Sign1)(0)), 1) & ">不作设置 <input type=radio value=1 name=WEB onClick=""WB1.style.display=''""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(6),Sign1)(0)), 1) & ">设置标签</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=WB1"
If Int(Split(HtmlContent(6),Sign1)(0)) < 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>网址开始代码</strong></td><td width='70%'><textaRea name=WBBegin cols=50 rows=5>"&Split(HtmlContent(6),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>网址结束代码</strong></td><td><textaRea name=WBEnd cols=50 rows=5>"&Split(HtmlContent(6),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>时间设置</strong></td><td><input type=radio value=0 name=AddTime checked onClick=""AT1.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(7),Sign1)(0)), 1) & ">不作设置 <input type=radio value=1 name=AddTime onClick=""AT1.style.display=''""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(7),Sign1)(0)), 1) & ">设置标签</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=AT1"
If Int(Split(HtmlContent(7),Sign1)(0)) < 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>时间开始代码</strong></td><td width='70%'><textaRea name=ATBegin cols=50 rows=5>"&Split(HtmlContent(7),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>时间结束代码</strong></td><td><textaRea name=ATEnd cols=50 rows=5>"&Split(HtmlContent(7),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>关键字设置</strong></td><td><input type=radio value=0 name=Tags checked onClick=""Tag1.style.display='none';Tag2.style.display='none'""" & WRMPS.GetCheckVer(0, Int(Split(HtmlContent(8),Sign1)(0)), 1) & ">标题生成 <input type=radio value=1 name=Tags onClick=""Tag1.style.display='';Tag2.style.display='none'""" & WRMPS.GetCheckVer(1, Int(Split(HtmlContent(8),Sign1)(0)), 1) & ">设置标签 <input type=radio value=2 name=Tags onClick=""Tag1.style.display='none';Tag2.style.display=''""" & WRMPS.GetCheckVer(2, Int(Split(HtmlContent(8),Sign1)(0)), 1) & ">指定关键字</td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=Tag1"
If Int(Split(HtmlContent(8),Sign1)(0)) <> 1 Then Content = Content & " style='display:none'"
Content = Content & "><td colspan=2><table width='100%' border=0 cellspacing=0 cellpadding=0>"
Content = Content & "<tr><td width='30%'><strong>关键字开始代码</strong></td><td width='70%'><textaRea name=TagBegin cols=50 rows=5>"&Split(HtmlContent(8),Sign1)(1)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "<tr><td><strong>关键字结束代码</strong></td><td><textaRea name=TagEnd cols=50 rows=5>"&Split(HtmlContent(8),Sign1)(2)&"</textaRea></td></tr>" & vbCrLf
Content = Content & "</table></td></tr>" & vbCrLf
Content = Content & "<tr class=td2 id=Tag2"
If Int(Split(HtmlContent(8),Sign1)(0)) <> 2 Then Content = Content & " style='display:none'"
Content = Content & "><td><strong>指定关键字</strong></td><td><input maxlength=50 name=Tag type=text size=30 value="""&Split(HtmlContent(8),Sign1)(1)&"""><br>格式：关键字之间用<span class=font2>,</span>分隔，如：新闻,IT </td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td></td><td><input type=submit name=Submit value='下一步'> <input type=checkbox name=ShowCode value=1>显示源码</td></tr>" & vbCrLf
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Call ConnClose()
Case "ItemTwo"
If Ucase(Request("Save")) <> "NO" Then
ItemName = WR.CheckStr(Request.Form("ItemName"), 0)
If ItemName = "" Then Call WRMPS.ErrView("·请输入项目名称", 0)
ClassID = WR.CheckStr(Request.Form("ClassID"), 1)
If ClassID = "" Then ClassID = WRMPS.CheckStr(Request.form("_ClassID"),1)
AreaID = WR.CheckStr(Request.Form("AreaID"), 1)
If AreaID = "" Then AreaID = WRMPS.CheckStr(Request.form("_AreaID"),1)
If ClassID = "" Or AreaID = "" Then Call WRMPS.ErrView("·所属栏目和所属地区必选", 0)
ClassID = GetClassDir(ClassID,"WM_CompanySort")
GUrl = WR.CheckStr(Request.Form("GUrl"), 0)
If GUrl = "" Then Call WRMPS.ErrView("·请输入目标页URL", 0)
GEncoding = WR.CheckStr(Request.Form("GEncoding"), 0)
ListType = WR.CheckStr(Request.Form("ListType"), 1)
Select Case ListType
Case 0
ListStr = ""
Case 1
ListStr = WR.CheckStr(Request.Form("ListStr2"), 0)&"|"& WR.CheckStr(Request.Form("ListID1"), 1)&"|"& WR.CheckStr(Request.Form("ListID2"), 1)
If WR.CheckStr(Request.Form("ListStr2"), 0) = "" or WR.CheckStr(Request.Form("ListID1"), 1) = "" or WR.CheckStr(Request.Form("ListID2"), 1) = "" Then Call WRMPS.ErrView("·你选择了批量生成分页，请做好相关设置", 0)
Case 2
ListStr = Request.Form("ListStr3")
If Request.Form("ListStr3") = "" Then Call WRMPS.ErrView("·你选择了手动添加分页地址，请做好相关设置", 0)
End Select
CollecNum = WR.CheckStr(Request.Form("CollecNum"), 1)
Passed = WR.CheckStr(Request.Form("Passed"), 1)
If Passed = "" Then Passed = 0
SaveFiles = WR.CheckStr(Request.Form("SaveFiles"), 1)
If SaveFiles = "" Then SaveFiles = 0
CReThumb = WR.CheckStr(Request.Form("CReateThumb"), 1)
If CReThumb = "" Then CReThumb = 0
WaterMark = WR.CheckStr(Request.Form("WaterMark"), 1)
If WaterMark = "" Then WaterMark = 0
CollecOrder = WR.CheckStr(Request.Form("CollecOrder"), 1)
If CollecOrder = "" Then CollecOrder = 0
Timing = WR.CheckStr(Request.Form("Timing"), 1)
If Timing = "" Then Timing = 0
Leach = "|"&Replace(WR.CheckStr(Replace(Request.Form("Leach")," ",""), 0),",","|")&"|"
Displace = WR.CheckStr(Request.Form("Displace"),2)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -