admin_sourcelist.asp

个人网站比较简短

    Case "All"
        sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = (sql & " and ProducerName like '%" & Keyword & "%'")
        sql = (sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ProducerID Desc")
    Case "MLand"
        sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0) and ProducerType=1"
        If Keyword <> "" Then sql = sql & (" and ProducerName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ProducerID Desc"
    Case "GT"
        sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0) and ProducerType=2"
        If Keyword <> "" Then sql = sql & (" and ProducerName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ProducerID Desc"
    Case "JK"
        sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0) and ProducerType=3"
        If Keyword <> "" Then sql = sql & (" and ProducerName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ProducerID Desc"
    Case "OutSea"
        sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0) and ProducerType=4"
        If Keyword <> "" Then sql = sql & (" and ProducerName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ProducerID Desc"
    Case "Other"
        sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0) and ProducerType=0"
        If Keyword <> "" Then sql = sql & (" and ProducerName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ProducerID Desc"
    Case Else
        sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and ProducerName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ProducerID Desc"
    End Select
    Set rsProducer = Server.CreateObject("adodb.recordset")
    rsProducer.Open sql, Conn, 1, 1
    If rsProducer.BOF And rsProducer.EOF Then
        totalPut = 0
        Response.Write "<li>没有厂商</li>"
    Else
        totalPut = rsProducer.RecordCount
        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
                rsProducer.Move (CurrentPage - 1) * MaxPerPage
            Else
                CurrentPage = 1
            End If
        End If

        Response.Write "<table width='550' border='0' cellspacing='1' cellpadding='1' bgcolor='#f9f9f9'>"
        Response.Write "<tr align='center'><td width='100' >名称</td><td width='100'>缩写</td><td>简介</td></tr>"
        Do While Not rsProducer.EOF
            If AllKeyList = "" Then
                AllKeyList = rsProducer("ProducerName")
            Else
                AllKeyList = AllKeyList & "|" & rsProducer("ProducerName")
            End If
            Response.Write "<tr><td align='center'><a href='#' onclick='add(""" & rsProducer("ProducerName") & """)'>" & rsProducer("ProducerName") & "</a></td><td>" & rsProducer("ProducerShortName") & "</td>"
            If IsNull(rsProducer("ProducerIntro")) Then
                Response.Write "<td>无</td></tr>"
            Else
                Response.Write "<td>" & Left(nohtml(PE_HtmlDecode(rsProducer("ProducerIntro"))), 50) & "</td></tr>"
            End If
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            rsProducer.MoveNext
        Loop
        Response.Write "</table>"
    End If
    rsProducer.Close
    Set rsProducer = Nothing
    
    Response.Write "</td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个生产商", True)

End Sub

Sub Trademark()
    Response.Write "<script language=""javascript"">" & vbCrLf
    Response.Write "function add(obj)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if(obj==""""){return false;}" & vbCrLf
    Response.Write "    opener.myform.TrademarkName.value=obj;" & vbCrLf
    Response.Write "    window.close();" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
    
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "    <tr height='22' class='title'><td>" & vbCrLf
    Response.Write "     | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Time'><FONT style='font-size:12px'" & vbCrLf
    If Group = "Time" Then Response.Write " color='red'"
    Response.Write ">最近常用</FONT></a>" & vbCrLf
    Response.Write "     | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=All'><FONT style='font-size:12px'" & vbCrLf
    If Group = "All" Then Response.Write " color='red'"
    Response.Write ">全部品牌</FONT></a>" & vbCrLf
    Response.Write "     | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=MLand'><FONT style='font-size:12px'" & vbCrLf
    If Group = "MLand" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowTrademark/TrademarkType1", "大陆品牌") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=GT'><FONT style='font-size:12px'" & vbCrLf
    If Group = "GT" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowTrademark/TrademarkType2", "港台品牌") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=JK'><FONT style='font-size:12px'" & vbCrLf
    If Group = "JK" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowTrademark/TrademarkType3", "日韩品牌") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=OutSea'><FONT style='font-size:12px'" & vbCrLf
    If Group = "OutSea" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowTrademark/TrademarkType4", "欧美品牌") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Other'><FONT style='font-size:12px'" & vbCrLf
    If Group = "Other" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowTrademark/TrademarkType5", "其他品牌") & "</FONT></a>" & vbCrLf
    Response.Write "         | </td></tr>" & vbCrLf
    Response.Write "</table><br>" & vbCrLf
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr  height='22' class='title'>" & vbCrLf
    Response.Write "    <td><b><font color=red>" & strTypeName & "</font>列表：</b></td><td align=right><input name='KeyWord' type='text' size='20' value=" & Keyword & ">&nbsp;&nbsp;<input type='submit' value='查找'></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td valign='top' height='100' colspan='2'>"
    
    
    Dim i, rsTrademark, sql
    Select Case Group
    Case "Time"
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    Case "All"
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    Case "MLand"
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0) and TrademarkType=1"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    Case "GT"
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0) and TrademarkType=2"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    Case "JK"
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0) and TrademarkType=3"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    Case "OutSea"
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0) and TrademarkType=4"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    Case "Other"
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0) and TrademarkType=0"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    Case Else
        sql = "select * from PE_Trademark Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and TrademarkName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",TrademarkID Desc"
    End Select
    Set rsTrademark = Server.CreateObject("adodb.recordset")
    rsTrademark.Open sql, Conn, 1, 1
    If rsTrademark.BOF And rsTrademark.EOF Then
        totalPut = 0
        Response.Write "<li>没有品牌</li>"
    Else
        totalPut = rsTrademark.RecordCount
        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
                rsTrademark.Move (CurrentPage - 1) * MaxPerPage
            Else
                CurrentPage = 1
            End If
        End If

        Response.Write "<table width='550' border='0' cellspacing='1' cellpadding='1' bgcolor='#f9f9f9'>"
        Response.Write "<tr align='center'><td width='100' >名称</td><td width='100'>图片</td><td>简介</td></tr>"
        Do While Not rsTrademark.EOF
            If AllKeyList = "" Then
                AllKeyList = rsTrademark("TrademarkName")
            Else
                AllKeyList = AllKeyList & "|" & rsTrademark("TrademarkName")
            End If
            Response.Write "<tr><td align='center'><a href='#' onclick='add(""" & rsTrademark("TrademarkName") & """)'>" & rsTrademark("TrademarkName") & "</a></td>"
            If Not IsNull(rsTrademark("TrademarkPhoto")) Then
                Response.Write "<td align=center><img src='" & rsTrademark("TrademarkPhoto") & "' width='60' height='23'></td>"
            Else
                Response.Write "<td>&nbsp;</td>"
            End If
            If IsNull(rsTrademark("TrademarkIntro")) Then
                Response.Write "<td>无</td></tr>"
            Else
                Response.Write "<td>" & Left(nohtml(PE_HtmlDecode(rsTrademark("TrademarkIntro"))), 50) & "</td></tr>"
            End If
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            rsTrademark.MoveNext
        Loop
        Response.Write "</table>"
    End If
    rsTrademark.Close
    Set rsTrademark = Nothing
    
    Response.Write "</td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个商标", True)

End Sub
%>