📄 spy.asp

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%
Class ImplMocomWAPmoManagerSpy
Private blnError
Private strError

Private Sub Class_Initialize()
    blnError = True
    strError = "无错误"
End Sub

Private Sub Class_Terminate()
End Sub

Public Sub main()
    If MyIO.Env("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "option"
        Call doGetOption
    Case "list"
        Call doGetList
    Case "modify"
        Call doGetModify
    Case "copy"
        Call doGetCopy
    Case "copy"
        Call doGetCopy
    Case "run"
        Call doGetRun
    Case "run.list"
        Call doGetRunList
    Case "run.page"
        Call doGetRunPage
    Case "check.list"
        Call doCheckList
    Case "check.content"
        Call doCheckContent
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "add"
        Call doPostAdd
    Case "modify"
        Call doPostModify
    Case "remove"
        Call doPostRemove
    Case Else
        MyIO.Echo "未知操作"
    End Select
End Sub

Private Sub doGetMain()
    MyIO.Echo "<html>"
    MyIO.Echo "<head>"
    MyIO.Echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
    MyIO.Echo "<meta http-equiv=""Cache-Control"" content=""no-cache, max-age=0"" />"
    MyIO.Echo "<title>内容采集</title>"
    MyIO.Echo "<link rel=""stylesheet"" href=""images/xw.css"" />"
    MyIO.Echo "<script language=""javascript"" src=""jspp/jspp.js""></script>"
    MyIO.Echo "<script language=""javascript"">"
    MyIO.Echo "jspp.Share = " & atoi(MyKernel.Config("StapleGroup")) & ";"
    MyIO.Echo "jspp.GroupId = " & MyAdmin("GroupId") & ";"
    MyIO.Echo "jspp.TeamId = """ & MyAdmin("TeamId") & """;"
    MyIO.Echo "jspp.AdminId = """ & MyAdmin("SeqId") & """;"
    MyIO.Echo "jspp.Power = " & MyPower.Status & ";"
    MyIO.Echo "</script>"
    MyIO.Echo "<script language=""javascript"" src=""images/wm_spy.js""></script>"
    MyIO.Echo "</head>"
    MyIO.Echo "<body style=""padding:5;margin:0;overflow:auto;border:0"">"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border:1px solid #000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td align=""right"" bgcolor=""#A2ADC4"" style=""border-bottom:1px solid #000000;padding-right:1px;padding-top:1px"" height=""24""><img src=""images/xw_cls0.gif"" border=""0"" align=""absMiddle"" onMouseOver=""this.src='images/xw_cls1.gif'"" onMouseOut=""this.src='images/xw_cls0.gif'"" onMouseDown=""this.src='images/xw_cls2.gif'"" onMouseUp=""this.src='images/xw_cls1.gif'"" /></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td height=""24"" style=""background-image:url(images/xw_back4.gif)"">&nbsp;</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td id=""_OPTION"" class=""f12""></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "<iframe id=""console"" name=""console"" frameborder=""0"" scrolling=""no"" width=""100%"" height=""30""></iframe>"
    MyIO.Echo "</body>"
    MyIO.Echo "</html>"
End Sub

Private Sub doGetOption()
    Select Case MyIO.QueryString("Option")
    Case "0"
        MyIO.Echo "<form id=""frmMain"" onsubmit=""return(false)"">"
        MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""2"" class=""winT0"">"
        MyIO.Echo " <b>采集规则</b>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""2"" id=""_list_""></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case "1"
        MyIO.Echo "<form id=""frmMain"" action=""admin_spy.asp?Handle=Add"" method=""post"" onsubmit=""return(false)"" target=""console"">"
        MyIO.Echo "<input type=""hidden"" name=""Check"" value=""0"" />"
        MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""2"" class=""winT0""><b>新建采集规则</b></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td width=""10%"">采集名称</td>"
        MyIO.Echo "<td width=""90%""><input type=""text"" name=""Name"" class=""txt"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>列表地址</td>"
        MyIO.Echo "<td><input type=""text"" name=""List"" style=""width:400px"" class=""txt"" /> <input type=""button"" value=""检测地址"" class=""btn"" onclick=""jspp.Spy.chkList(this.form)"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>采集类型</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<select name=""Type"">"
        MyIO.Echo "<option value=""0"">采集所有</option>"
        MyIO.Echo "<option value=""1"">采集昨日</option>"
        MyIO.Echo "<option value=""2"">采集今日</option>"
        MyIO.Echo "</select>"
        MyIO.Echo " [采集所有]只有手工启动采集，而采集昨日和今日还可以在管理员登陆后自动运行"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>检测重复项</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <input type=""radio"" name=""Repeat"" value=""1"" checked=""true"" /> 是"
        MyIO.Echo " <input type=""radio"" name=""Repeat"" value=""0"" /> 否"
        MyIO.Echo "</select>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>页面编码</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <input type=""radio"" name=""Charset"" value=""gb2312"" checked=""true"" /> gb2312"
        MyIO.Echo " <input type=""radio"" name=""Charset"" value=""utf-8"" /> utf-8"
        'MyIO.Echo " <input type=""radio"" name=""Charset"" value=""big5"" /> big5"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>列表源码</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <div id=""_LIST_BODY"" style=""display:none;width:500px;height:200px;border:1px solid #000000;overflow-x:auto;overflow-y:auto;""></div>"
        MyIO.Echo " <iframe id=""_LIST_HTML"" style=""display:none;width:500px;height:200px;border:1px solid #000000;"" src=""about:blank""></iframe>"
        MyIO.Echo " <br/><input type=""button"" name=""btnList"" value=""页面预览"" class=""btn"" onclick=""jspp.Spy.showList(this)"" disabled=""true"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>列表规则</td>"
        MyIO.Echo "<td><textarea name=""ListRule"" class=""area"" style=""width:400px;height:80px""></textarea> <input name=""btnChkListRule"" type=""button"" value=""检测规则"" class=""btn"" onclick=""jspp.Spy.chkListRule(this.form)"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>连接列表</td>"
        MyIO.Echo "<td><select name=""ListPage"" class=""slt"" onchange=""jspp.Spy.chkContent(this)""></select> 需要先检测列表规则</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>内容源码</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <div id=""_CONTENT_BODY"" style=""display:none;width:500px;height:200px;border:1px solid #000000;overflow-x:auto;overflow-y:auto;""></div>"
        MyIO.Echo " <iframe id=""_CONTENT_HTML"" style=""display:none;width:500px;height:200px;border:1px solid #000000;"" src=""about:blank""></iframe>"
        MyIO.Echo " <br/><input type=""button"" name=""btnContent"" value=""页面预览"" class=""btn"" onclick=""jspp.Spy.showContent(this)"" disabled=""true"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>内容规则</td>"
        MyIO.Echo "<td><textarea name=""ContentRule"" class=""area"" style=""width:400px;height:80px""></textarea> <input name=""btnChkContentRule"" type=""button"" value=""检测规则"" class=""btn"" onclick=""jspp.Spy.chkContentRule(this.form)"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>删除标签</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <input type=""checkbox"" name=""Mark"" value=""div"" /> div"
        MyIO.Echo " <input type=""checkbox"" name=""Mark"" value=""table"" /> table"
        MyIO.Echo " <input type=""checkbox"" name=""Mark"" value=""img"" /> img"
        MyIO.Echo " <input type=""checkbox"" name=""Mark"" value=""strong"" /> strong"
        MyIO.Echo " <input type=""checkbox"" name=""Mark"" value=""b"" /> b"
        MyIO.Echo " <input type=""checkbox"" name=""Mark"" value=""u"" /> u"
        MyIO.Echo " <input type=""checkbox"" name=""Mark"" value=""i"" /> i"
        MyIO.Echo " 删除标签的意思即删除标签及其包含的文字"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>分页规则</td>"
        MyIO.Echo "<td><textarea name=""PageRule"" class=""area"" style=""width:400px;height:80px""></textarea> <input name=""btnChkPageRule"" type=""button"" value=""检测规则"" class=""btn"" onclick=""jspp.Spy.chkPageRule(this.form)"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>目标栏目</td>"
        MyIO.Echo "<td><select name=""Staple""></select></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>采集范例</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <div id=""_CONTENT"" style=""display:none;width:500px;height:200px;border:1px solid #000000;overflow-x:auto;overflow-y:auto;""></div>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""2"" align=""center"">"
        MyIO.Echo " <input name=""btnPost"" type=""button"" value=""保存规则"" class=""btn"" onclick=""Form.submit(this)"" />"
        MyIO.Echo " <input type=""button"" value=""刷新页面"" class=""btn"" onclick=""opt.cache[1] = null;opt.callBack[1] = newSpy;opt.lock(1);"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case Else
        MyIO.Echo "未知选项"
    End Select
End Sub

Private Sub doGetList()
    Dim xdb
    Dim intPage, intSize, intTotal
    Dim lngCount
    Dim i
    Set xdb = WM_XMLDB("Spy")
    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse;word-break:break-all;word-wrap:break-word;"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>选择</b></td>"
    MyIO.Echo "<td width=""12%"" class=""winT0""><b>采集名称<b/></td>"
    MyIO.Echo "<td width=""40%"" class=""winT0""><b>列表地址<b/></td>"
    MyIO.Echo "<td width=""12%"" class=""winT0""><b>总数/成功/失败<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>状态</b></td>"
    MyIO.Echo "<td width=""12%"" class=""winT0""><b>最后采集<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>管理</b></td>"
    MyIO.Echo "</tr>"
    If Not xdb.EOF Then
        lngCount = xdb.RecordCount
        intSize = 20
        intTotal = lngCount \ intSize + IIf(lngCount Mod intSize = 0, 0, 1)
        If intTotal = 0 Then intTotal = 1
        intPage = atoi(MyIO.QueryString("Page"))
        If intPage < 1 Then intPage = 1
        If intPage > intTotal Then intPage = intTotal
        xdb.Move (intPage - 1) * intSize
        i = 0
        Do While Not xdb.EOF And i < intSize
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td align=""center""><input type=""checkbox"" id=""SeqId"" name=""SeqId"" value=""" & xdb("SeqId") & """ /></td>"
            MyIO.Echo "<td>" & xdb("Name") & "</td>"
            MyIO.Echo "<td><a href=""" & xdb("List") & """ target=""_blank"">" & xdb("List") & "</a></td>"
            MyIO.Echo "<td align=""right"">" & xdb("Total") & "/" & xdb("Success") & "/" & xdb("Failed") & "</td>"
            MyIO.Echo "<td align=""center"">" & IIf(xdb("Check") = "1", "可用", "不可用") & "</td>"
            MyIO.Echo "<td align=""right"">"
            If xdb("Time") > 0 Then
                MyIO.Echo FormatTime(GetDate(xdb("Time")), "m-d H:i")
            End If
            MyIO.Echo "</td>"
            MyIO.Echo "<td align=""center"">"
            MyIO.Echo "<select class=""sel"" onchange=""jspp.Spy.control(this, " & xdb("SeqId") & ", " & xdb("StapleId") & ")"">"
            MyIO.Echo "<option value=""0"">管理</option>"
            MyIO.Echo "<option value=""1"">编辑</option>"
            MyIO.Echo "<option value=""2"">拷贝</option>"
            MyIO.Echo "<option value=""3"">删除</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            xdb.MoveNext
            i = i + 1
        Loop
        Call ShowControl
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""7"" align=""right"">"
        MyIO.Echo "共 " & lngCount & " 条信息 "
        MyIO.Echo intSize & " 条/页 "
        MyIO.Echo intPage & "/" & intTotal & " 页"
        If intPage > 1 Then
            MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Spy.doPage(1)"" class=""a1"" />首  页</a>"
            MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Spy.doPage(" & (intPage - 1) & ")"" class=""a1"" />上一页</a>"
        Else
            MyIO.Echo " <a class=""a1"">首  页</a>"
            MyIO.Echo " <a class=""a1"">上一页</a>"
        End If
        If intPage < intTotal Then
            MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Spy.doPage(" & (intPage + 1) & ")"" class=""a1"" />下一页</a>"
            MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Spy.doPage(" & intTotal & ")"" class=""a1"" />尾  页</a>"
        Else
            MyIO.Echo " <a class=""a1"">下一页</a>"
            MyIO.Echo " <a class=""a1"">尾  页</a>"
        End If
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
    Else
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""7"">尚无任何采集规则</td>"
        MyIO.Echo "</tr>"
        Call ShowControl
    End If
    MyIO.Echo "</table>"
    Set xdb = Nothing
End Sub
12 3 4 下一页
💿 文件大小 2007 K
👤 上传用户 yangjiuhe
📂 所属分类手机WAP编程
🏷️ 相关标签

#WAPmo #WAP #网站 #手机
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -