⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ads.asp

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

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 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"" src=""images/wm_ads.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 " <a href=""javascript:void(0)"" class=""a1"" onclick=""jspp.Ads.doPage(jspp.Ads.page)"">刷新广告列表</a>"
        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 Else
        MyIO.Echo "未知选项"
    End Select
End Sub

Private Sub doGetList()
    If MyPower("ViewAds") = 0 Then
        MyIO.Echo "您没有查看广告的权限"
        Exit Sub
    End If
    Dim i
    Dim strKey
    Dim xmlNode
    strKey = Trim(MyIO.QueryString("Keyword"))
    Set objPage = vbsre.mocom.WAPmo.Page.newInstance()

    objPage.ID = atol(MyIO.QueryString("Page"))
    objPage.Size = 20
    objPage.DataType = WM_DataType
    objPage.Table = T_ADS
    If strKey <> "" Then
        objPage.Where = Replace("Title LIKE '%$(Keyword)%' Or Content LIKE '%$(Keyword)%'", "$(Keyword)", SafeString(strKey))
    End If
    objPage.Count = GetPageCount(objPage)
    objPage.Index = "SEQID"
    objPage.Sort = "SEQID DESC"
    objPage.SortType = 1
    objPage.Build "ads", "ad"

    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=""8%"" class=""winT0""><b>类型<b/></td>"
    MyIO.Echo "<td width=""22%"" class=""winT0""><b>连接标题/图片地址<b/></td>"
    MyIO.Echo "<td width=""24%"" class=""winT0""><b>连接地址/文本/图片连接<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>显示<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>点击<b/></td>"
    MyIO.Echo "<td width=""14%"" class=""winT0""><b>最后访问<b/></td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>管理</b></td>"
    MyIO.Echo "</tr>"
    If objPage.Rows.hasChildNodes Then
        i = 0
        For Each xmlNode In objPage.Rows.childNodes
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td align=""center""><input type=""checkbox"" id=""SeqId"" name=""SeqId"" value=""" & XMLAttr(xmlNode, "seqid") & """ /></td>"
            MyIO.Echo "<td align=""center"">" & GetAdsCategory(XMLAttr(xmlNode, "category")) & "</td>"
            MyIO.Echo "<td>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "title")) & "</td>"
            MyIO.Echo "<td>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "content")) & "</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "look") & "</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "hit") & "</td>"
            MyIO.Echo "<td align=""right"">" & FormatTime(XMLAttr(xmlNode, "outime"), "y-m-d H:i") & "</td>"
            MyIO.Echo "<td align=""center"">"
            MyIO.Echo "<select class=""sel"" onchange=""jspp.Ads.control(this, " & XMLAttr(xmlNode, "seqid") & ")"">"
            MyIO.Echo "<option value=""0"">管理</option>"
            MyIO.Echo "<option value=""1"">编辑</option>"
            MyIO.Echo "<option value=""2"">删除</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            i = i + 1
        Next
        Call ShowControl
        Call ShowPage
    Else
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""8"">尚无任何广告</td>"
        MyIO.Echo "</tr>"
        Call ShowControl
    End If
    MyIO.Echo "</table>"
    Set objPage = Nothing
End Sub

Private Function GetAdsCategory(ByVal intCate)
    Select Case atoi(intCate)
    Case 0
        GetAdsCategory = "连接"
    Case 1
        GetAdsCategory = "文本"
    Case 2
        GetAdsCategory = "图片"
    Case Else
        GetAdsCategory = "未知"
    End Select
End Function

Private Sub ShowControl()
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td align=""center""><input type=""checkbox"" onclick=""chkAll(this)"" /></td>"
    MyIO.Echo "<td colspan=""7"">"
12

⌨️ 快捷键说明

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