ua

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

    If objPage.ID < objPage.Total Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.UA.doPage(" & (objPage.ID + 1) & ")"" class=""a1"" />下一页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.UA.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.UA.doPage(document.getElementById('_page').value)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub doGetUAModify()
    Dim objCmd
    Set objCmd = MyKernel.Command(T_UA)
    objCmd.CommandType = "SELECT"
    objCmd.Where = "SEQID=" & atol(MyIO.QueryString("SeqId"))
    If Not objCmd.Exec Then
        MyIO.Echo "找不到您要编辑的UA"
    Else
        MyIO.Echo "<form id=""frmTemplet"" onsubmit=""return(false)"">"
        MyIO.Echo "<table width=""300"" border=""1"" cellpadding=""2"" cellspacing=""0"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""2"" class=""winT0""><b>编辑UA</b></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td width=""80"">手机型号</td>"
        MyIO.Echo "<td width=""220""><input type=""text"" name=""Name"" class=""txt"" value=""" & objCmd("Name") & """ /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>UA标识</td>"
        MyIO.Echo "<td><input type=""text"" name=""Mark"" class=""txt"" value=""" & objCmd("Mark") & """ /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td>屏幕大小</td>"
        MyIO.Echo "<td><input type=""text"" name=""Width"" class=""txt"" size=""5"" value=""" & objCmd("Width") & """ /> x <input type=""text"" name=""Height"" class=""txt"" size=""5"" value=""" & objCmd("Height") & """ /> 像素</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 doPostUAAdd()
    Dim strName, strMark, intWidth, intHeight
    Dim objCmd
    strName = Trim(MyIO.Form("Name"))
    strMark = Trim(MyIO.Form("Mark"))
    intWidth = atoi(MyIO.Form("Width"))
    intHeight = atoi(MyIO.Form("Height"))
    Set objCmd = MyKernel.Command(T_UA)
    objCmd.CommandType = "SELECT"
    objCmd.Where = "NAME='" & SafeString(strName) & "'"
    If strName = "" Then
        MyIO.Echo "请输入手机型号"
    ElseIf strMark = "" Then
        MyIO.Echo "请输入UA标识"
    ElseIf intWidth < 1 Or intHeight < 1 Then
        MyIO.Echo "屏幕大小错误"
    ElseIf objCmd.Exec Then
        MyIO.Echo "该手机型号已存在了"
    Else
        objCmd.CommandType = "INSERT"
        objCmd.Add "Name", strName
        objCmd.Add "Mark", strMark
        objCmd.Add "Width", intWidth
        objCmd.Add "Height", intHeight
        objCmd.Exec
        MyIO.Echo "OK"
   End If
   Set objCmd = Nothing
End Sub

Private Sub doPostUAModify()
    Dim lngId
    Dim strName, strMark, intWidth, intHeight
    Dim objCmd
    lngId = atol(MyIO.QueryString("SeqId"))
    strName = Trim(MyIO.Form("Name"))
    strMark = Trim(MyIO.Form("Mark"))
    intWidth = atoi(MyIO.Form("Width"))
    intHeight = atoi(MyIO.Form("Height"))
    Set objCmd = MyKernel.Command(T_UA)
    objCmd.CommandType = "SELECT"
    objCmd.Where = "SEQID=" & lngId
    If strName = "" Then
        MyIO.Echo "请输入手机型号"
    ElseIf strMark = "" Then
        MyIO.Echo "请输入UA标识"
    ElseIf intWidth < 1 Or intHeight < 1 Then
        MyIO.Echo "屏幕大小错误"
    ElseIf Not objCmd.Exec Then
        MyIO.Echo "找不到您要编辑的手机型号"
    Else
        objCmd.CommandType = "UPDATE"
        objCmd.Where = "SEQID=" & objCmd("SeqId")
        objCmd.Add "Name", strName
        objCmd.Add "Mark", strMark
        objCmd.Add "Width", intWidth
        objCmd.Add "Height", intHeight
        objCmd.Exec
        MyIO.Echo "OK"
    End If
    Set objCmd = Nothing
End Sub

Private Sub doPostUARemove()
    Dim arr
    arr = Split(MyIO.Form("SeqId"), ",")
    If Not IsNumericArray(arr) Then
        MyIO.Echo "请选择您要删除的UA"
    Else
        strSQL = "DELETE FROM $(Table) WHERE SEQID IN ($(SeqId))"
        strSQL = Replace(strSQL, "$(Table)", T_UA)
        strSQL = Replace(strSQL, "$(SeqId)", Join(arr, ","))
        MyKernel.DB.Exec strSQL
        MyIO.Echo "OK"
    End If
End Sub

'OU
Private Sub doGetOU(ByVal strType)
    Dim xdb
    Set xdb = WM_XMLDB(strType)
    MyIO.Echo "<select name=""" & strType & """ multiple=""true"" size=""10"" class=""slt"" style=""width:100%"" onchange=""jspp.OU.setValue(this, '" & strType & "')"">"
    Do While Not xdb.EOF
        MyIO.Echo Replace(Replace("<option value=""$(Name)|$(Mark)"">$(Name)|$(Mark)</option>", "$(Name)", xdb("Name")), "$(Mark)", xdb("Mark"))
        xdb.MoveNext
    Loop
    MyIO.Echo "</select><br/>"
    MyIO.Echo "名称：<input type=""text"" name=""" & strType & "Name"" class=""txt"" /><br/>"
    MyIO.Echo "标识：<input type=""text"" name=""" & strType & "Mark"" class=""txt"" /><br/>"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""新增"" onclick=""jspp.OU.add(this.form, '" & strType & "')"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""修改"" onclick=""jspp.OU.modify(this.form, '" & strType & "')"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""删除"" onclick=""jspp.OU.remove(this.form, '" & strType & "')"" />"
    Set xdb = Nothing
