ads

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

    MyIO.Echo "<td align=""center""><input type=""checkbox"" onclick=""chkAll(this)"" /></td>"
    MyIO.Echo "<td colspan=""7"">"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""新增"" onclick=""jspp.Ads.add(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""删除"" onclick=""jspp.Ads.removeAll(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""搜索"" onclick=""jspp.Ads.query(this.form)"" />"
    MyIO.Echo " <input name=""Keyword"" type=""text"" class=""txt"" value=""" & MyIO.HTMLEncode(MyIO.QueryString("Keyword")) & """ />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub ShowPage()
    MyIO.Echo "<tr class=""winT1"">"
    MyIO.Echo "<td colspan=""8"" align=""right"">"
    MyIO.Echo "共 " & objPage.Count & " 条信息 "
    MyIO.Echo objPage.Size & " 条/页 "
    MyIO.Echo objPage.ID & "/" & objPage.Total & " 页"
    If objPage.ID > 1 Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Ads.doPage(1)"" class=""a1"" />首  页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Ads.doPage(" & (objPage.ID - 1) & ")"" class=""a1"" />上一页</a>"
    Else
        MyIO.Echo " <a class=""a1"">首  页</a>"
        MyIO.Echo " <a class=""a1"">上一页</a>"
    End If
    If objPage.ID < objPage.Total Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Ads.doPage(" & (objPage.ID + 1) & ")"" class=""a1"" />下一页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Ads.doPage(" & objPage.Total & ")"" class=""a1"" />尾  页</a>"
    Else
        MyIO.Echo " <a class=""a1"">下一页</a>"
        MyIO.Echo " <a class=""a1"">尾  页</a>"
    End If
    MyIO.Echo " 跳到 <input type=""text"" id=""_page"" class=""txt"" style=""width:30px"" /> 页"
    MyIO.Echo " <input type=""button"" value=""GO"" class=""btn"" onclick=""jspp.Ads.doPage(document.getElementById('_page').value)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub doGetModify()
    Dim objCmd
    Set objCmd = MyKernel.Command(T_ADS)
    objCmd.CommandType = "SELECT"
    objCmd.Where = "SeqId=" & atol(MyIO.QueryString("SeqId"))
    If MyPower("ModifyAds") = 0 Then
        MyIO.Echo "您没有编辑广告的权限"
    ElseIf Not objCmd.Exec Then
        MyIO.Echo "找不到您要编辑的广告"
    Else
        MyIO.Echo "<form id=""frmTemplet"" onsubmit=""return(false)"">"
        MyIO.Echo "<table width=""400"" 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=""80"">广告类型</td>"
        MyIO.Echo "<td width=""320"">"
        MyIO.Echo "<select name=""Category"" class=""sel"" onchange=""this.form.Title.disabled = (this.value == 1)"">"
        MyIO.Echo "<option value=""0""" & setSelected(objCmd("Category") = 0) & ">连接</option>"
        MyIO.Echo "<option value=""1""" & setSelected(objCmd("Category") = 1) & ">文本</option>"
        MyIO.Echo "<option value=""2""" & setSelected(objCmd("Category") = 2) & ">图片</option>"
        MyIO.Echo "</select>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>连接标题<br/>图片地址</td>"
        MyIO.Echo "<td><input type=""text"" name=""Title"" class=""txt"" style=""width:300px"" value=""" & MyIO.HTMLEncode(objCmd("Title")) & """" & setDisabled(objCmd("Category") = 1) & " /><br/>连接标题或图片地址填在此处</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>连接地址<br/>文本<br/>图片连接</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<textarea name=""Content"" class=""area"" style=""width:300px;height:100px"">" & MyIO.HTMLEncode(objCmd("Content")) & "</textarea><br/>"
        MyIO.Echo "连接地址/文本/图片连接请填在此处<br/>"
        MyIO.Echo "类型为连接时，连接标题和连接地址必填写<br/>"
        MyIO.Echo "类型为文本时，文本必填，支持WML脚本<br/>"
        MyIO.Echo "连接为图片时，图片地址必填，图片连接选填<br/>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""2"" align=""center"">"
        MyIO.Echo " <input name=""Accept"" type=""button"" value=""确  定"" class=""btn"" />"
        MyIO.Echo " <input name=""Cancel"" type=""button"" value=""取  消"" class=""btn"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    End If
    Set objCmd = Nothing
End Sub

Private Sub doPostAdd()
    If MyPower("AddAds") = 0 Then
        MyIO.Echo "您没有添加广告的权限"
    Else
        Dim intCategory
        Dim strTitle
        Dim strContent
        Dim objCmd
        intCategory = atoi(MyIO.Form("Category"))
        strTitle = Trim(MyIO.Form("Title"))
        strContent = Trim(MyIO.Form("Content"))
        If intCategory < 0 Or intCategory > 2 Then
            MyIO.Echo "未知广告类型"
        ElseIf intCategory = 0 And strTitle = "" Then
            MyIO.Echo "连接标题必须输入"
        ElseIf intCategory = 0 And strContent = "" Then
            MyIO.Echo "连接地址必须输入"
        ElseIf intCategory = 1 And strContent = "" Then
            MyIO.Echo "文本必须输入"
        ElseIf intCategory = 2 And strTitle = "" Then
            MyIO.Echo "图片地址必须输入"
        Else
            Set objCmd = MyKernel.Command(T_ADS)
            objCmd.CommandType = "INSERT"
            objCmd.Add "category", intCategory
            objCmd.Add "Title", strTitle
            objCmd.Add "Content", strContent
            objCmd.Add "Look", 0
            objCmd.Add "Hit", 0
            objCmd.Add "Intime", GetTime(Now())
            objCmd.Add "Outime", 0
            objCmd.Exec
            Set objCmd = Nothing
            WM_SetCache "ad"
            MyIO.Echo "OK"
        End If
    End If
End Sub

Private Sub doPostModify()
    Dim lngId
    Dim intCategory
    Dim strTitle
    Dim strContent
    Dim objCmd
    lngId = atol(MyIO.QueryString("SeqId"))
    If MyPower("ModifyAds") = 0 Then
        MyIO.Echo "您没有编辑广告的权限"
    ElseIf lngId <= 0 Then
        MyIO.Echo "请选择您要编辑的广告"
    Else
        intCategory = atoi(MyIO.Form("Category"))
        strTitle = Trim(MyIO.Form("Title"))
        strContent = Trim(MyIO.Form("Content"))
        If intCategory < 0 Or intCategory > 2 Then
            MyIO.Echo "未知广告类型"
        ElseIf intCategory = 0 And strTitle = "" Then
            MyIO.Echo "连接标题必须输入"
        ElseIf intCategory = 0 And strContent = "" Then
            MyIO.Echo "连接地址必须输入"
        ElseIf intCategory = 1 And strContent = "" Then
            MyIO.Echo "文本必须输入"
        ElseIf intCategory = 2 And strTitle = "" Then
            MyIO.Echo "图片地址必须输入"
        Else
            Set objCmd = MyKernel.Command(T_ADS)
            objCmd.CommandType = "SELECT"
            objCmd.Where = "SEQID=" & lngId
            If Not objCmd.Exec Then
                MyIO.Echo "找不到您要编辑的广告"
            Else
                objCmd.CommandType = "UPDATE"
                objCmd.Where = "SEQID=" & lngId
                objCmd.Add "Category", intCategory
                objCmd.Add "Title", strTitle
                objCmd.Add "Content", strContent
                objCmd.Exec
                WM_SetCache "ad"
                MyIO.Echo "OK"
            End If
            Set objCmd = Nothing
        End If
    End If
End Sub

Private Sub doPostRemove()
    If MyPower("DeleteAds") = 0 Then
        MyIO.Echo "您没有删除广告的权限"
    Else
        Dim arr
        arr = Split(MyIO.Form("SeqId"), ",")
        If Not IsNumericArray(arr) Then
            MyIO.Echo "请选择您要删除的广告"
        Else
            strSQL = "DELETE FROM $(Table) WHERE SEQID IN ($(SeqId))"
            strSQL = Replace(strSQL, "$(Table)", T_ADS)
            strSQL = Replace(strSQL, "$(SeqId)", Join(arr, ","))
            MyKernel.DB.Exec strSQL
            WM_SetCache "ad"
            MyIO.Echo "OK"
        End If
    End If
End Sub