user_links.asp

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

<!--#include file="Cook.asp" -->
<%
Call AgentFlag()
Call WM_Content
Sub WM_Content()
    Content = PageTop()
    Content = Content & UserPath(",<a href=User_Links.asp>友情链接管理</a>")

    Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=User_Links.asp>管理首页</a> | <a href=?Reh=Through>待审</a> | <a href=?Action=Add>添加</a></td></tr>" & vbCrLf
    Content = Content & "</Table>" & vbCrLf
    Dim WM_SiteName, WM_Content, WM_Url, WM_Logo, WM_Type, WM_Commend, WM_Taxis, WM_Key, Reh, Through, Inputz, ID, i ,AreaID,Page
    
    Page = WRMPS.CheckStr(Request("Page"), 1)
	Set Rs = server.createobject("adodb.recordset")
    Select Case WRMPS.CheckStr(Request("Action"), 0)
      Case "EditSave"
        ID = WRMPS.CheckStr(Request("ID"),1)
        WM_SiteName = WRMPS.CheckStr(Request("WM_SiteName"), 0)
		AreaID = WRMPS.CheckStr(Request.form("AreaID"),1)
		If AreaID = "" Then AreaID = WRMPS.CheckStr(Request.form("AreaID_"),1)
        WM_Content = WRMPS.CheckStr(Request("WM_Content"), 0)
        WM_Url = WRMPS.CheckStr(Request("WM_Url"), 0)
        WM_Logo = WRMPS.CheckStr(Request("WM_Logo"), 0)
        WM_Type = WRMPS.CheckStr(Request("WM_Type"), 1)
        WM_Commend = WRMPS.CheckStr(Request("WM_Commend"), 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("·您选择的是图片连接，请填写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

         Rs.Open "Select Top 1 WM_SiteName,WM_Content,WM_Url,WM_Logo,WM_Type,WM_Commend,WM_AreaID From WM_Links Where WM_ID="&ID, 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) = AreaID
           Rs.Update
		 End If
         Rs.Close
         Call WRMPS.ErrView("·修改友情链接成功<meta http-equiv=refresh content='1;URL=?Reh=" & WRMPS.CheckStr(Request("Reh"), 0)&"&Page="&Page&"'>", 1)
      
	  Case "Save"
        WM_SiteName = WRMPS.CheckStr(Request("WM_SiteName"), 0)
		AreaID = WRMPS.CheckStr(Request.form("AreaID"),1)
		If AreaID = "" Then AreaID = 0
        WM_Content = WRMPS.CheckStr(Request("WM_Content"), 0)
        WM_Url = WRMPS.CheckStr(Request("WM_Url"), 0)
        WM_Logo = WRMPS.CheckStr(Request("WM_Logo"), 0)
        WM_Type = WRMPS.CheckStr(Request("WM_Type"), 1)
        WM_Commend = WRMPS.CheckStr(Request("WM_Commend"), 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("·您选择的是图片连接，请填写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

         Rs.Open "Select Top 1 WM_SiteName,WM_Content,WM_Url,WM_Logo,WM_Type,WM_Commend,WM_Taxis,WM_Key,WM_AreaID From WM_Links Order By WM_Taxis Desc", Conn, 1, 3
         If Rs.EOF Then
           WM_Taxis = 1
         Else
           WM_Taxis = Rs(6) + 1
         End If
         Rs.AddNew
           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) = 1
           Rs(8) = AreaID
         Rs.Update
         Rs.Close
		 Call WRMPS.ErrView("·添加友情链接成功<meta http-equiv=refresh content='1;URL=User_Links.asp'>", 1)

      Case "Add"
         Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
         Content = Content & "<tr><td Colspan=2 class=td4><strong>友情链接添加</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='addform' method='post' Action='?Action=Save'>" & vbCrLf
         Content = Content & "<tr class=td2><td Width='35%'><strong>站点名称</strong></td>" & vbCrLf
         Content = Content & "<td Width='65%'><input name='WM_SiteName' type='text' style='width:150' maxlength='50'> <font Class=Font2>*</font></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>所在城市</strong></td>" & vbCrLf
         Content = Content & "<td>"&GetArea(0,1,0,"AreaID")&"</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>URL</strong></td>" & vbCrLf
         Content = Content & "<td><input name='WM_Url' type='text' style='width:250' maxlength='100'> <font Class=Font2>*</font></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>说明</strong></td>" & vbCrLf
         Content = Content & "<td><input name='WM_Content' type='text' style='width:250' maxlength='50'></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>类型</strong></td>" & vbCrLf
         Content = Content & "<td><input type=radio name=WM_Type value=0 checked Class=radio> 文字 <input type=radio name=WM_Type value=1 Class=radio> 图片</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'></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> 是 <input type=radio name=WM_Commend value=0 checked Class=radio> 否</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
      
	  Case "Edit"
	     Dim AreaIDName
         ID = WRMPS.CheckStr(Request("ID"),1)
		 Rs.Open "Select Top 1 * From WM_Links Where WM_AreaID in("&AgentList&") and WM_ID="&ID, Conn, 1, 1
		 If Not Rs.Eof Then
		 AreaIDName=WRDB.GetClassName("WM_Area",Rs("WM_AreaID"))
         Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
         Content = Content & "<tr><td Colspan=2 class=td4><strong>友情链接修改</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='addform' method='post' Action='?Action=EditSave&ID="&ID&"'>" & vbCrLf
	     Content = Content & "<input type=hidden name=AreaID_ value="&Rs("WM_AreaID")&">" & vbCrLf
         Content = Content & "<tr class=td2><td Width='30%'><strong>站点名称</strong></td>" & vbCrLf
         Content = Content & "<td Width='60%'><input name='WM_SiteName' type='text' style='width:150' maxlength='50' value="""&Rs("WM_SiteName")&"""> <font Class=Font2>*</font></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>所在城市</strong></td>" & vbCrLf
         Content = Content & "<td>"&AreaIDName&"　<font onclick='if(b1.style.display==""none""){b1.style.display=""""}else{b1.style.display=""none""}' style='cursor:pointer' color=blue>修改请点击</font></td></tr>" & vbCrLf
	     Content = Content & "<tr Class=td2 id=b1 style='display:none'><td><strong>修改地区</strong></td><td>"&GetArea(0,1,0,"AreaID")&"</td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>URL</strong></td>" & vbCrLf
         Content = Content & "<td><input name='WM_Url' type='text' style='width:250' maxlength='100' value="""&Rs("WM_Url")&"""> <font Class=Font2>*</font></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>说明</strong></td>" & vbCrLf
         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_AreaID in("&AgentList&") and 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_AreaID in("&AgentList&") and WM_ID=" & WRMPS.CheckStr(Request("ID"), 1) & "")
         Call WRMPS.ErrView("·审核友情链接成功<meta http-equiv=refresh content='1;URL=?Reh=Through&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"
         End If
         Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
         Content = Content & "<tr><td Colspan=6 class=td4><strong>友情链接管理</strong></td></tr>" & vbCrLf
	     Content = Content & "<tr align=center class=td3>" & vbCrLf
         Content = Content & "<td width='18%'>站点名称</td>" & vbCrLf
         Content = Content & "<td>URL</td>" & vbCrLf
         Content = Content & "<td width='5%'>类型</td>" & vbCrLf
         Content = Content & "<td width='5%'>推荐</td>" & vbCrLf
         Content = Content & "<td width='5%'>排序</td>" & vbCrLf
         Content = Content & "<td width='15%'>操作</td></tr>" & vbCrLf
         Rs.Open "Select WM_SiteName,WM_Url,WM_Type,WM_Commend,WM_Taxis,WM_ID From WM_Links Where" & WM_Key & " and WM_AreaID in("&AgentList&") Order By WM_Taxis Desc,WM_ID Desc", Conn, 1, 1
         If Rs.EOF Then
            Content = Content & "<tr class=td2><td align=center colspan=6>没有内容</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 & "<tr class=td2 align=center>" & vbCrLf
            Content = Content & "<td>" & Rs(0) & "</td>" & vbCrLf
            Content = Content & "<td align=left>" & Rs(1) & "</td>" & vbCrLf
            Content = Content & "<td>" & WRMPS.GetReplace(WRMPS.GetReplace(Rs(2),"0","文"),"1","<span class=Font2>图</font>") & "</td>" & vbCrLf
            Content = Content & "<td>" & WRMPS.GetReplace(WRMPS.GetReplace(Rs(3),"0","×"),"1","<span class=Font2>√</font>") & "</td>" & vbCrLf
            Content = Content & "<td>" & Rs(4) & "</td>" & vbCrLf
            Content = Content & "<td><a href=?Action=Edit&ID=" & Rs(5) & "&Reh=" & Reh & "&Page="&Page&">修改</a> | <a href=?Action=Del&ID=" & Rs(5) & "&Reh=" & Reh & "&Page="&Page&" onclick=""return confirm('确定删除？');"">删除</a>"
            If Reh <> "" Then Content = Content & " | <a href=?Action=" & Reh & "&ID=" & Rs(5) & "&Page="&Page&" Class=red>审核</a></td>" & vbCrLf
			Content = Content & "</td></tr>" & vbCrLf
		 Rs.MoveNext
         i = i + 1
         Loop
         URLParameter = "Reh=" & Reh
         Content = Content & "<tr class=td2><td Colspan=6 align=right class=td5>"&WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page)&"</td></tr>"
         End If
		 Rs.Close
         Content = Content & "</table>" & vbCrLf
    End Select
    Set Rs = Nothing
    Response.Write Content&PageButtom
    Call DBConnEnd()
    Call ClassEnd()
End Sub

%>