End Sub

Private Sub doPostOUAdd()
    Dim xdb
    Dim strType, strName, strMark
    strType = MyIO.Form("Type")
    strName = Trim(MyIO.Form("Name"))
    strMark = Trim(MyIO.Form("Mark"))
    If strName = "" Then
        MyIO.Echo "请输入" & strType & "名称"
    ElseIf strMark = "" Then
        MyIO.Echo "请输入" & strType & "标识"
    Else
        Set xdb = WM_XMLDB(strType)
        xdb.Filter = "@Name='" & XPathString(strName) & "'"
        If Not xdb.EOF Then
            MyIO.Echo "该名称已被占用"
        Else
            xdb.AddNew
            xdb("Name") = strName
            xdb("Mark") = strMark
            xdb.Update
            MyIO.Echo "OK"
        End If
    End If
    Set xdb = Nothing
End Sub

Private Sub doPostOUModify()
    Dim xdb
    Dim strType, strName, strMark
    strType = MyIO.Form("Type")
    strName = Trim(MyIO.Form("Name"))
    strMark = Trim(MyIO.Form("Mark"))
    If strName = "" Then
        MyIO.Echo "请输入" & strType & "名称"
    ElseIf strMark = "" Then
        MyIO.Echo "请输入" & strType & "标识"
    Else
        Set xdb = WM_XMLDB(strType)
        xdb.Filter = "@Name='" & XPathString(strName) & "'"
        If xdb.EOF Then
            MyIO.Echo "找不到您要修改的" & strType
        Else
            xdb("Mark") = strMark
            xdb.Update
            MyIO.Echo "OK"
        End If
    End If
    Set xdb = Nothing
End Sub

Private Sub doPostOURemove()
    Dim xdb
    Dim strType, strName
    strType = MyIO.Form("Type")
    strName = Trim(MyIO.Form("Name"))
    If strName = "" Then
        MyIO.Echo "请输入" & strType & "名称"
    Else
        Set xdb = WM_XMLDB(strType)
        xdb.Filter = "@Name='" & XPathString(strName) & "'"
        If xdb.EOF Then
            MyIO.Echo "找不到您要删除的" & strType
        Else
            xdb.Delete False
            MyIO.Echo "OK"
        End If
    End If
    Set xdb = Nothing
End Sub