wm.sys_links.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

         Content = Content & "<td><input name='WM_Content' type='text' style='width:250' maxlength='50' value="""&Rs("WM_Content")&"""></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>类型</strong></td>" & vbCrLf
         Content = Content & "<td><input type=radio name=WM_Type value=0 Class=radio"&WRMPS.GetCheckVer(Rs("WM_Type"),0,1)&"> 文字 <input type=radio name=WM_Type value=1 Class=radio"&WRMPS.GetCheckVer(Rs("WM_Type"),1,1)&"> 图片</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>Logo地址</strong></td>" & vbCrLf
         Content = Content & "<td><input name='WM_Logo' type='text' style='width:250' maxlength='100' value="""&Rs("WM_Logo")&"""></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>是否推荐</strong></td>" & vbCrLf
         Content = Content & "<td><input type=radio name=WM_Commend value=1 Class=radio"&WRMPS.GetCheckVer(Rs("WM_Commend"),1,1)&"> 是 <input type=radio name=WM_Commend value=0 Class=radio"&WRMPS.GetCheckVer(Rs("WM_Commend"),0,1)&"> 否</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td></td><td><input type=submit name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
         Content = Content & "</form></table><script>document.addform.WM_SiteName.focus()</script>" & vbCrLf
		 End If
		 Rs.Close
		 Set Rs = Nothing

      Case "Del"
         Conn.Execute ("Delete from WM_Links Where WM_ID=" & WRMPS.CheckStr(Request("ID"), 1) & "")
         Call WRMPS.ErrView("·删除友情链接成功<meta http-equiv=refresh content='1;URL=?Reh=" & WRMPS.CheckStr(Request("Reh"), 0)&"&Page="&Page&"'>", 1)


      Case "Through"
         Conn.Execute ("Update WM_Links set WM_Key=1 Where WM_ID=" & WRMPS.CheckStr(Request("ID"), 1) & "")
         Call WRMPS.ErrView("·审核友情链接成功<meta http-equiv=refresh content='1;URL=?Reh=Through&Page="&Page&"'>", 1)
      
      Case "SaveAll"
         ID = Replace(Replace(WRMPS.CheckStr(Request("ID"), 0), " ", ""), "&nbsp;", "")
         If ID <> "" Then
            ID = Split(ID, ",")
            For i = 0 To UBound(ID)
              If IsNumeric(ID(i)) = 0 Then Call WRMPS.ErrView("·请按规定操作", 0): Exit Sub
              WM_SiteName = WRMPS.CheckStr(Request("WM_SiteName_" & ID(i)), 0)
              WM_Content = WRMPS.CheckStr(Request("WM_Content_" & ID(i)), 0)
              WM_Url = WRMPS.CheckStr(Request("WM_Url_" & ID(i)), 0)
              WM_Logo = WRMPS.CheckStr(Request("WM_Logo_" & ID(i)), 0)
              WM_Type = WRMPS.CheckStr(Request("WM_Type_" & ID(i)), 1)
              WM_Commend = WRMPS.CheckStr(Request("WM_Commend_" & ID(i)), 1)
              WM_Key = WRMPS.CheckStr(Request("WM_Key_" & ID(i)), 1)
              WM_Taxis = WRMPS.CheckStr(Request("WM_Taxis_" & ID(i)), 1)
              If WM_SiteName = "" Then Call WRMPS.ErrView("·请填写站点名称", 0): Exit Sub
              If WM_Content = "" Then WM_Content = Null
              If WM_Url = "" Then Call WRMPS.ErrView("·请填写站点URL", 0): Exit Sub
              If WM_Type = 0 Then
                If WM_Logo = "" Then WM_Logo = Null
              ElseIf WM_Type = 1 Then
                If WM_Logo = "" Then Call WRMPS.ErrView("·友情链接“"&WM_SiteName&"”您选择的是图片连接，请填写Logo地址", 0): Exit Sub
              Else
                Call WRMPS.ErrView("·请按规定操作", 0): Exit Sub
              End If
              If WM_Commend <> 0 And WM_Commend <> 1 Then Call WRMPS.ErrView("·请按规定操作", 0): Exit Sub
              If WM_Key <> 0 And WM_Key <> 1 Then Call WRMPS.ErrView("·请按规定操作", 0): Exit Sub
              If WM_Taxis = "" Then Call WRMPS.ErrView("·排序不能为空", 0): Exit Sub

               Rs.Open "Select WM_SiteName,WM_Content,WM_Url,WM_Logo,WM_Type,WM_Commend,WM_Taxis,WM_Key From WM_Links Where WM_ID = " & Int(ID(i)) & "", Conn, 1, 3
               If Not Rs.EOF Then
                 Rs(0) = WM_SiteName
                 Rs(1) = WM_Content
                 Rs(2) = WM_Url
                 Rs(3) = WM_Logo
                 Rs(4) = WM_Type
                 Rs(5) = WM_Commend
                 Rs(6) = WM_Taxis
                 Rs(7) = WM_Key
                 Rs.Update
                 Rs.Close
               End If
            Next
         End If
		 Call WRMPS.ErrView("·批量修改友情链接成功<meta http-equiv=refresh content='1;URL=?Page="&Page&"'>", 1)
      
      Case Else
         Reh = WRMPS.CheckStr(Request("Reh"), 0)
         If Reh <> "" Then
           WM_Key = " WM_Key = 0"
         Else
           WM_Key = " WM_Key <> 0"
           Inputz = "<tr class=td2><td Colspan=4 align=center><input type=submit name='Submit' value='批量修改'></td></tr>"
         End If
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=4><strong>友情链接管理</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='addform' method='post' Action='?Action=SaveAll&Page="&Page&"'>" & vbCrLf
         Rs.Open "Select WM_SiteName,WM_Content,WM_Url,WM_Logo,WM_Type,WM_Commend,WM_Taxis,WM_Key,WM_ID From WM_Links Where" & WM_Key & " Order By WM_Taxis Desc,WM_ID Desc", Conn, 1, 1
         If Rs.EOF Then
            Content = Content & "<tr class=td2><td align=center colspan=4>没有内容</td></tr>" & vbCrLf
         Else
          '分页的实现
          ListNum = 10
          Rs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          Do While Not Rs.EOF And i < ListNum
           Content = Content & "<input name=ID type='hidden' value='" & Rs(8) & "'><tr class=td2>" & vbCrLf
           Content = Content & "<td Width='10%'><strong>站点名称</strong></td>" & vbCrLf
           Content = Content & "<td Width='40%'><input name='WM_SiteName_" & Rs(8) & "' type='text' style='width:250' maxlength='50' Value='" & Rs(0) & "'> <font Class=Font2>*</font></td>" & vbCrLf
           Content = Content & "<td Width='10%'>说明</td>" & vbCrLf
           Content = Content & "<td Width='40%'><input name='WM_Content_" & Rs(8) & "' type='text' style='width:250' maxlength='50' Value='" & Rs(1) & "'></td>" & vbCrLf
           Content = Content & "</tr>" & vbCrLf
           Content = Content & "<tr class=td2>" & vbCrLf
           Content = Content & "<td>URL</td>" & vbCrLf
           Content = Content & "<td><input name='WM_Url_" & Rs(8) & "' type='text' style='width:250' maxlength='100' Value='" & Rs(2) & "'> <font Class=Font2>*</font></td>" & vbCrLf
           Content = Content & "<td>Logo地址</td>" & vbCrLf
           Content = Content & "<td><input name='WM_Logo_" & Rs(8) & "' type='text' style='width:250' maxlength='100' Value='" & Rs(3) & "'></td>" & vbCrLf
           Content = Content & "</tr>" & vbCrLf
           Content = Content & "<tr class=td2>" & vbCrLf
           Content = Content & "<td colspan=4>排序 <input name='WM_Taxis_" & Rs(8) & "' type='text' style='width:30' maxlength='3' Value='" & Rs(6) & "'>　　　　 " & vbCrLf
           Content = Content & "类型 <input type=radio name=WM_Type_" & Rs(8) & " value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs(4), 1) & "> 文字 <input type=radio name=WM_Type_" & Rs(8) & " value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs(4), 1) & "> 图片　　　　 " & vbCrLf
           Content = Content & "是否推荐 <input type=radio name=WM_Commend_" & Rs(8) & " value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs(5), 1) & "> 是 <input type=radio name=WM_Commend_" & Rs(8) & " value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs(5), 1) & "> 否　　　　 " & vbCrLf
           If Reh = "" Then Content = Content & "状态 <input type=radio name=WM_Key_" & Rs(8) & " value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs(7), 1) & "> 关闭 <input type=radio name=WM_Key_" & Rs(8) & " value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs(7), 1) & "> 正常　　　　 " & vbCrLf
           Content = Content & "<a href=?Action=Edit&ID=" & Rs(8) & "&Reh=" & Reh & "&Page="&Page&" Class=red>修改</a> | <a href=?Action=Del&ID=" & Rs(8) & "&Reh=" & Reh & "&Page="&Page&" Class=red onclick=""return confirm('确定删除？');"">删除</a>"
           If Reh <> "" Then Content = Content & " | <a href=?Action=" & Reh & "&ID=" & Rs(8) & "&Page="&Page&" Class=red>审核</a></td>" & vbCrLf
           Content = Content & "</tr>" & vbCrLf
           Content = Content & "<tr class=td4><td Colspan=4 height=3></td></tr>" & vbCrLf
		 Rs.MoveNext
         i = i + 1
         Loop
         Content = Content & Inputz & vbCrLf
         URLParameter = "Reh=" & Reh
         Content = Content & "<tr class=td2><td Colspan=4 align=right>"&GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page)&"</td></tr>"
         End If
		 Rs.Close
         Content = Content & "</form></table>" & vbCrLf
    End Select
    Set Rs = Nothing
    Call DBConnEnd()
    Call ClassEnd()
    Response.Write Content
    Call GetBottom()
End Sub

%>