wm.sys_links.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Link") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=WM.Sys_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
    
    Call DBConnBegin()
    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=?Action=Add'>", 1)

      Case "Add"
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=2><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><script src=../Inc/Js/AreaSelect.Js></Script></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_ID="&ID, Conn, 1, 1
		 If Not Rs.Eof Then
		 AreaIDName=WRDB.GetClassName("WM_Area",Rs("WM_AreaID"))
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=2><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='35%'><strong>站点名称</strong></td>" & vbCrLf
         Content = Content & "<td Width='65%'><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><script src='../Inc/Js/AreaSelect.Js'></Script></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