📄 admin_collectionmanage.asp
字号:
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rs.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Dim VisitorNum
VisitorNum = 0
Do While Not rs.EOF
ChannelID = rs("ChannelID")
ClassID = PE_CLng(rs("ClassID"))
ItemID = rs("ItemID")
ItemName = rs("ItemName")
ListUrl = rs("ListStr")
WebName = rs("WebName")
NewsCollecDate = rs("NewsCollecDate")
Flag = rs("Flag")
Response.Write "<tr class=""tdbg"" onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"" style=""padding: 0px 2px;"">" & vbCrLf
Response.Write " <td width=""40"" align=""center"">" & vbCrLf
Response.Write " <input type=""checkbox"" value=" & ItemID & " name=""ItemID""> " & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " <td width=""100"" align=""center"">" & ItemName & "</td> " & vbCrLf
Response.Write " <td width=""100"" align=""center""><a href=" & ListUrl & " target=""_bank"">" & WebName & "</a></td> " & vbCrLf
Response.Write " <td width=""100"" height=""22"" align=""center"">"
If IsNull(rs("ChannelName")) = True Then
Response.Write "还没有指定频道"
Else
If rs("Disabled") = True Then
Response.Write rs("ChannelName") & "<font color=red> 已禁用</font>"
Else
Response.Write rs("ChannelName")
End If
End If
Response.Write "</td> " & vbCrLf
Response.Write " <td width=""100"" align=""center"">"
If IsNull(rs("ClassName")) = True Then
Response.Write "还没有指定栏目"
Else
Response.Write rs("ClassName")
End If
Response.Write "</td>" & vbCrLf
Response.Write " <td width=""40"" align=""center"">" & vbCrLf
If Flag = True Then
Response.Write "<b>√</b>"
Else
Response.Write "<FONT color='red'><b>×</b></FONT>"
End If
Response.Write " </td>" & vbCrLf
Response.Write " <td width=""120"" align=""center"">" & vbCrLf
If DateDiff("d", NewsCollecDate, Now()) = 0 Then
Response.Write "<font color=red>" & NewsCollecDate & "</font>"
Else
Response.Write NewsCollecDate
End If
Response.Write " </td>" & vbCrLf
Response.Write " <td width=""120"" align=""center""> " & vbCrLf
Response.Write " <a href=Admin_CollectionManage.asp?Action=Step1&ItemID=" & ItemID & ">编辑</a> "
Response.Write " <a href=Admin_CollectionManage.asp?Action=Step4&ItemID=" & ItemID & ">测试</a> "
Response.Write " <a href=Admin_CollectionManage.asp?Action=Step5&ItemID=" & ItemID & ">属性</a> "
Response.Write " <a href=Admin_CollectionManage.asp?Action=ItemCopy&ItemID=" & ItemID & ">复制</a>" & vbCrLf
Response.Write " </td> " & vbCrLf
Response.Write "</tr> " & vbCrLf
VisitorNum = VisitorNum + 1
If VisitorNum >= MaxPerPage Then Exit Do
rs.MoveNext
Loop
Response.Write "</table>"
End If
Response.Write "<table border='0' cellpadding='0' cellspacing='1' width='100%' height='5'>"
Response.Write " <tr><td></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<input name=""Action"" type=""hidden"" value=''>" & vbCrLf
Response.Write "<input name=""chkAll"" type=""checkbox"" id=""chkAll"" onclick=CheckAll(this.form) value=""checkbox"" >选中所有项目 " & vbCrLf
Response.Write "<input type=""submit"" value="" 批量删除 "" onclick=""javascript:if (confirm('您是否要删除选定的采集项目？')){document.myform.Action.value='DelItem';}else{return false;};"" > " & vbCrLf
Response.Write "<input type='submit' name='Submit3' value="" 批量设置 "" onClick=""document.myform.Action.value='Batch'"">"
Response.Write "</form>"
rs.Close
Set rs = Nothing
If totalPut > 0 Then
Response.Write "<center>" & ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个项目记录", True) & "</center>"
End If
Response.Write "<br><b>注意：</b><br> 采集项目必须经过<font color=red>采样测试成功</font>，<font color=red>并设置好属性</font>，方可运行。</font>" & vbCrLf
Call CloseConn
End Sub
'=================================================
'过程名：Step1
'作 用：基本设置
'=================================================
Sub Step1()
Dim ItemName, ItemDoem, WebName, WebUrl, ListStr
Dim LoginType, LoginUrl, LoginPostUrl, LoginUser, LoginPass, LoginFalse
Dim arrLoginUser, arrLoginPass, InputLoginUser, InputLoginPass
If ItemID > 0 Then
'取出数据
sql = "select ItemName,ItemDoem,WebName,WebUrl,ListStr,LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse from PE_Item where ItemID=" & ItemID
Set rsItem = Server.CreateObject("adodb.recordset")
rsItem.Open sql, Conn, 1, 1
If rsItem.EOF Then '没有找到该项目
FoundErr = True
ErrMsg = ErrMsg & "<li>错误参数！没有找到该项目！</li>"
Else
ItemName = rsItem("ItemName")
ItemDoem = rsItem("ItemDoem")
WebName = rsItem("WebName")
WebUrl = PE_CLng(rsItem("WebUrl"))
ListStr = rsItem("ListStr")
LoginType = PE_CLng(rsItem("LoginType"))
LoginUrl = rsItem("LoginUrl")
LoginPostUrl = rsItem("LoginPostUrl")
LoginUser = rsItem("LoginUser")
LoginPass = rsItem("LoginPass")
LoginFalse = rsItem("LoginFalse")
End If
rsItem.Close
Set rsItem = Nothing
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
Exit Sub
End If
If InStr(LoginUser, "=") > 0 Then
arrLoginUser = Split(LoginUser, "=")
InputLoginUser = arrLoginUser(0)
LoginUser = arrLoginUser(1)
End If
If InStr(LoginPass, "=") > 0 Then
arrLoginPass = Split(LoginPass, "=")
InputLoginPass = arrLoginPass(0)
LoginPass = arrLoginPass(1)
End If
Call ShowChekcFormVbs
Response.Write "<FORM name=form1 action='Admin_CollectionManage.asp' method=post>" & vbCrLf
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write " <tr align='center' height='24'>" & vbCrLf
Response.Write " <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本设置</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>登录设置</td>" & vbCrLf
Response.Write " <td> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr align='center'>"
Response.Write " <td class='tdbg' height='200' valign='top'>"
Response.Write " <table width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
Response.Write " <tbody id='Tabs' style='display:'>" & vbCrLf
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""120"" class='tdbg5' align=""right"" > 项目名称： </td>" & vbCrLf
Response.Write " <td class=""tdbg""><input name=""ItemName"" type=""text"" id=""ItemName"" size=""30"" maxlength=""30"" value='" & ItemName & "'> <FONT color='red'>*</FONT></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""120"" class='tdbg5' align=""right""> 网站名称： </td>" & vbCrLf
Response.Write " <td class=""tdbg""><input name=""WebName"" type=""text"" id=""WebName"" size=""30"" maxlength=""30"" value='" & WebName & "'> <FONT color='red'>*</FONT></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""120"" class='tdbg5' align=""right""> 网页编码： </td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <INPUT TYPE='radio' NAME='WebUrl' value='0' " & IsRadioChecked(WebUrl, 0) & "> GB2312" & vbCrLf
Response.Write " <INPUT TYPE='radio' NAME='WebUrl' value='1' " & IsRadioChecked(WebUrl, 1) & "> UTF-8" & vbCrLf
Response.Write " <INPUT TYPE='radio' NAME='WebUrl' value='2' " & IsRadioChecked(WebUrl, 2) & "> Big5 <FONT color='red'>*</FONT>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""120"" class='tdbg5' align=""right""> 列表页URL： </td>" & vbCrLf
Response.Write " <td class=""tdbg""><input name=""ListStr"" type=""text"" id=""ListStr"" size=""70"" maxlength=""255"" value='" & ListStr & "'> <FONT color='red'>*</FONT> <br><font color=blue> 例如：http://www.powereasy.net/News/ShowClass.asp?ClassID=2</font></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""120"" class='tdbg5' align=""right""> 项目备注： </td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <textarea name=""ItemDoem"" style='width:450px;height:100px' id=""ItemDoem"">" & ItemDoem & "</textarea>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class=""tdbg""> " & vbCrLf
Response.Write " <td width=""120"" class='tdbg5' align=""right"">网站登录：</td>" & vbCrLf
Response.Write " <td width=""620"">" & vbCrLf
Response.Write " <input type=""radio"" value=""0"" name=""LoginType"" " & IsRadioChecked(LoginType, 0) & " onClick=""Login.style.display='none'"">不需要登录<span lang=""en-us""></span>" & vbCrLf
Response.Write " <input type=""radio"" value=""1"" name=""LoginType"" " & IsRadioChecked(LoginType, 1) & " onClick=""Login.style.display=''"">设置参数 <FONT style='font-size:12px' color='blue'>（只有在对方网站没有开启登录验证码功能时，才能进行登录采集）</FONT> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class=""tdbg"" id=""Login"" " & IsStyleDisplay(LoginType, 1) & ">" & vbCrLf
Response.Write " <td align='left' colspan='2'>" & vbCrLf
Response.Write " <table border='0' cellpadding='0' cellspacing='1' width=""620"" height='100%' align='left' bgcolor='#ffffff'>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""130"" class=""tdbg5"" align=""right""> 登录地址： </td>" & vbCrLf
Response.Write " <td class=""tdbg""><input name=""LoginUrl"" type=""text"" size=""40"" maxlength=""150"" value=""" & LoginUrl & """></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""130"" class=""tdbg5"" align=""right""> 提交地址： </td>" & vbCrLf
Response.Write " <td class=""tdbg""><input name=""LoginPostUrl"" type=""text"" size=""40"" maxlength=""150"" value=""" & LoginPostUrl & """></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""130"" class=""tdbg5"" align=""right""> 用户参数： </td>" & vbCrLf
Response.Write " <td class=""tdbg"">用户文本框名称：<input name=""InputLoginUser"" type=""text"" size=""10"" maxlength=""150"" value=""" & InputLoginUser & """>" & vbCrLf
Response.Write " 用户名称：<input name=""LoginUser"" type=""text"" size=""10"" maxlength=""150"" value=""" & LoginUser & """></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""130"" class=""tdbg5"" align=""right""> 密码参数： </td>" & vbCrLf
Response.Write " <td class=""tdbg"">密码文本框名称：<input name=""InputLoginPass"" type=""text"" size=""10"" maxlength=""150"" value=""" & InputLoginPass & """>" & vbCrLf
Response.Write " 用户密码：<input name=""LoginPass"" type=""text"" size=""10"" maxlength=""150"" value=""" & LoginPass & """>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td width=""130"" class=""tdbg5"" align=""right""> 失败信息： </td>" & vbCrLf
Response.Write " <td class=""tdbg""><input name=""LoginFalse"" type=""text"" size=""30"" maxlength=""150"" value=""" & LoginFalse & """></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " <br>" & vbCrLf
Response.Write " <center>" & vbCrLf
Response.Write " <INPUT id=""ItemID"" type=""hidden"" value=" & ItemID & " name=ItemID>" & vbCrLf
Response.Write " <INPUT id=""NeedSave"" type=""hidden"" value='True' name='NeedSave'>" & vbCrLf
If ItemID = 0 Then
Response.Write " <INPUT id=""IsNew"" type=""hidden"" value='True' name='IsNew'>" & vbCrLf
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -