links.asp

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

<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/Cls.Common.asp"-->
<!--#include file="Inc/Cls.Templates.asp"-->
<%
Call DBConnBegin()
  Select Case Request("Action")
    Case "Save"
        Dim WM_SiteName, WM_Content, WM_Url, WM_Logo, WM_Type, WM_Taxis
        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)
        If WM_SiteName = "" Then Call WRMPS.ErrView("·请填写站点名称<meta http-equiv=refresh content='1;URL=Links.asp?Action=Apply'>", 0)
        If WM_Content = "" Then WM_Content = Null
		If Len(WM_Content) > 50 Then WM_Content = Right(WM_Content,48)&"..."
        If WM_Url = "" Then Call WRMPS.ErrView("·请填写站点URL<meta http-equiv=refresh content='1;URL=Links.asp?Action=Apply'>", 0)
        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地址<meta http-equiv=refresh content='1;URL=Links.asp?Action=Apply'>", 0)
        Else
          Call WRMPS.ErrView("·请按规定操作<meta http-equiv=refresh content='1;URL=Links.asp?Action=Apply'>", 0)
        End If

         Set Rs = server.createobject("adodb.recordset")
		 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) = 0
           Rs(6) = WM_Taxis
           Rs(7) = Int(WR_Setting(13))
		   Rs(8) = AreaID
         Rs.Update
         Rs.Close
         Set Rs = Nothing
		 Select Case Int(WR_Setting(13))
		   Case 0
	         Call WRMPS.ErrView("·友情链接申请成功，请等待管理员的审核<meta http-equiv=refresh content='1;URL=Links.asp'>",1)
		   Case 1
	         Call WRMPS.ErrView("·友情链接申请成功<meta http-equiv=refresh content='1;URL=Links.asp'>",1)
		 End Select	     

	Case "Apply"
	  SitePath = ",<a href="&WR_Setting(3)&"Links.asp>友情链接</a>,<a href="&WR_Setting(3)&"Links.asp?Action=Apply>友情链接申请</a>"
	  SitePath = WRMPS.GetSitePath(0,SitePath)
	  Call WRMPS.FsoBegin()
	  TempStr = WRTemp.SiteTemplates(1,0,6,0)
	  Call WRMPS.FsoEnd()
	  TempStr = WRTemp.SiteLabel(TempStr)
	  Call ClassEnd()
	  Response.write TempStr
	Case Else
	  SitePath = ",<a href="&WR_Setting(3)&"Links.asp>友情链接</a>"
	  SitePath = WRMPS.GetSitePath(0,SitePath)
	  Call WRMPS.FsoBegin()
	  TempStr = WRTemp.SiteTemplates(1,0,5,0)
	  Call WRMPS.FsoEnd()
	  TempStr = WRTemp.SiteLabel(TempStr)
	  Call ClassEnd()
	  Response.write TempStr
  End Select
Call DBConnEnd()
%>