<%
'**************************************
'* 最后更新 2012-07-30 by 56770.kingdge
'* Copyright www.56770.com
'*************************************
Showpath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → "& Lebi_word(21)
Function SiteLinkInfo()
        Dim link_name,link_url,link_logo,link_title,link_message
		Dim strFile,RLoadStyle
		cache.name="SiteLinkInfo"& LangTxt
		cache.reloadtime= 5000
		If cache.objisempty() Then
			 set Rs = conn.execute("select c_name"& LangTxt &",c_url"& LangTxt &",c_logo"& LangTxt &",c_info"& LangTxt &",c_mes"& LangTxt &" from [Lebi_linkconfig] where c_id=1")
			 cache.value = rs.getstring(,1,"<><>@<><>","","")
			 cache.DataCount = 1
			 rs.close:Set rs=Nothing
		End If
		If cache.DataCount = 1 Then
				strFile = Eshop_url& Style_Folder &"Lebi.SiteLinkInfo."
				RLoadStyle = LoadStyle(strFile&"0.style")
				link_name = Split(cache.value,"<><>@<><>")(0)
				link_url = Split(cache.value,"<><>@<><>")(1)
				link_logo = Split(cache.value,"<><>@<><>")(2)
				link_title = Split(cache.value,"<><>@<><>")(3)
				link_message = Split(cache.value,"<><>@<><>")(4)
				ReplaceStyle "link_name",link_name,RLoadStyle
				ReplaceStyle "link_url",link_url,RLoadStyle
				ReplaceStyle "link_logo",link_logo,RLoadStyle
				ReplaceStyle "link_title",link_title,RLoadStyle
				ReplaceStyle "link_message",link_message,RLoadStyle
				SiteLinkInfo = splits(RLoadStyle)
		End If
End Function

If request("action") = "links_add" Then
        Dim wordlink,weburl,logo
        wordlink = Trim(safereplace(trim(request("wordlink"))))
        weburl = Replace(Trim(LCase(request("weburl"))),"'","&#180;")  
        logo = Trim(safereplace(trim(request("logo"))))
        If wordlink="" Then
                Write_Lebi_Eshop("<script>alert('"& Lebi_link(10) &"');javascript:history.back()</script>")
			    response.End
        End If
        If weburl="http://" Then
                Write_Lebi_Eshop("<script>alert('"& Lebi_link(11) &"');javascript:history.back()</script>")
			    response.End
        End If
        Set rs = server.CreateObject("adodb.recordset")
        rs.Open "select wordlink,url,logo,show,bs from [Lebi_huoban]", conn, 1, 3
        rs.AddNew
        rs("wordlink") = wordlink
        rs("url") = weburl
        rs("logo") = logo
        rs("show") = 0
        rs("bs") = 0
        rs.Update
        rs.Close : set rs=nothing
        Write_Lebi_Eshop("<script>alert('"& Lebi_link(12) &"');location.href="""& Eshop_url & url_link &""";</script>")
        response.end
End If
%>